скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

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



Оформил: DeeCo

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;





Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook