Советы по Delphi


              

Рисование текста в 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]



Содержание  Назад  Вперед