|
|
|
|
Delphi 1
Рисование текста в DBGrid II
Для отображения таблицы я использую 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.
Eryk [000673]
|
|
|
|
|