AddError method |
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; |
|