From 7bb3cfdfb5b554a271826eb28dda0e462b8248a5 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Mon, 8 Mar 2010 23:23:37 +0000
Subject: [PATCH] Ensure both overloaded SelectNode procs do the same with the
 desired node.

---
 source/helpers.pas | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/source/helpers.pas b/source/helpers.pas
index 7ae61f03..3987b7df 100644
--- a/source/helpers.pas
+++ b/source/helpers.pas
@@ -2695,10 +2695,9 @@ begin
     Node := VT.GetFirst;
   while Assigned(Node) do begin
     if Node.Index = idx then begin
-      VT.FocusedNode := Node;
-      VT.Selected[Node] := True;
-    end else
-      VT.Selected[Node] := False;
+      SelectNode(VT, Node);
+      break;
+    end;
     Node := VT.GetNextSibling(Node);
   end;
 end;