| Написать комментарий | |
Алексей ***
08-12-2008 10:05 (ссылка)
Максим Санжаров
08-12-2008 13:00 (ссылка)
Timur Nuriyasov
22-06-2009 22:52 (ссылка)
Re: Возможно такое нельзя провернуть, но тогда есть ли компон
На Delphi можно провернуть почти все. А насчет компонентов, лучше сначала попытаться решить проблему самому, чем искать готовые компоненты, т.к: 1). Из-за всяких модулей новых компонентов растет исполняемый файл 2). Глупо использовать компоненты, если не знаешь как они работают.
| Написать комментарий | ||
const
SelColor = ClYellow;
begin
if (state = [gdSelected]) then
with TStringGrid(Sender), Canvas do
begin
Brush.Color := SelColor;
Font.Name := 'Arial';
FillRect(Rect);
TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Cells[aCol, aRow]);
end;