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

IDE: Improve layout of ComponentPallette options page. Issue #31003, patch from AlexeyT.

Browse Source 
git-svn-id: trunk@53449 -
This commit is contained in:
juha 2016-11-25 10:31:37 +00:00
parent 2f4b754c28
commit 733394319b
1 changed files with 55 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

107
ide/frames/componentpalette_options.lfm
View File

@ -17,27 +17,28 @@ object CompPaletteOptionsFrame: TCompPaletteOptionsFrame
AnchorSideBottom.Control = Owner AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 439 Height = 432
Top = 29 Top = 36
Width = 190 Width = 192
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'PagesGroupBox' Caption = 'PagesGroupBox'
ClientHeight = 421 ClientHeight = 413
ClientWidth = 186 ClientWidth = 188
Constraints.MinWidth = 100 Constraints.MinWidth = 100
TabOrder = 0 TabOrder = 1
object PagesListBox: TListBox object PagesListBox: TListBox
AnchorSideLeft.Control = PagesGroupBox AnchorSideLeft.Control = PagesGroupBox
AnchorSideTop.Control = PagesGroupBox AnchorSideTop.Control = PagesGroupBox
AnchorSideRight.Control = PageMoveUpBtn AnchorSideRight.Control = PageMoveUpBtn
AnchorSideBottom.Control = AddPageButton AnchorSideBottom.Control = AddPageButton
Left = 1 Left = 3
Height = 344 Height = 317
Top = 0 Top = 3
Width = 151 Width = 151
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 1 BorderSpacing.Left = 3
BorderSpacing.Top = 3
BorderSpacing.Right = 6 BorderSpacing.Right = 6
DragMode = dmAutomatic DragMode = dmAutomatic
ItemHeight = 0 ItemHeight = 0
@ -46,16 +47,18 @@ object CompPaletteOptionsFrame: TCompPaletteOptionsFrame
OnKeyDown = PagesListBoxKeyDown OnKeyDown = PagesListBoxKeyDown
OnSelectionChange = PagesListBoxSelectionChange OnSelectionChange = PagesListBoxSelectionChange
PopupMenu = PagesPopupMenu PopupMenu = PagesPopupMenu
ScrollWidth = 149
TabOrder = 0 TabOrder = 0
TopIndex = -1
end end
object AddPageButton: TBitBtn object AddPageButton: TBitBtn
AnchorSideLeft.Control = PagesListBox AnchorSideLeft.Control = PagesListBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = ImportDividerBevel AnchorSideBottom.Control = ImportDividerBevel
Left = 1 Left = 3
Height = 23 Height = 29
Top = 350 Top = 326
Width = 60 Width = 55
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -69,12 +72,12 @@ object CompPaletteOptionsFrame: TCompPaletteOptionsFrame
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = AddPageButton AnchorSideTop.Control = AddPageButton
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 70 Left = 64
Height = 23 Height = 29
Top = 350 Top = 326
Width = 101 Width = 117
AutoSize = True AutoSize = True
BorderSpacing.Left = 9 BorderSpacing.Left = 6
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
Caption = '&Restore default' Caption = '&Restore default'
OnClick = RestoreButtonClick OnClick = RestoreButtonClick
@ -84,7 +87,7 @@ object CompPaletteOptionsFrame: TCompPaletteOptionsFrame
AnchorSideLeft.Control = PageMoveUpBtn AnchorSideLeft.Control = PageMoveUpBtn
AnchorSideTop.Control = PageMoveUpBtn AnchorSideTop.Control = PageMoveUpBtn
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 158 Left = 160
Height = 26 Height = 26
Top = 135 Top = 135
Width = 22 Width = 22
@ -99,7 +102,7 @@ object CompPaletteOptionsFrame: TCompPaletteOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = PagesGroupBox AnchorSideRight.Control = PagesGroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 158 Left = 160
Height = 26 Height = 26
Top = 102 Top = 102
Width = 22 Width = 22
@ -116,13 +119,14 @@ object CompPaletteOptionsFrame: TCompPaletteOptionsFrame
AnchorSideRight.Control = PagesGroupBox AnchorSideRight.Control = PagesGroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ImportButton AnchorSideBottom.Control = ImportButton
Left = 1 Left = 3
Height = 13 Height = 17
Top = 379 Top = 361
Width = 185 Width = 185
Caption = 'Import / Export' Caption = 'Import / Export'
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
Font.Style = [fsBold] Font.Style = [fsBold]
LeftIndent = 15
ParentFont = False ParentFont = False
end end
object ImportButton: TBitBtn object ImportButton: TBitBtn
@ -131,17 +135,17 @@ object CompPaletteOptionsFrame: TCompPaletteOptionsFrame
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideBottom.Control = PagesGroupBox AnchorSideBottom.Control = PagesGroupBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 87 Left = 82
Height = 23 Height = 29
Top = 392 Top = 378
Width = 73 Width = 74
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Left = 13 BorderSpacing.Left = 6
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
Caption = 'Import ...' Caption = 'Import ...'
OnClick = ImportButtonClick OnClick = ImportButtonClick
TabOrder = 3 TabOrder = 4
end end
object ExportButton: TBitBtn object ExportButton: TBitBtn
AnchorSideLeft.Control = PagesListBox AnchorSideLeft.Control = PagesListBox
@ -149,9 +153,9 @@ object CompPaletteOptionsFrame: TCompPaletteOptionsFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = PagesGroupBox AnchorSideBottom.Control = PagesGroupBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 1 Left = 3
Height = 23 Height = 29
Top = 392 Top = 378
Width = 73 Width = 73
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
@ -159,7 +163,7 @@ object CompPaletteOptionsFrame: TCompPaletteOptionsFrame
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
Caption = 'Export ...' Caption = 'Export ...'
OnClick = ExportButtonClick OnClick = ExportButtonClick
TabOrder = 4 TabOrder = 3
end end
end end
object ComponentsGroupBox: TGroupBox object ComponentsGroupBox: TGroupBox
@ -170,29 +174,28 @@ object CompPaletteOptionsFrame: TCompPaletteOptionsFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 201 Left = 203
Height = 468 Height = 468
Top = 0 Top = 0
Width = 388 Width = 386
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'ComponentsGroupBox' Caption = 'ComponentsGroupBox'
ClientHeight = 450 ClientHeight = 449
ClientWidth = 384 ClientWidth = 382
TabOrder = 1 TabOrder = 3
object ComponentsListView: TListView object ComponentsListView: TListView
AnchorSideLeft.Control = ComponentsGroupBox AnchorSideLeft.Control = ComponentsGroupBox
AnchorSideTop.Control = ComponentsGroupBox AnchorSideTop.Control = ComponentsGroupBox
AnchorSideRight.Control = CompMoveUpBtn AnchorSideRight.Control = CompMoveUpBtn
AnchorSideBottom.Control = ComponentsGroupBox AnchorSideBottom.Control = ComponentsGroupBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 1 Left = 6
Height = 448 Height = 437
Top = 1 Top = 6
Width = 349 Width = 342
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Right = 5 BorderSpacing.Around = 6
BorderSpacing.Around = 1
Columns = < Columns = <
item item
Width = 35 Width = 35
@ -237,7 +240,7 @@ object CompPaletteOptionsFrame: TCompPaletteOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ComponentsGroupBox AnchorSideRight.Control = ComponentsGroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 356 Left = 354
Height = 26 Height = 26
Top = 102 Top = 102
Width = 22 Width = 22
@ -252,7 +255,7 @@ object CompPaletteOptionsFrame: TCompPaletteOptionsFrame
AnchorSideLeft.Control = CompMoveUpBtn AnchorSideLeft.Control = CompMoveUpBtn
AnchorSideTop.Control = CompMoveUpBtn AnchorSideTop.Control = CompMoveUpBtn
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 356 Left = 354
Height = 26 Height = 26
Top = 135 Top = 135
Width = 22 Width = 22
@ -266,9 +269,9 @@ object CompPaletteOptionsFrame: TCompPaletteOptionsFrame
object Splitter1: TSplitter object Splitter1: TSplitter
AnchorSideLeft.Control = PagesGroupBox AnchorSideLeft.Control = PagesGroupBox
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
Left = 190 Left = 192
Height = 468 Height = 468
Top = 0 Top = 8
Width = 5 Width = 5
Align = alNone Align = alNone
Anchors = [] Anchors = []
@ -277,12 +280,12 @@ object CompPaletteOptionsFrame: TCompPaletteOptionsFrame
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
Left = 0 Left = 0
Height = 17 Height = 24
Top = 6 Top = 6
Width = 96 Width = 135
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'Palette is visible' Caption = 'Palette is visible'
TabOrder = 3 TabOrder = 0
end end
object ImportDialog: TOpenDialog object ImportDialog: TOpenDialog
left = 168 left = 168