Рисование текста в DBGrid

Решение всех жизненных проблем находится на интернете. Надо только уметь хорошо искать.

Следующий метод может быть использован в качестве обработчика события TDBGrid.OnDrawDataCell. Он демонстрирует способ рисования текста в колонке цветом, отличным от цвета текста в остальной части табличной сетки.

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect:
  TRect; Field: TField; State: TGridDrawState);
  { ПРИМЕЧАНИЕ: Свойство DefaultDrawing компонента
  Grid должно быть установлено в False }
begin
  { если имя поля - "NAME" }
  if Field.FieldName = 'NAME' then
    { изменяем цвет шрифта на красный }
    (Sender as TDBGrid).Canvas.Font.Color := clRed;
  { выводим текст в табличной сетке }
  (Sender as TDBGrid).Canvas.TextRect(Rect, Rect.Left + 2,
    Rect.Top + 2, Field.AsString);
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 460 • TDictionary Custom Sort 6 504 • Fast Watermark Sources 6 290 • 3D Designer 9 236 • Sik Screen Capture 6 624 • Patch Maker 7 001 • Айболит (remote control) 7 009 • ListBox Drag & Drop 5 880 • Доска для игры Реверси 97 112 • Графические эффекты 7 209 • Рисование по маске 6 510 • Перетаскивание изображений 5 375 • Canvas Drawing 5 748 • Рисование Луны 5 457 • Поворот изображения 4 987 • Рисование стержней 3 541 • Paint on Shape 2 810 • Генератор кроссвордов 3 680 • Головоломка Paletto 2 964 • Теорема Монжа об окружностях 3 768 • Пазл Numbrix 2 486 • Заборы и коммивояжеры 3 169 • Игра HIP 2 136 • Игра Go (Го) 2 071 • Симулятор лифта 2 441 • Программа укладки плитки 2 116 • Генератор лабиринта 2 591 • Проверка числового ввода 2 265 • HEX View 2 594 • Физический маятник 2 208