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