From 63557fe8528d39afbb2522d9e898d913a5bd6cfd Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sat, 20 Mar 2010 21:08:32 +0000
Subject: [PATCH] Disconnect from server must be the last thing to do in
 FormClose, as other (repaint) actions can implicitly trigger some database
 query. Fixes issue #1780.

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

diff --git a/source/main.pas b/source/main.pas
index 6a7a5307..183211cf 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -1141,9 +1141,6 @@ begin
   FreeAndNil(CreateDatabaseForm);
   FreeAndNil(SearchReplaceDialog);
 
-  // Close database connection
-  DoDisconnect;
-
   OpenRegistry;
   // Position of Toolbars
   MainReg.WriteInteger(REGNAME_TOOLBAR2LEFT, ToolBarStandard.Left);
@@ -1194,6 +1191,10 @@ begin
     MainReg.CloseKey;
     MainReg.Free;
   end;
+
+  // Close database connection at the very end, otherwise above stuff can implicitely
+  // trigger some database query, e.g. DBtree.GetText
+  DoDisconnect;
 end;