Рисование текста в DBGrid 2
Для отображения таблицы я использую DBGrid. Для некоторых полей я хочу применить другой шрифт, размер, цвет...
Вам необходимо обработать событие OnDrawDataCell, например так:
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const
Rect: TRect; Field: TField; State: TGridDrawState);
begin
if Field.FieldName = 'SERIAL' then
if (Field as TStringField).Value = 'НЕИЗВЕСТНО' then with (Sender as TDBGrid).Canvas do
begin
Brush.Color := clRed;
Font.Style := [fsItalic];
Font.Color := clAqua;
FillRect(Rect);
TextOut(Rect.Left, Rect.Top, Field.AsString);
end;
end; |
....BTW, выключите DefaultDrawing.
