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

IDE: Improve a docked component list layout. Issue #29333, patch from Anthony Walter.

Browse Source 
git-svn-id: trunk@51193 -
This commit is contained in:
juha 2016-01-04 21:01:36 +00:00
parent 402ec6b200
commit 8ff7b2a5c9
1 changed files with 26 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
ide/componentlist.lfm
View File

@ -11,41 +11,36 @@ object ComponentListForm: TComponentListForm
OnClose = FormClose
OnKeyDown = FormKeyDown
OnShow = FormShow
LCLVersion = '1.5'
LCLVersion = '1.7'
Visible = False
object PageControl: TPageControl
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = FilterPanel
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonPanel
Left = 0
Height = 400
Top = 27
Height = 394
Top = 31
Width = 300
ActivePage = TabSheetList
Anchors = [akTop, akLeft, akRight, akBottom]
Align = alClient
TabIndex = 0
TabOrder = 1
OnChange = PageControlChange
object TabSheetList: TTabSheet
Caption = 'List'
ClientHeight = 375
ClientHeight = 361
ClientWidth = 296
object Panel7: TPanel
Left = 0
Height = 375
Height = 361
Top = 0
Width = 296
Align = alClient
BevelOuter = bvNone
BorderWidth = 2
ClientHeight = 375
ClientHeight = 361
ClientWidth = 296
TabOrder = 0
object ListTree: TTreeView
Left = 2
Height = 371
Height = 357
Top = 2
Width = 292
Align = alClient
@ -54,6 +49,7 @@ object ComponentListForm: TComponentListForm
Indent = 25
ReadOnly = True
RowSelect = True
ScrollBars = ssAutoBoth
ShowButtons = False
ShowLines = False
ShowRoot = False
@ -67,7 +63,7 @@ object ComponentListForm: TComponentListForm
end
object TabSheetPaletteTree: TTabSheet
Caption = 'Palette'
ClientHeight = 375
ClientHeight = 361
ClientWidth = 296
object pnPaletteTree: TPanel
Left = 0
@ -92,6 +88,7 @@ object ComponentListForm: TComponentListForm
ReadOnly = True
RightClickSelect = True
RowSelect = True
ScrollBars = ssAutoBoth
ShowLines = False
TabOrder = 0
OnChange = ComponentsChange
@ -103,7 +100,7 @@ object ComponentListForm: TComponentListForm
end
object TabSheetInheritance: TTabSheet
Caption = 'Inheritance'
ClientHeight = 375
ClientHeight = 361
ClientWidth = 296
object Panel6: TPanel
Left = 0
@ -129,6 +126,7 @@ object ComponentListForm: TComponentListForm
ReadOnly = True
RightClickSelect = True
RowSelect = True
ScrollBars = ssAutoBoth
TabOrder = 0
OnChange = ComponentsChange
OnDblClick = ComponentsDblClick
@ -139,24 +137,23 @@ object ComponentListForm: TComponentListForm
end
end
object FilterPanel: TPanel
AnchorSideRight.Side = asrBottom
Left = 1
Height = 27
Left = 0
Height = 31
Top = 0
Width = 300
Anchors = [akTop, akLeft, akRight]
Align = alTop
AutoSize = True
BevelOuter = bvNone
ClientHeight = 27
ClientHeight = 31
ClientWidth = 300
TabOrder = 0
object LabelSearch: TLabel
AnchorSideLeft.Control = FilterPanel
AnchorSideTop.Control = FilterPanel
Left = 6
Height = 15
Height = 19
Top = 6
Width = 74
Width = 86
BorderSpacing.Around = 6
Caption = 'LabelSearch'
ParentColor = False
@ -166,10 +163,10 @@ object ComponentListForm: TComponentListForm
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = LabelSearch
AnchorSideTop.Side = asrCenter
Left = 86
Height = 21
Top = 3
Width = 210
Left = 98
Height = 29
Top = 1
Width = 198
OnAfterFilter = TreeFilterEdAfterFilter
ButtonWidth = 23
NumGlyphs = 1
@ -182,8 +179,8 @@ object ComponentListForm: TComponentListForm
end
object ButtonPanel: TButtonPanel
Left = 6
Height = 28
Top = 433
Height = 30
Top = 431
Width = 288
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True