ExpandAllNodesActionExecute method |
Applies to
TDUnitDialog
Declaration
Procedure ExpandAllNodesActionExecute(Sender: TObject);Implementation
procedure TDUnitDialog.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; |
|