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