Delphi 1
DBGrid DefaultDrawDataCell
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]