[MarinaB]

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

Код:

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@]

Код:

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]

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

Код:

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