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