DELPHI/Часто задаваемые вопросы и ответы на них/Компоненты



На главную

Подписка

Новости

Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Компоненты / Рисование текста в DBGrid 2

Рисование текста в DBGrid 2
Автор: Eryk
Для отображения таблицы я использую 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.
Copyright © "DELPHI WORLD" E-mail: delphiworld@mail.ru http://www.delphiworld.narod.ru

Источник получения информации: http://www.delphiworld.narod.ru