|
|
Регистрация | << Правила форума >> | 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. |
#2
|
||||
|
||||
Код:
with Grid.Canvas do begin Brush.Color:=$008000; // красит фон Font.Color:=$FFFFFF; // красит текст FillRect(Rect); TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text); end; Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
#3
|
|||
|
|||
Спасибо за ответ.
решила сделать проще: Код:
TDBGrid(Sender).Canvas.Font.Color := clblack; |