UpdateStatus method

Applies to
TDUnitDialog

Declaration
Procedure UpdateStatus;

Implementation

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;


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