SelectFailedActionExecute method

Applies to
TDUnitDialog

Declaration
Procedure SelectFailedActionExecute(Sender: TObject);

Implementation

procedure TDUnitDialog.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;


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