paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 08:19:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add splitter between recent items and items tab

Browse Source 
git-svn-id: trunk@51120 -
This commit is contained in:
michael 2016-01-02 13:29:34 +00:00
parent 69da281d6c
commit 8005aedc44
2 changed files with 24 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
tools/lazdatadesktop/frmmain.lfm
View File

@ -128,7 +128,7 @@ object MainForm: TMainForm
Left = 0 Left = 0
Height = 418 Height = 418
Top = 26 Top = 26
Width = 466 Width = 458
ActivePage = TSAll ActivePage = TSAll
Align = alClient Align = alClient
Images = ILMain Images = ILMain
@ -137,7 +137,7 @@ object MainForm: TMainForm
object TSRecent: TTabSheet object TSRecent: TTabSheet
Caption = 'Dictionaries' Caption = 'Dictionaries'
ClientHeight = 380 ClientHeight = 380
ClientWidth = 458 ClientWidth = 450
ImageIndex = 19 ImageIndex = 19
object LVDicts: TListView object LVDicts: TListView
Left = 0 Left = 0
@ -172,7 +172,7 @@ object MainForm: TMainForm
object TSConnections: TTabSheet object TSConnections: TTabSheet
Caption = 'Connections' Caption = 'Connections'
ClientHeight = 380 ClientHeight = 380
ClientWidth = 458 ClientWidth = 450
ImageIndex = 16 ImageIndex = 16
object LVConnections: TListView object LVConnections: TListView
Left = 0 Left = 0
@ -210,13 +210,13 @@ object MainForm: TMainForm
object TSAll: TTabSheet object TSAll: TTabSheet
Caption = 'Connections/Dictionaries' Caption = 'Connections/Dictionaries'
ClientHeight = 380 ClientHeight = 380
ClientWidth = 458 ClientWidth = 450
ImageIndex = 17 ImageIndex = 17
object TVAll: TTreeView object TVAll: TTreeView
Left = 0 Left = 0
Height = 380 Height = 380
Top = 0 Top = 0
Width = 458 Width = 450
Align = alClient Align = alClient
DefaultItemHeight = 16 DefaultItemHeight = 16
Images = ILMain Images = ILMain
@ -264,6 +264,14 @@ object MainForm: TMainForm
Images = ILMain Images = ILMain
TabOrder = 3 TabOrder = 3
end end
object SRecent: TSplitter
Left = 458
Height = 418
Top = 26
Width = 8
Align = alRight
ResizeAnchor = akRight
end
object MainMenu1: TMainMenu object MainMenu1: TMainMenu
Images = ILMain Images = ILMain
left = 40 left = 40

13
tools/lazdatadesktop/frmmain.pp
View File

@ -127,6 +127,7 @@ type
ODDD: TOpenDialog; ODDD: TOpenDialog;
PCRecent: TPageControl; PCRecent: TPageControl;
SDDD: TSaveDialog; SDDD: TSaveDialog;
SRecent: TSplitter;
TSAll: TTabSheet; TSAll: TTabSheet;
TBAddIndex: TToolButton; TBAddIndex: TToolButton;
TBCreateCode: TToolButton; TBCreateCode: TToolButton;
@ -414,7 +415,9 @@ begin
FN:=SysToUTF8(GetAppConfigFile(False)); FN:=SysToUTF8(GetAppConfigFile(False));
PSMain.IniFileName:=ChangeFileExt(FN,'.ini'); PSMain.IniFileName:=ChangeFileExt(FN,'.ini');
FTreeIntf:=PSMain.ReadBoolean('TreeInterface',True); 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:=TVAll.Items.AddChild(Nil,sld_Connections);
FNRecentConnections.ImageIndex:=16; FNRecentConnections.ImageIndex:=16;
FNRecentDictionaries:=TVAll.Items.AddChild(Nil,sld_Dictionaries); FNRecentDictionaries:=TVAll.Items.AddChild(Nil,sld_Dictionaries);
@ -446,7 +449,9 @@ begin
begin begin
PCDD:=PCItems; PCDD:=PCItems;
PCRecent.Align:=alLeft; PCRecent.Align:=alLeft;
PCRecent.Width:=300; //PCRecent.Width:=300;
SRecent.Align:=alLeft;
SRecent.Visible:=True;
PCItems.Visible:=True; PCItems.Visible:=True;
PCItems.Align:=alClient; PCItems.Align:=alClient;
end end
@ -454,6 +459,8 @@ begin
begin begin
PCItems.Align:=alRight; PCItems.Align:=alRight;
PCItems.Visible:=False; PCItems.Visible:=False;
SRecent.Align:=alRight;
SRecent.Visible:=False;
PCRecent.Align:=alClient; PCRecent.Align:=alClient;
PCDD:=PCRecent; PCDD:=PCRecent;
end; end;
@ -465,6 +472,8 @@ begin
FreeAndNil(FRecentConnections); FreeAndNil(FRecentConnections);
FreeAndNil(FRecentDicts); FreeAndNil(FRecentDicts);
PSMain.WriteBoolean('TreeInterface',FTreeIntf); PSMain.WriteBoolean('TreeInterface',FTreeIntf);
if FTreeIntf then
PSMain.WriteInteger('TreeWidth',PCRecent.Width);
end; end;
procedure TMainForm.FormShow(Sender: TObject); procedure TMainForm.FormShow(Sender: TObject);