Проверить, развернут ли или свернут полностью TTreeView

Delphi , Компоненты и Классы , TTreeView

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

function IsTreeviewFullyExpanded(tv: TTreeview): Boolean;
 var
   Node: TTreeNode;
 begin
   Assert(Assigned(tv));
   if tv.Items.Count > 0 then
   begin
     Node   := tv.Items[0];
     Result := True;
     while Result and Assigned(Node) do
     begin
       Result := Node.Expanded or not Node.HasChildren;
       Node   := Node.GetNext;
     end; {While}
   end {If}
   else
     Result := False
 end;

 function IsTreeviewFullyCollapsed(tv: TTreeview): Boolean;
 var
   Node: TTreeNode;
 begin
   Assert(Assigned(tv));
   if tv.Items.Count > 0 then
   begin
     Node   := tv.Items[0];
     Result := True;
     while Result and Assigned(Node) do
     begin
       Result := not (Node.Expanded and Node.HasChildren);
       Node   := Node.GetNext;
     end; {While}
   end {If}
   else
     Result := False
 end;

Перевод контента на русский язык:

Два функции Delphi, IsTreeviewFullyExpanded и IsTreeviewFullyCollapsed, проверяют, является ли TTreeView полностью раскрытым или сжатым. Вот подробное описание, что каждая функция делает:

IsTreeviewFullyExpanded

Эта функция проверяет, является ли TTreeView полностью раскрытым, рекурсивно проходимся по его узлам от корневого узла до листьев.

1. Она сначала проверяет, есть ли в дереве какие-либо элементы (то есть, если оно не пусто).
2. Если это не пусто, она устанавливает Node в первый элемент в дереве.
3. Функция затем вступает в цикл while, который продолжается, пока Node присваивается и Result остается истинным.
4. Внутри цикла функция проверяет две условия:
   • Node.Expanded: если узел раскрыт, это означает, что мы достигли листового узла или раскрытого узла без детей. В этом случае Result остается истинным.
   • not Node.HasChildren: если узел имеет детей и не раскрыт, это означает, что есть еще узлы для проходимости. В этом случае Result становится ложным, и цикл продолжается.
5. Функция затем переходит к следующему узлу с помощью Node.GetNext.
6. Если дерево пусто, функция возвращает False.

IsTreeviewFullyCollapsed

Эта функция проверяет, является ли TTreeView полностью сжатым, рекурсивно проходимся по его узлам от корневого узла до листьев.

1. Она сначала проверяет, есть ли в дереве какие-либо элементы (то есть, если оно не пусто).
2. Если это не пусто, она устанавливает Node в первый элемент в дереве.
3. Функция затем вступает в цикл while, который продолжается, пока Node присваивается и Result остается истинным.
4. Внутри цикла функция проверяет два условия:
   • not (Node.Expanded and Node.HasChildren) : если узел не раскрыт или он имеет детей, мы достигли листового узла или сжатого узла без детей. В этом случае Result остается истинным.
   • Node.Expanded and Node.HasChildren : если узел раскрыт и имеет детей, это означает, что есть еще узлы для проходимости. В этом случае Result становится ложным, и цикл продолжается.
5. Функция затем переходит к следующему узлу с помощью Node.GetNext.
6. Если дерево пусто, функция возвращает False.

В целом, эти функции проверяют, является ли TTreeView полностью раскрытым, рекурсивно проходимся по его узлам и проверяем на наличие листовых узлов или раскрытых узлов без детей. Они также имеют альтернативные реализации, которые проверяют сжатые узлы без детей.

В статье описаны функции на языке Delphi для проверки, развернут ли или свернут полностью компонент TTreeView в приложении.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TTreeView ::