AddError method
implement the ITestListener interface

Applies to
TDUnitDialog

Declaration
Procedure AddError(failure: TTestFailure);

Implementation

procedure TDUnitDialog.AddError(failure: TTestFailure);
var
  ListItem: TListItem;
begin
  UpdateStatus;
  ListItem := AddFailureItem(failure);
  ListItem.ImageIndex := imgERROR;
  TProgressBarCrack(ScoreBar).Color := clERROR;

  SetTreeNodeImage(TestToNode(failure.failedTest), imgERROR);
End;


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