TDBGrid имеет недокументированный в электронной справке метод DefaultDrawDataCell.
Вот пример его использования:
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); begin with Sender as TDBGrid do begin Canvas.Font.Color := clRed; DefaultDrawDataCell(Rect, Field, State); end; end; |
[000676]