Цикл по TTreeView обходит не все уровни

[x11]

Почему этот цикл "видит" только первый уровень дерева?

Тогда как правильно организовать поиск нужного TreeViewItem`а по всем узлам, по всему дереву?

 

function TfmTree.FindItemByIndex(id_parent: Integer): TTreeViewItem;
var
  i: Integer;
begin
  Result := nil;
  for i:= 0 to Pred(TreeView1.Count) do
   if TreeView1.Items[i].Tag = id_parent then
    begin
     Result := TreeView1.Items[i];
     break;
    end;
end;                          

 

[x11]

Я так понял, у TTreeView нет методов поиска узлов

Нужно городить свой огород с рекурсией.

[x11]

Почему GlobalCount всегда возвращает количество корневых узлов?

 

function TfmTree.ItemByTag(id: integer): TTreeViewItem;
var
  Item: TTreeViewItem;
  I: Integer;
begin
  Result := nil;
  for I := 0 to Pred(TreeView1.GlobalCount) do
  begin
    Item := TreeView1.ItemByGlobalIndex(I);
    if Item.Tag = id then
      Exit(Item);
  end;
end;

 

[Равиль Зарипов (ZuBy)]

Он возвращает кол-во развернутых (показанных) элементов

[Равиль Зарипов (ZuBy)]

Если написать до цикла ExpandAll то этот код сработает корректно

[x11]

Тут в чем затык. Есть цикл по таблице для заполнения дерева. Получается, что при каждой итерации нужно вызывать ExpandAll.

 

 

Изменено 3 апреля, 2017 пользователем x11

[x11]

Я знаю, что рациональнее заполнять дерево по мере раскрытия узлов. Но нужно иметь возможность поиска по тексту узла. А пока не прогрузишь всё дерево, искать по нему нет возможности.

Поэтому нужно грузить всё дерево целиком.

А у стандартного дерева FMX отсутствуют такие свойства, как в других DBTree-деревьях. Где достаточно указать три основных поля из таблицы: id, parent, name. Не говоря уже о других служебных полях.

[Brovin Yaroslav]

Посмотрите на метод http://docwiki.embarcadero.com/Libraries/Seattle/en/FMX.Controls.TControl.EnumControls он создан для удобного обхода по всему дереву контролов. Просто проверяйте класс входного параметра и делайте ваш поиск.

 

[kami]

TreeView.ItemByGlobalIndex

 

[Равиль Зарипов (ZuBy)]

10 минут назад, kami сказал:

TreeView.ItemByGlobalIndex

 

работает только с раскрытым списком

[kami]

Только что, Равиль Зарипов (ZuBy) сказал:

работает только с раскрытым списком

Ну, чукча не читатель, чукча писатель

Не посмотрел что обсуждалось ранее, полез сразу в исходники TreeView. Ну, тогда только рекурсия остается...

[x11]

7 часов назад, Brovin Yaroslav сказал:

Посмотрите на метод http://docwiki.embarcadero.com/Libraries/Seattle/en/FMX.Controls.TControl.EnumControls он создан для удобного обхода по всему дереву контролов. Просто проверяйте класс входного параметра и делайте ваш поиск.

 

 

Примеров, случайно нет?

[Brovin Yaroslav]

Только что, x11 сказал:

Примеров, случайно нет?

Так на странице документации есть пример.

[x11]

просто там что-то страшное и на delphi не похожее

Panel1.EnumControls(function (Control: TControl): TEnumControlsResult

 

[x11]

я бы сказал, что непривычное для Delphi

[Brovin Yaroslav]

Придется прокачать скилы. Я за вас делфи не могу выучить.

[x11]

Как правило, Delphi - это же что-то красивое и изящное, извините за оффтоп

Изменено 3 апреля, 2017 пользователем x11

[x11]

Пока непонятно, что такое ListOfVisibleControls. Это список мой? Я сам должен где-то объявить и создать? Какого типа? Это глобальный объект или локальный?

Изменено 3 апреля, 2017 пользователем x11

[x11]

Получается, что метод GlobalCount неправильно назван и вводит программиста в заблуждение. Его бы правильно назвать - VisibleCount или ExpandedCount.

[Равиль Зарипов (ZuBy)]

вот пример с EnumControls и ItemByGlobalIndex

никаких проверок не писал, а они нужны в реальном проекте

TreeViewSearch.zip

[x11]

Спасибо, ушёл, изучать.

[Вадим Смоленский]

Спрошу в порядке оффтопика: почему у вас так причудливо обозначена верхняя граница цикла? Зачем это Pred(TreeView1.Count)? Чем хуже простое  TreeView1.Count-1 ?

[x11]

не знаю, новшества языка использую

[DENWEB]

А чем не нравится рекурсия? я обычно через рекурсию обхожу по дереву, всего 2 функции, при желании в 1 можно.