From 8005aedc444daf45c5e3b9e5fff96ed34414979a Mon Sep 17 00:00:00 2001
From: michael <michael@lazarus-ide.org>
Date: Sat, 2 Jan 2016 13:29:34 +0000
Subject: [PATCH] * Add splitter between recent items and items tab

git-svn-id: trunk@51120 -
---
 tools/lazdatadesktop/frmmain.lfm | 18 +++++++++++++-----
 tools/lazdatadesktop/frmmain.pp  | 13 +++++++++++--
 2 files changed, 24 insertions(+), 7 deletions(-)

diff --git a/tools/lazdatadesktop/frmmain.lfm b/tools/lazdatadesktop/frmmain.lfm
index 5ca0eabb80..0f866d5cbd 100644
--- a/tools/lazdatadesktop/frmmain.lfm
+++ b/tools/lazdatadesktop/frmmain.lfm
@@ -128,7 +128,7 @@ object MainForm: TMainForm
     Left = 0
     Height = 418
     Top = 26
-    Width = 466
+    Width = 458
     ActivePage = TSAll
     Align = alClient
     Images = ILMain
@@ -137,7 +137,7 @@ object MainForm: TMainForm
     object TSRecent: TTabSheet
       Caption = 'Dictionaries'
       ClientHeight = 380
-      ClientWidth = 458
+      ClientWidth = 450
       ImageIndex = 19
       object LVDicts: TListView
         Left = 0
@@ -172,7 +172,7 @@ object MainForm: TMainForm
     object TSConnections: TTabSheet
       Caption = 'Connections'
       ClientHeight = 380
-      ClientWidth = 458
+      ClientWidth = 450
       ImageIndex = 16
       object LVConnections: TListView
         Left = 0
@@ -210,13 +210,13 @@ object MainForm: TMainForm
     object TSAll: TTabSheet
       Caption = 'Connections/Dictionaries'
       ClientHeight = 380
-      ClientWidth = 458
+      ClientWidth = 450
       ImageIndex = 17
       object TVAll: TTreeView
         Left = 0
         Height = 380
         Top = 0
-        Width = 458
+        Width = 450
         Align = alClient
         DefaultItemHeight = 16
         Images = ILMain
@@ -264,6 +264,14 @@ object MainForm: TMainForm
     Images = ILMain
     TabOrder = 3
   end
+  object SRecent: TSplitter
+    Left = 458
+    Height = 418
+    Top = 26
+    Width = 8
+    Align = alRight
+    ResizeAnchor = akRight
+  end
   object MainMenu1: TMainMenu
     Images = ILMain
     left = 40
diff --git a/tools/lazdatadesktop/frmmain.pp b/tools/lazdatadesktop/frmmain.pp
index 38de3c861b..f6b1dafec7 100644
--- a/tools/lazdatadesktop/frmmain.pp
+++ b/tools/lazdatadesktop/frmmain.pp
@@ -127,6 +127,7 @@ type
     ODDD: TOpenDialog;
     PCRecent: TPageControl;
     SDDD: TSaveDialog;
+    SRecent: TSplitter;
     TSAll: TTabSheet;
     TBAddIndex: TToolButton;
     TBCreateCode: TToolButton;
@@ -414,7 +415,9 @@ begin
   FN:=SysToUTF8(GetAppConfigFile(False));
   PSMain.IniFileName:=ChangeFileExt(FN,'.ini');
   FTreeIntf:=PSMain.ReadBoolean('TreeInterface',True);
-  // We need these 2 in all cases
+  if FTreeIntf then
+    PCRecent.Width:=PSMain.ReadInteger('TreeWidth',PCRecent.Width);
+// We need these 2 in all cases
   FNRecentConnections:=TVAll.Items.AddChild(Nil,sld_Connections);
   FNRecentConnections.ImageIndex:=16;
   FNRecentDictionaries:=TVAll.Items.AddChild(Nil,sld_Dictionaries);
@@ -446,7 +449,9 @@ begin
     begin
     PCDD:=PCItems;
     PCRecent.Align:=alLeft;
-    PCRecent.Width:=300;
+    //PCRecent.Width:=300;
+    SRecent.Align:=alLeft;
+    SRecent.Visible:=True;
     PCItems.Visible:=True;
     PCItems.Align:=alClient;
     end
@@ -454,6 +459,8 @@ begin
     begin
     PCItems.Align:=alRight;
     PCItems.Visible:=False;
+    SRecent.Align:=alRight;
+    SRecent.Visible:=False;
     PCRecent.Align:=alClient;
     PCDD:=PCRecent;
     end;
@@ -465,6 +472,8 @@ begin
   FreeAndNil(FRecentConnections);
   FreeAndNil(FRecentDicts);
   PSMain.WriteBoolean('TreeInterface',FTreeIntf);
+  if FTreeIntf then
+    PSMain.WriteInteger('TreeWidth',PCRecent.Width);
 end;
 
 procedure TMainForm.FormShow(Sender: TObject);