Рисование в заголовке TDBGrid

← →
Vetal (2003-04-16 16:30) [0]

Всем привет!

Хочу рисовать свой заголовок (Title) вместо стандартного в компоненте TDBGrid. Как это можно сделать? События OnDrawColumnCell при перерисовке заголовка не происходит, в отличие от остальных ячеек.
Подскажите пожалуйста. Всем заранее спасибо

← →
sniknik (2003-04-16 17:03) [1]

нужно переопределять
TMyDBGrid = class(TDBGrid)
procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); override;

....

и рисовать в нем.

← →
Vetal (2003-04-16 18:15) [2]

Спасибо.
Извини, но ламерский вопрос. Что ты подразумеваешь под "переопределять" - создавать новый компонент с базовым классом TDBGrid?

← →
Polevi (2003-04-16 18:31) [3]

override;

← →
Vetal (2003-04-16 18:40) [4]

Подождите! Кто такой TMyDBGrid - это наследник. Я так понимаю, чтобы создать такой класс и поместить его на форму, необходимо создать новый компонент - или как?

← →
Polevi (2003-04-16 18:55) [5]

или создавать динамически

procedure TForm1.FormCreate(Sender: TObject);
begin
with TMyDBGrid.Create(self) do
begin
Parent:=self;
Align:=alClient;
end;
end;

← →
Vetal (2003-04-16 19:19) [6]

Почему я вообще завел этот топик:
Думал в событии на рисование грида сделать следующее: если ячейка фиксированная и нужная мне колонка, то рисовать рисунок на ячейке.
Описание события:
TDrawColumnCellEvent = procedure (Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState) of object;
Где TGridDrawState = set of (gdSelected, gdFocused, gdFixed);
Так вот, дело в том, что ситуация, когда State = gdFixed никогда не происходит. Почему так происходит, и может можно обойтись без наследования?

← →
sniknik (2003-04-16 21:16) [7]

чего ж ты мыло не указываеш? а я уж хотел пример выслать....

← →
Vetal (2003-04-17 12:38) [8]

Указал мыло. Вышли пожалуйста!

Буду очень признателен. Заранее спасибо.

Рисование в заголовке TDBGrid Найти похожие ветки