HideTestNodesActionExecute method

Applies to
TGUITestRunner

Declaration
Procedure HideTestNodesActionExecute(Sender: TObject);

Implementation

procedure TGUITestRunner.HideTestNodesActionExecute(Sender: TObject);
var
  ANode: TTreeNode;
begin
  inherited;
  TestTree.Items.BeginUpdate;
  try
    ANode := TestTree.Items[0];
    if ANode <> nil then
    begin
      ANode.Expand(true);
      CollapseNonGrandparentNodes(ANode);
      ANode.Selected := true;
      ANode.MakeVisible;
    end;
  finally
    TestTree.Items.EndUpdate;
  end;
End;


HTML generated by Time2HELP
http://www.time2help.com