TestingEnds method

Applies to
TDUnitDialog

Declaration
Procedure TestingEnds(testResult :TTestResult);

Implementation

procedure TDUnitDialog.TestingEnds(testResult :TTestResult);
begin
  if testResult.wasSuccessful then
  begin
    TProgressBarCrack(ScoreBar).Color := clOK;
    ScoreBar.Position := 0;
  end;
End;


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