Текущий архив: 2005.06.06;
Скачать: CL | DM;
Вниз
TStringGrid Найти похожие ветки
← →
Alex870 (2005-05-20 17:43) [0]Здравствуйте!
Подскажите пожалуйста, можно ли в TStringGrid покрасить строки разными цветами, если нет, то какой похожий компонент для этого подойдет. Спасибо.
← →
Antonn © (2005-05-20 18:32) [1]можно, да еще как! была бы фантазия...
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
With StringGrid1.Canvas Do Begin
if (ARow div 2)*2=(ARow) then begin //ладно, ладно, не кривляйтесь, я не знаю о mod :)
Font.Color := 204;
Brush.Color := 14737663;
end else begin
Font.Color := clWindowText;
Brush.Color := clWindow;
end;
FillRect(Rect);
TextOut(Rect.Left, Rect.Top, StringGrid1.Cells[ACol, ARow]);
end;
end;
Страницы: 1 вся ветка
Текущий архив: 2005.06.06;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.037 c
