Проверить, развернут ли или свернут полностью TTreeViewDelphi , Компоненты и Классы , TTreeViewПроверить, развернут ли или свернут полностью 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; В статье описаны функции на языке Delphi для проверки, развернут ли или свернут полностью компонент TTreeView в приложении. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |