From 7ed97b3fe2f989b19bd282ae00c64de8e7b4871d Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Mon, 20 Oct 2008 22:36:17 +0000
Subject: [PATCH] Fix bug #814 Query Tab Splitter

---
 source/childwin.dfm |  2 ++
 source/childwin.pas | 20 ++++++++++++++++++++
 2 files changed, 22 insertions(+)

diff --git a/source/childwin.dfm b/source/childwin.dfm
index 1e0d34cb..b15dd736 100644
--- a/source/childwin.dfm
+++ b/source/childwin.dfm
@@ -1007,6 +1007,7 @@ object MDIChild: TMDIChild
           BevelOuter = bvNone
           Constraints.MinHeight = 10
           TabOrder = 0
+          OnCanResize = pnlQueryMemoCanResize
           object spltQueryHelpers: TSplitter
             Left = 332
             Top = 0
@@ -1078,6 +1079,7 @@ object MDIChild: TMDIChild
             Align = alRight
             BevelOuter = bvNone
             TabOrder = 1
+            OnCanResize = pnlQueryHelpersCanResize
             object tabsetQueryHelpers: TTabSet
               Left = 0
               Top = 72
diff --git a/source/childwin.pas b/source/childwin.pas
index 6e0092b9..cd8eb8d0 100644
--- a/source/childwin.pas
+++ b/source/childwin.pas
@@ -454,6 +454,10 @@ type
       var Allowed: Boolean);
     procedure GridFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode;
       Column: TColumnIndex);
+    procedure pnlQueryHelpersCanResize(Sender: TObject; var NewWidth,
+      NewHeight: Integer; var Resize: Boolean);
+    procedure pnlQueryMemoCanResize(Sender: TObject; var NewWidth,
+      NewHeight: Integer; var Resize: Boolean);
 
     private
       uptime                     : Integer;
@@ -6622,4 +6626,20 @@ begin
 end;
 
 
+procedure TMDIChild.pnlQueryHelpersCanResize(Sender: TObject; var NewWidth,
+  NewHeight: Integer; var Resize: Boolean);
+begin
+  // Ensure minimum width for query helpers while resizing
+  Resize := NewWidth >= 20;
+end;
+
+
+procedure TMDIChild.pnlQueryMemoCanResize(Sender: TObject; var NewWidth,
+  NewHeight: Integer; var Resize: Boolean);
+begin
+  // Ensure visibility of query memo while resizing
+  Resize := NewWidth >= pnlQueryHelpers.Width + spltQueryHelpers.Width + 40;
+end;
+
+
 end.