Народ как поменять цвет определённой ячейки в Стриггриде

← →
REd_imp (2005-02-04 13:21) [0]

Заранее благодарен за ответ

← →
_vox_ (2005-02-04 13:28) [1]

см. событие OnDrawCell

← →
wl © (2005-02-04 13:39) [2]

просто чтобы было понятнее...
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin if(ACol div 2 = ACol / 2) then begin StringGrid1.Canvas.Brush.Color := clRed; StringGrid1.Canvas.Rectangle(Rect); end else begin StringGrid1.Canvas.Brush.Color := clBlue; StringGrid1.Canvas.Rectangle(Rect); end; end;

← →
msguns © (2005-02-04 13:40) [3]

>wl © (04.02.05 13:39) [2]

Зебра ?

← →
wl © (2005-02-04 13:42) [4]

аха, условие в if и цвета - по вкусу....

А если вместо
if(ACol div 2 = ACol / 2)нарисовать
if(DataSource.DataSet.RecNo div 2 = DataSource.DataSet.RecNo/2)
то будет тельняшка

А если совместить оба, то будет шахматная доска.
Кррррасотишшша !!!

;))

Кстати, а у TColumn есть такое свойство, как Color ;)

Народ как поменять цвет определённой ячейки в Стриггриде Найти похожие ветки