ExpandAllNodesActionExecute method

Applies to
TGUITestRunner

Declaration
Procedure ExpandAllNodesActionExecute(Sender: TObject);

Implementation

procedure TGUITestRunner.ExpandAllNodesActionExecute(Sender: TObject);
begin
  TestTree.FullExpand;
  if (TestTree.Selected <> nil) then
    TestTree.Selected.MakeVisible
  else if(TestTree.Items.Count > 0) then
    TestTree.Selected := TestTree.Items[0];
End;


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