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

IDE: Improve layout of Toolbar config dialogs. Issue #27770, patch from Balázs Székely.

Browse Source 
git-svn-id: trunk@48619 -
This commit is contained in:
juha 2015-04-04 11:36:01 +00:00
parent e72d7c9c44
commit 48f9c22570
2 changed files with 60 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
components/editortoolbar/edttbconfigfrm.lfm
View File

@ -1,21 +1,24 @@
object EdtTbConfigForm: TEdtTbConfigForm
Left = 375
Left = 676
Height = 457
Top = 200
Top = 302
Width = 772
Caption = 'EdtTbConfigForm'
ClientHeight = 457
ClientWidth = 772
Constraints.MinHeight = 375
Constraints.MinWidth = 450
OnCreate = FormCreate
OnDestroy = FormDestroy
Position = poScreenCenter
LCLVersion = '1.5'
object lblMenuTree: TLabel
AnchorSideLeft.Control = TV
AnchorSideLeft.Side = asrCenter
Left = 170
Height = 17
Left = 173
Height = 15
Top = 14
Width = 73
Width = 67
Caption = 'lblMenuTree'
ParentColor = False
end
@ -23,10 +26,10 @@ object EdtTbConfigForm: TEdtTbConfigForm
AnchorSideLeft.Control = lvToolbar
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = lblMenuTree
Left = 573
Height = 17
Left = 572
Height = 15
Top = 14
Width = 58
Width = 54
Caption = 'lblToolbar'
ParentColor = False
end
@ -110,7 +113,7 @@ object EdtTbConfigForm: TEdtTbConfigForm
AnchorSideRight.Control = btnCancel
AnchorSideBottom.Control = pnlButtons
AnchorSideBottom.Side = asrBottom
Left = 609
Left = 597
Height = 25
Top = 11
Width = 75
@ -132,10 +135,10 @@ object EdtTbConfigForm: TEdtTbConfigForm
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnlButtons
AnchorSideBottom.Side = asrBottom
Left = 690
Left = 678
Height = 25
Top = 11
Width = 76
Width = 88
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Right = 6
@ -173,7 +176,7 @@ object EdtTbConfigForm: TEdtTbConfigForm
Width = 100
Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 6
ItemHeight = 17
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'All'
@ -191,10 +194,10 @@ object EdtTbConfigForm: TEdtTbConfigForm
AnchorSideTop.Control = cbProfile
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = cbProfile
Left = 288
Height = 17
Top = 12
Width = 38
Left = 292
Height = 15
Top = 13
Width = 34
Anchors = [akTop, akRight]
BorderSpacing.Right = 10
Caption = 'Profile'
@ -215,6 +218,7 @@ object EdtTbConfigForm: TEdtTbConfigForm
BorderSpacing.Top = 6
BorderSpacing.Right = 3
BorderSpacing.Bottom = 6
DefaultItemHeight = 18
ReadOnly = True
ScrollBars = ssAutoBoth
TabOrder = 1
@ -243,13 +247,13 @@ object EdtTbConfigForm: TEdtTbConfigForm
AnchorSideRight.Control = lvToolbar
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnlButtons
Left = 661
Left = 655
Height = 23
Top = 386
Width = 100
Anchors = [akRight, akBottom]
BorderSpacing.Bottom = 6
ItemHeight = 17
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'Top'
@ -266,10 +270,10 @@ object EdtTbConfigForm: TEdtTbConfigForm
AnchorSideTop.Control = cbPos
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = cbPos
Left = 620
Height = 17
Top = 389
Width = 35
Left = 617
Height = 15
Top = 390
Width = 32
Anchors = [akTop, akRight]
BorderSpacing.Right = 6
Caption = 'lblpos'
@ -296,15 +300,15 @@ object EdtTbConfigForm: TEdtTbConfigForm
Left = 443
Height = 312
Top = 66
Width = 318
Anchors = [akTop, akLeft, akBottom]
Width = 312
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Bottom = 37
Columns = <
item
AutoSize = True
Caption = 'Name'
Width = 314
Width = 308
end
item
AutoSize = True
@ -328,8 +332,9 @@ object EdtTbConfigForm: TEdtTbConfigForm
AnchorSideTop.Side = asrBottom
Left = 415
Height = 26
Top = 272
Top = 320
Width = 22
Anchors = [akLeft, akBottom]
BorderSpacing.Top = 50
OnClick = btnAddDividerClick
ShowHint = True
@ -340,10 +345,10 @@ object EdtTbConfigForm: TEdtTbConfigForm
AnchorSideTop.Control = FilterEdit
AnchorSideRight.Control = lvToolbar
AnchorSideRight.Side = asrBottom
Left = 715
Height = 17
Left = 714
Height = 15
Top = 37
Width = 46
Width = 41
Anchors = [akTop, akRight]
Caption = 'lbSelect'
ParentColor = False
@ -356,7 +361,7 @@ object EdtTbConfigForm: TEdtTbConfigForm
Left = 415
Height = 26
Top = 352
Width = 23
Width = 22
Anchors = [akLeft, akBottom]
Enabled = False
OnClick = btnClearClick

47
ide/toolbarconfig.lfm
View File

@ -1,11 +1,13 @@
object ToolBarConfig: TToolBarConfig
Left = 713
Left = 707
Height = 457
Top = 329
Width = 772
Top = 263
Width = 696
Caption = 'ToolBarConfig'
ClientHeight = 457
ClientWidth = 772
ClientWidth = 696
Constraints.MinHeight = 350
Constraints.MinWidth = 500
OnCreate = FormCreate
OnDestroy = FormDestroy
Position = poScreenCenter
@ -13,7 +15,7 @@ object ToolBarConfig: TToolBarConfig
object lblMenuTree: TLabel
AnchorSideLeft.Control = TV
AnchorSideLeft.Side = asrCenter
Left = 173
Left = 153
Height = 15
Top = 14
Width = 67
@ -24,7 +26,7 @@ object ToolBarConfig: TToolBarConfig
AnchorSideLeft.Control = lvToolbar
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = lblMenuTree
Left = 575
Left = 514
Height = 15
Top = 14
Width = 54
@ -35,7 +37,7 @@ object ToolBarConfig: TToolBarConfig
AnchorSideLeft.Control = btnAdd
AnchorSideTop.Control = btnAdd
AnchorSideTop.Side = asrBottom
Left = 415
Left = 375
Height = 26
Top = 118
Width = 22
@ -49,7 +51,7 @@ object ToolBarConfig: TToolBarConfig
AnchorSideLeft.Control = Splitter1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = TV
Left = 415
Left = 375
Height = 26
Top = 91
Width = 22
@ -64,7 +66,7 @@ object ToolBarConfig: TToolBarConfig
AnchorSideLeft.Control = btnRemove
AnchorSideTop.Control = btnRemove
AnchorSideTop.Side = asrBottom
Left = 415
Left = 375
Height = 26
Top = 169
Width = 22
@ -78,7 +80,7 @@ object ToolBarConfig: TToolBarConfig
AnchorSideLeft.Control = btnMoveUp
AnchorSideTop.Control = btnMoveUp
AnchorSideTop.Side = asrBottom
Left = 415
Left = 375
Height = 26
Top = 196
Width = 22
@ -96,7 +98,7 @@ object ToolBarConfig: TToolBarConfig
Left = 16
Height = 343
Top = 66
Width = 381
Width = 341
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 6
BorderSpacing.Right = 3
@ -130,7 +132,7 @@ object ToolBarConfig: TToolBarConfig
AnchorSideTop.Control = TV
AnchorSideBottom.Control = TV
AnchorSideBottom.Side = asrBottom
Left = 400
Left = 360
Height = 343
Top = 66
Width = 9
@ -141,18 +143,18 @@ object ToolBarConfig: TToolBarConfig
AnchorSideLeft.Control = btnAdd
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = TV
Left = 443
Left = 403
Height = 343
Top = 66
Width = 318
Anchors = [akTop, akLeft, akBottom]
Width = 277
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Bottom = 37
Columns = <
item
AutoSize = True
Caption = 'Name'
Width = 314
Width = 253
end>
HideSelection = False
ReadOnly = True
@ -167,10 +169,11 @@ object ToolBarConfig: TToolBarConfig
AnchorSideLeft.Control = btnAdd
AnchorSideTop.Control = btnMoveDown
AnchorSideTop.Side = asrBottom
Left = 415
Left = 375
Height = 26
Top = 272
Top = 352
Width = 22
Anchors = [akLeft, akBottom]
BorderSpacing.Top = 50
OnClick = btnAddDividerClick
ShowHint = True
@ -181,7 +184,7 @@ object ToolBarConfig: TToolBarConfig
AnchorSideTop.Control = FilterEdit
AnchorSideRight.Control = lvToolbar
AnchorSideRight.Side = asrBottom
Left = 720
Left = 639
Height = 15
Top = 37
Width = 41
@ -194,10 +197,10 @@ object ToolBarConfig: TToolBarConfig
AnchorSideLeft.Control = btnAdd
AnchorSideBottom.Control = lvToolbar
AnchorSideBottom.Side = asrBottom
Left = 415
Left = 375
Height = 26
Top = 383
Width = 23
Width = 22
Anchors = [akLeft, akBottom]
Enabled = False
OnClick = btnClearClick
@ -208,7 +211,7 @@ object ToolBarConfig: TToolBarConfig
Left = 6
Height = 34
Top = 417
Width = 760
Width = 684
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'