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; |
|