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