Fix duplication of query tab controls, when it comes to aligning the …

…query helpers tree. See http://www.heidisql.com/forum.php?t=20041
HeidiSQL · Dec 7, 2015 · 80990b8 · 80990b8
1 parent 636c220
commit 80990b8
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/source/main.dfm b/source/main.dfm
@@ -1343,6 +1343,7 @@ object MainForm: TMainForm
               Width = 191
               Height = 96
               Align = alRight
+              Constraints.MinWidth = 10
               DragMode = dmAutomatic
               DragType = dtVCL
               Header.AutoSizeIndex = 0

diff --git a/source/main.pas b/source/main.pas
@@ -9746,6 +9746,7 @@ procedure TMainForm.actNewQueryTabExecute(Sender: TObject);
   QueryTab.Memo := TSynMemo.Create(QueryTab.pnlMemo);
   QueryTab.Memo.Parent := QueryTab.pnlMemo;
   QueryTab.Memo.Align := SynMemoQuery.Align;
+  QueryTab.Memo.Left := SynMemoQuery.Left;
   QueryTab.Memo.Options := SynMemoQuery.Options;
   QueryTab.Memo.PopupMenu := SynMemoQuery.PopupMenu;
   QueryTab.Memo.TabWidth := SynMemoQuery.TabWidth;
@@ -9766,14 +9767,17 @@ procedure TMainForm.actNewQueryTabExecute(Sender: TObject);
   QueryTab.spltHelpers := TSplitter.Create(QueryTab.pnlMemo);
   QueryTab.spltHelpers.Parent := QueryTab.pnlMemo;
   QueryTab.spltHelpers.Align := spltQueryHelpers.Align;
+  QueryTab.spltHelpers.Left := spltQueryHelpers.Left;
   QueryTab.spltHelpers.Cursor := spltQueryHelpers.Cursor;
   QueryTab.spltHelpers.ResizeStyle := spltQueryHelpers.ResizeStyle;
   QueryTab.spltHelpers.Width := spltQueryHelpers.Width;
 
   QueryTab.treeHelpers := TVirtualStringTree.Create(QueryTab.pnlMemo);
   QueryTab.treeHelpers.Parent := QueryTab.pnlMemo;
   QueryTab.treeHelpers.Align := treeQueryHelpers.Align;
+  QueryTab.treeHelpers.Left := treeQueryHelpers.Left;
   QueryTab.treeHelpers.Width := treeQueryHelpers.Width;
+  QueryTab.treeHelpers.Constraints.MinWidth := treeQueryHelpers.Constraints.MinWidth;
   QueryTab.treeHelpers.PopupMenu := treeQueryHelpers.PopupMenu;
   QueryTab.treeHelpers.Images := treeQueryHelpers.Images;
   QueryTab.treeHelpers.DragMode := treeQueryHelpers.DragMode;