AddFailure method

Applies to
TDUnitDialog

Declaration
Procedure AddFailure(failure: TTestFailure);

Implementation

procedure TDUnitDialog.AddFailure(failure: TTestFailure);
var
  ListItem: TListItem;
begin
  UpdateStatus;
  ListItem := AddFailureItem(failure);
  ListItem.ImageIndex := 0;
  if testResult.errorCount = 0 then
  begin
     TProgressBarCrack(ScoreBar).Color := clFAILURE;
  end;
  SetTreeNodeImage(TestToNode(failure.failedTest), imgFAILED);
End;


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