[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: Пользуемся тегами!

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