|
Корреспондент:
- Билл Гейтс, Почему Вы решили оставить ТАКОЙ пост и начать новую трудовую деятельность?
- А надоело руководить, пора начать такой вид деятельности, который бы смог и меня прокормить и мою семью!
|
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;
|
|
DBGrid DefaultDrawDataCell