Сортировка с использованием функции TTreeView.Sort

[i.r.khayrullin 1]

Добрый день!

 

Пытаюсь отсортировать элементы дерева таким образом:

procedure TForm1.SortTreeItemsClick(Sender: TObject);
begin
  TreeView1.Sort(MySortTree);
  TreeView1.RealignContent;
end;

Элементы дерева приводятся на свое место, но их отображение прекращается. Некоторые элементы видны как фантомы, некоторые - пустые строки. 

 

Перепробовал всё, пытаясь обновить дерево, ничего не удалось. Демка во вложении, там есть работающий вариант с ListBox.

TestingSort.zip

[enatechno 231]

По приложенному примеру:

1. в MySortTree нужно TTreeViewItem вместо TListBoxItem.
2. при работе с TListBox и TTreeVew (заполнение и пр.) рекомендую использовать .BeginUpdate и .EndUpdate.

По проблеме:
Так вроде показывает без фантомов:

procedure TForm1.SortTreeItemsClick(Sender: TObject);
begin
  TreeView1.BeginUpdate;
  try
    TreeView1.Sort(MySortTree);
    TreeView1.ExpandAll;
  finally
    TreeView1.EndUpdate;
  end;
end;

P.S. А Вы используете какое-то особое правило сортировки? Если нет, рекомендую просто использовать TreeView1.Sorted := true для автоматической сортировки в алфавитном порядке по тексту в айтемах.

Отредактировал 12 февраля, 2016 Brovin Yaroslav

[i.r.khayrullin 1]

1. Да, ошибка вышла, торопился написать пример. В рабочем проекте, конечно никаких ListBoxItem небыло.
2. Спасибо, обычно использую. Просто старался минимизировать пример, что бы найти проблему методом "проб". Пробовал и том числе и BeginUpdate - не помогало.

А вот про ExpandAll я бы не догадался. Почему так? Не понимаю.

procedure TCustomTreeView.ExpandAll;
var
  i: Integer;
  Item: TTreeViewItem;
begin
  BeginUpdate;
  try
    for i := Count - 1 downto 0 do
    begin
      Item := Items[i];
      if Item <> nil then
        Item.ExpandAll;
    end;
  finally
    EndUpdate;
  end;
end;

Не пойму, что в этом коде заставляет TreeView "обновиться"? Отдельно конструкция BegniUpdate > EndUpdate не работает.

 

По поводу Sorted:= True, да, в моем проекте элементы будут сортироваться по определенным правилам. На верхнем уровне сортировки вообще не будет. 

 

Спасибо.

[Brovin Yaroslav 2 111]

Выравнивать итемы заставляет метод EndUpdate. Но только, если были внутри секции BeginUpdate/EndUpdate были изменения требующие выравнивания.

 

Если хотите форсировать выравнивание, это можно сделать так:

(TreeView1 as IAlignRoot).Realign;

[Brovin Yaroslav 2 111]

Чтобы отсортировать TTreeView нужно делать так:

1. Устанавливаете свойство TTreeView.Sorted = True
2. Задаем обработчик сравнения TTreeView.OnCompare.