|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Цвет шрифта в DBGrid
подскажите, как задать цвет шрифта в 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, 31.01.2009 в 17:16. |