From 75efa8358e033e9b005f1f509dcb9dc16c26b2e5 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sun, 7 Sep 2008 16:01:07 +0000
Subject: [PATCH] Fix bug #728 cannot open the tree with cursor keys after
 starting HeidiSQL

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

diff --git a/source/childwin.pas b/source/childwin.pas
index 7270eb0f..d2cc5483 100644
--- a/source/childwin.pas
+++ b/source/childwin.pas
@@ -3784,9 +3784,10 @@ var
   n: PVirtualNode;
 begin
   n := FindDBNode(db);
-  if Assigned(n) then
-    DBtree.Selected[n] := true
-  else
+  if Assigned(n) then begin
+    DBtree.Selected[n] := true;
+    DBtree.FocusedNode := n;
+  end else
     raise Exception.Create('Database node ' + db + ' not found in tree.');
 end;