Рисование текста в 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;
|
|
|
|
|
Всё о свадебной моде: свадебные аксессуары. Что подарить на свадьбу? . купить лицензию 3ds Max 2012 . Ведём поиск дилеров и партнёров - как стать дилером. . Строительство коттеджей треугольное. Проектирование и строительство домов коттеджей. . Межкомнатные Белорусские двери из массива купить в Москве . |
