VPF::Как сделать сортировку virtual treeview

ZBugz

Дата 2.12.2011, 13:37 (ссылка)

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

Загрузка ...

Опытный

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

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

Как в новом virtual treeview сделать сортировку по клику хедера ?
В новой версии Revision 320 http://virtual-treeview.googlecode.com/svn/trunk/ убрали все свойстава у header.click

Было

Код


LvHeaderClick(Sender: TVTHeader; Column: TColumnIndex; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

Стало:

Код


LvHeaderClick(Sender: TVTHeader; HitInfo: TVTHeaderHitInfo);

Код бывшего клика:

Код


if Button = mbLeft then
 begin
   with Sender do
    begin
    {$IFDEF SortMainColumnOnly}
     if Column <> MainColumn then
       SortColumn := NoColumn
     else
     begin
      if SortColumn = NoColumn then
       begin
         SortColumn := Column;
         SortDirection := sdAscending;
       end
      else
     {$ELSE}
      SortColumn := Column;
     {$ENDIF}
        if SortDirection = sdAscending then
           SortDirection := sdDescending
         else
           SortDirection := sdAscending;
       Treeview.SortTree(SortColumn, SortDirection, False);
     {$IFDEF SortMainColumnOnly}
    end;
     {$ENDIF}
   end;
 end;

и сравнение колонок:

Код


procedure TMainForm.LvCompareNodes(Sender: TBaseVirtualTree; Node1,
  Node2: PVirtualNode; Column: TColumnIndex; var Result: Integer);
begin
 with TVirtualStringTree(Sender) do
  Result := WideCompareText(Text[Node1, Column], Text[Node2, Column]);
end;

MetalFan

Дата 2.12.2011, 16:24 (ссылка)

(голосов:1)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

Цитата(ZBugz @ 2.12.2011, 13:37

)

убрали все свойстава

Не убрали, а объединили в record.
достаточно написать в начале обработчика

Код


with HitInfo do
begin

а в конце end соответственно.
И все будет работать, как раньше.

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

There are always someone smarter than you...

ZBugz

Дата 2.12.2011, 16:32 (ссылка)

(голосов:1)

Загрузка ...

Опытный

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

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

Спасибо дорогой, все получилось smile

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