UpdateTestTreeState method |
Applies to
TDUnitDialog
Declaration
Procedure UpdateTestTreeState;Implementation
procedure TDUnitDialog.UpdateTestTreeState; var node :TTreeNode; begin if TestTree.Items.Count > 0 then begin TestTree.Items.BeginUpdate; try node := TestTree.Items.GetFirstNode; while node <> nil do begin UpdateNodeState(node); node := node.getNextSibling; end finally TestTree.Items.EndUpdate; end; end; End; |
|