SelectFailedActionExecute method |
Applies to
TGUITestRunner
Declaration
Procedure SelectFailedActionExecute(Sender: TObject);Implementation
procedure TGUITestRunner.SelectFailedActionExecute(Sender: TObject); var i: integer; ANode: TTreeNode; begin { deselect all } ApplyToTests(TestTree.Items[0], DisableTest); { select failed } for i := 0 to FailureListView.Items.Count - 1 do begin ANode := TTreeNode(FailureListView.Items[i].Data); SetNodeState(ANode, true); end; UpdateStatus; End; |
|