NodeIsGrandparent method |
Applies to
TGUITestRunner
Declaration
Function NodeIsGrandparent(ANode: TTreeNode): boolean;Implementation
function TGUITestRunner.NodeIsGrandparent(ANode: TTreeNode): boolean; var AChildNode: TTreeNode; begin Result := false; if ANode.HasChildren then begin AChildNode := ANode.GetFirstChild; while AChildNode <> nil do begin Result := AChildNode.HasChildren or Result; AChildNode := ANode.GetNextChild(AChildNode); end; end; End; |
|