VPF::Отрисовка названий колонок в DBGrid

MaXL

Дата 19.3.2008, 09:52 (ссылка)

(нет голосов)

Загрузка ...

Developer

Профиль
Группа: Участник
Сообщений: 380
Регистрация: 24.10.2005
Где: Владивосток

Репутация: нет
Всего: 2

Всем привет.
Есть DBGrid, необходимо добавить сортировку по полям, которые он отображает. Сортировку сделал, при нажатии на заголовки колонок. Теперь необходимо сделать так, чтобы рисовался треугольник, в заголовке колонок.
Перегрузка следующих методов DBGrid'а ничего не дала:

Код


procedure DirectoryDbGridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);

procedure DirectoryDbGridDrawDataCell(Sender: TObject;
  const Rect: TRect; Field: TField; State: TGridDrawState);

Как мне можно перехватить отрисовку именно заголовок колонок ?

--------------------

MaXL

Alix

Дата 19.3.2008, 17:29 (ссылка)

(нет голосов)

Загрузка ...

L45

Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

Репутация: 7
Всего: 23

попробуй так: допиши в начало твоего юнита следующее:

Код

type
  TDBGrid = class (DBGrids.TDBGrid)
  protected
    procedure DrawCell(ACol, ARow: Longint;
        ARect: TRect; AState: TGridDrawState); override;
  end;

а потом еще реализацию:

Код

{ TDBGrid }

procedure TDBGrid.DrawCell(ACol, ARow: Integer; ARect: TRect;
  AState: TGridDrawState);
begin
  inherited DrawCell(ACol, ARow, ARect, AState);
  if (ACol <> 0) and (ARow = 0) then begin
    Canvas.Brush.Color := clRed;
    Canvas.FillRect(arect);
  end;
end;

и в ней уже можешь делать что хочешь, треугольнички всегда рисовать или, если хочется, делать вызов OnDrawColumnState корректно заполнив все аргументы, а рисовать уже в событии согласно текущей сортировке.

--------------------

Знание только тогда знание, когда оно приобретено усилиями своей мысли, а не памятью (с) Л. Толстой
High tech. Low live. (с) Gardner Dozois

MaXL

Дата 20.3.2008, 01:35 (ссылка)

(нет голосов)

Загрузка ...

Developer

Профиль
Группа: Участник
Сообщений: 380
Регистрация: 24.10.2005
Где: Владивосток

Репутация: нет
Всего: 2

Alix, спасибо. Работает.
Вопрос решён!

--------------------

MaXL

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »