[MarinaB]

подскажите, как задать цвет шрифта в DBgrid c помошью кода.
есть

Код:

1 2 3 4 5 6 7 8 9 10

procedure TNomenklatura_Form.DBGrid1DrawColumnCell(Sender: TObject;   const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin   If TDBGrid(Sender).DataSource.DataSet.RecNo/2=trunc(TDBGrid(Sender).DataSource.DataSet.RecNo/2)   Then   TDBGrid(Sender).Canvas.Brush.Color := clSilver   Else   TDBGrid(Sender).Canvas.Brush.Color := clwhite;   TDBGrid(Sender).DefaultDrawColumnCell(rect,datacol,column,state) end;

Admin: Пользуемся тегами!

если строка окрашена белым, то текст шрифта в ней тоже белый. как присвоить ему черный цвет?

[Yurk@]

Код:

1 2 3 4 5 6 7

with  Grid.Canvas do begin Brush.Color:=$008000; // красит фон Font.Color:=$FFFFFF;  // красит текст FillRect(Rect); TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text); end;

[MarinaB]

Спасибо за ответ.
решила сделать проще:

Код:

1	TDBGrid(Sender).Canvas.Font.Color := clblack;