procedure TDUnitDialog.UpdateStatus;
var
i :Integer;
begin
if FSuite <> nil then
ResultsView.Items[0].SubItems[0] := IntToStr(FSuite.countEnabledTestCases)
else
ResultsView.Items[0].SubItems[0] := '';
if testResult <> nil then
begin
with ResultsView.Items[0] do
begin
SubItems[1] := IntToStr(testResult.runCount);
SubItems[2] := IntToStr(testResult.failureCount);
SubItems[3] := IntToStr(testResult.errorCount);
SubItems[4] := FormatDateTime('h:nn:ss', FRunTime);
end;
FRunTime := now - FSTartTime;
with testResult do begin
ScoreBar.Position := runCount - (failureCount + errorCount);
ProgressBar.Position := testResult.runCount;
end;
end
else begin
with ResultsView.Items[0] do
begin
for i := 1 to 4 do
SubItems[i] := ''
end;
ScoreBar.Position := 0;
ProgressBar.Position := 0;
end;
End; |