From bb5c3f40da55d64cdb0c879c9291fdba34459c84 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Mon, 16 Nov 2009 19:16:45 +0000
Subject: [PATCH] Prevent query memo height being reduced to 0 pixels, which
 makes it non resizable for some reason. Fixes issue #1147.

---
 source/main.dfm | 1 +
 source/main.pas | 1 +
 2 files changed, 2 insertions(+)

diff --git a/source/main.dfm b/source/main.dfm
index 3e9bace7..86256683 100644
--- a/source/main.dfm
+++ b/source/main.dfm
@@ -1231,6 +1231,7 @@ object MainForm: TMainForm
             Height = 4
             Cursor = crSizeNS
             Align = alTop
+            AutoSnap = False
             ResizeStyle = rsUpdate
           end
           object LabelResultinfo: TLabel
diff --git a/source/main.pas b/source/main.pas
index f2b77ab6..aa74be40 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -8451,6 +8451,7 @@ begin
   QueryTab.spltQuery.Height := spltQuery.Height;
   QueryTab.spltQuery.Cursor := spltQuery.Cursor;
   QueryTab.spltQuery.ResizeStyle := spltQuery.ResizeStyle;
+  QueryTab.spltQuery.AutoSnap := spltQuery.AutoSnap;
 
   QueryTab.LabelResultInfo := TLabel.Create(QueryTab.TabSheet);
   QueryTab.LabelResultInfo.Parent := QueryTab.TabSheet;