CollapseNonGrandparentNodes method |
Applies to
TGUITestRunner
Declaration
Procedure CollapseNonGrandparentNodes(RootNode: TTreeNode);Implementation
procedure TGUITestRunner.CollapseNonGrandparentNodes(RootNode: TTreeNode); var AChildNode: TTreeNode; begin if not NodeIsGrandparent(RootNode) then RootNode.Collapse(false); AChildNode := RootNode.GetFirstChild; while AChildNode <> nil do begin CollapseNonGrandparentNodes(AChildNode); AChildNode := RootNode.GetNextChild(AChildNode); end; End; |
|