TestTreeClick method

Applies to
TGUITestRunner

Declaration
Procedure TestTreeClick(Sender: TObject);

Implementation

procedure TGUITestRunner.TestTreeClick(Sender: TObject);
var
  node: TTreeNode;
  HitInfo: THitTests;
  Pos: TPoint;
  i : Integer;
begin
  if FRunning then
    EXIT;

  GetCursorPos(Pos);
  Pos := TestTree.ScreenToClient(Pos);
  with Pos do
  begin
    HitInfo := TestTree.GetHitTestInfoAt(X, Y);
    node := TestTree.GetNodeAt(X, Y);
  end;
  if (node <> nil) and (HtOnStateIcon in HitInfo) then
  begin
    SwitchNodeState(node);
  end;

  FailureListView.Selected := nil;
  for i := 0 to FailureListView.Items.count - 1 do
  begin
    if TTreeNode(FailureListView.Items[i].Data) = TestTree.Selected then
    begin
      FailureListView.Selected := FailureListView.Items[i];
      break;
    end;
  end;
  UpdateStatus;
End;


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