paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 14:37:48 +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
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

13
tools/lazdatadesktop/frmmain.pp
View File

@ -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);