From 524faddf7e5d62dfefb1c298bcd97779de95faaa Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Tue, 23 Feb 2010 23:15:08 +0000
Subject: [PATCH] Fix enabled EXPLAIN link on startup and avoid AVs on click,
 as long as no FocusChanged event has fired.

---
 source/main.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/source/main.pas b/source/main.pas
index 7aaec9bf..042e4a45 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -7924,6 +7924,7 @@ begin
   vt := Sender as TVirtualStringTree;
   if vt.Tag <> VTREE_NOTLOADED then
     Exit;
+  vt.OnFocusChanged(vt, vt.FocusedNode, vt.FocusedColumn);
   Sel := GetVTCaptions(vt, True);
   DeInitializeVTNodes(vt);
   Screen.Cursor := crHourglass;