FillTestTree method

Applies to
TDUnitDialog

Declaration
Procedure FillTestTree(RootNode: TTreeNode; ATest: ITest);

Implementation

procedure TDUnitDialog.FillTestTree(RootNode: TTreeNode; ATest: ITest);
var
  Tests: IInterfaceList;
  i:     Integer;
  index: Integer;
begin
  if ATest = nil then
    EXIT;

  RootNode := TestTree.Items.AddChild(RootNode, ATest.Name);

  index := FTests.Add(ATest);
  RootNode.data := Pointer(index);

  RootNode.StateIndex := imgENABLED;
  Tests := ATest.Tests;
  for i := 0 to Tests.count - 1 do
  begin
    FillTestTree(RootNode, Tests[i] as ITest);
  end;
End;


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