TestingEnds method |
Applies to
TGUITestRunner
Declaration
Procedure TestingEnds(testResult :TTestResult);Implementation
procedure TGUITestRunner.TestingEnds(testResult :TTestResult); begin if testResult.wasSuccessful then begin TProgressBarCrack(ScoreBar).Color := clOK; ScoreBar.Position := 0; end; End; |
|