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;


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