procedure TGUITestRunner.Setup;
var
i: Integer;
node: TTreeNode;
begin
FailureListView.Items.Clear;
ProgressBar.Position := 0;
ScoreBar.Position := 0;
TProgressBarCrack(ScoreBar).ParentColor := true;
with ResultsView.Items[0] do
begin
if FSuite <> nil then
begin
SubItems[0] := IntToStr(FSuite.countEnabledTestCases);
end
else
begin
SubItems[0] := '';
end;
SubItems[1] := '';
SubItems[2] := '';
SubItems[3] := '';
SubItems[4] := '';
end;
if FSuite <> nil then
begin
ProgressBar.Max := FSuite.countEnabledTestCases;
end
else
begin
ProgressBar.Max:= 10000;
end;
ScoreBar.Max := ProgressBar.Max;
for i := 0 to TestTree.Items.Count - 1 do
begin
node := TestTree.Items[i];
node.ImageIndex := imgNONE;
node.SelectedIndex := imgNONE;
end;
UpdateTestTreeState;
End; |