IDE: component list layout improvements by Don Siders, issue #41273

This commit is contained in:
Maxim Ganetsky 2024-12-11 02:03:34 +03:00
parent 563018b0c5
commit c17363c521

View File

@ -10,11 +10,10 @@ object ComponentListForm: TComponentListForm
OnClose = FormClose OnClose = FormClose
OnKeyDown = FormKeyDown OnKeyDown = FormKeyDown
OnShow = FormShow OnShow = FormShow
LCLVersion = '2.3.0.0'
object PageControl: TPageControl object PageControl: TPageControl
Left = 0 Left = 0
Height = 395 Height = 397
Top = 29 Top = 27
Width = 300 Width = 300
ActivePage = TabSheetList ActivePage = TabSheetList
Align = alClient Align = alClient
@ -23,24 +22,24 @@ object ComponentListForm: TComponentListForm
OnChange = PageControlChange OnChange = PageControlChange
object TabSheetList: TTabSheet object TabSheetList: TTabSheet
Caption = 'List' Caption = 'List'
ClientHeight = 366 ClientHeight = 369
ClientWidth = 290 ClientWidth = 292
object Panel7: TPanel object Panel7: TPanel
Left = 0 Left = 0
Height = 366 Height = 369
Top = 0 Top = 0
Width = 290 Width = 292
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
BorderWidth = 2 BorderWidth = 2
ClientHeight = 366 ClientHeight = 369
ClientWidth = 290 ClientWidth = 292
TabOrder = 0 TabOrder = 0
object ListTree: TTreeView object ListTree: TTreeView
Left = 2 Left = 2
Height = 362 Height = 365
Top = 2 Top = 2
Width = 286 Width = 288
Align = alClient Align = alClient
Indent = 25 Indent = 25
PopupMenu = CompListPopupMenu PopupMenu = CompListPopupMenu
@ -50,36 +49,35 @@ object ComponentListForm: TComponentListForm
ShowButtons = False ShowButtons = False
ShowLines = False ShowLines = False
ShowRoot = False ShowRoot = False
ShowSeparators = False
TabOrder = 0 TabOrder = 0
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRowSelect, tvoToolTips]
OnDblClick = ComponentsDblClick OnDblClick = ComponentsDblClick
OnKeyPress = TreeKeyPress OnKeyPress = TreeKeyPress
OnMouseDown = TreeMouseDown OnMouseDown = TreeMouseDown
OnSelectionChanged = ListTreeSelectionChanged OnSelectionChanged = ListTreeSelectionChanged
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRowSelect, tvoToolTips]
end end
end end
end end
object TabSheetPaletteTree: TTabSheet object TabSheetPaletteTree: TTabSheet
Caption = 'Palette' Caption = 'Palette'
ClientHeight = 366 ClientHeight = 369
ClientWidth = 290 ClientWidth = 292
object pnPaletteTree: TPanel object pnPaletteTree: TPanel
Left = 0 Left = 0
Height = 366 Height = 369
Top = 0 Top = 0
Width = 290 Width = 292
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
BorderWidth = 5 BorderWidth = 2
ClientHeight = 366 ClientHeight = 369
ClientWidth = 290 ClientWidth = 292
TabOrder = 0 TabOrder = 0
object PalletteTree: TTreeView object PalletteTree: TTreeView
Left = 5 Left = 2
Height = 356 Height = 365
Top = 5 Top = 2
Width = 280 Width = 288
Align = alClient Align = alClient
PopupMenu = CompListPopupMenu PopupMenu = CompListPopupMenu
ReadOnly = True ReadOnly = True
@ -87,63 +85,61 @@ object ComponentListForm: TComponentListForm
RowSelect = True RowSelect = True
ScrollBars = ssAutoBoth ScrollBars = ssAutoBoth
ShowLines = False ShowLines = False
ShowSeparators = False
TabOrder = 0 TabOrder = 0
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoRowSelect, tvoShowButtons, tvoShowRoot, tvoToolTips]
OnDblClick = ComponentsDblClick OnDblClick = ComponentsDblClick
OnKeyPress = TreeKeyPress OnKeyPress = TreeKeyPress
OnMouseDown = TreeMouseDown OnMouseDown = TreeMouseDown
OnSelectionChanged = ListTreeSelectionChanged OnSelectionChanged = ListTreeSelectionChanged
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoRowSelect, tvoShowButtons, tvoShowRoot, tvoToolTips]
end end
end end
end end
object TabSheetInheritance: TTabSheet object TabSheetInheritance: TTabSheet
Caption = 'Inheritance' Caption = 'Inheritance'
ClientHeight = 366 ClientHeight = 369
ClientWidth = 290 ClientWidth = 292
object Panel6: TPanel object Panel6: TPanel
Left = 0 Left = 0
Height = 366 Height = 369
Top = 0 Top = 0
Width = 290 Width = 292
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
BorderWidth = 5 BorderWidth = 2
ClientHeight = 366 ClientHeight = 369
ClientWidth = 290 ClientWidth = 292
TabOrder = 0 TabOrder = 0
object InheritanceTree: TTreeView object InheritanceTree: TTreeView
Left = 5 Left = 2
Height = 356 Height = 365
Top = 5 Top = 2
Width = 280 Width = 288
Align = alClient Align = alClient
Indent = 20 Indent = 15
PopupMenu = CompListPopupMenu PopupMenu = CompListPopupMenu
ReadOnly = True ReadOnly = True
RightClickSelect = True RightClickSelect = True
RowSelect = True RowSelect = True
ScrollBars = ssAutoBoth ScrollBars = ssAutoBoth
ShowSeparators = False
TabOrder = 0 TabOrder = 0
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoRowSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
OnDblClick = ComponentsDblClick OnDblClick = ComponentsDblClick
OnKeyPress = TreeKeyPress OnKeyPress = TreeKeyPress
OnMouseDown = TreeMouseDown OnMouseDown = TreeMouseDown
OnSelectionChanged = ListTreeSelectionChanged OnSelectionChanged = ListTreeSelectionChanged
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoRowSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
end end
end end
end end
end end
object FilterPanel: TPanel object FilterPanel: TPanel
Left = 0 Left = 0
Height = 29 Height = 27
Top = 0 Top = 0
Width = 300 Width = 300
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 29 ClientHeight = 27
ClientWidth = 300 ClientWidth = 300
TabOrder = 0 TabOrder = 0
object SelectionToolButton: TSpeedButton object SelectionToolButton: TSpeedButton
@ -152,7 +148,7 @@ object ComponentListForm: TComponentListForm
AnchorSideBottom.Control = FilterPanel AnchorSideBottom.Control = FilterPanel
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 29 Height = 27
Top = 0 Top = 0
Width = 32 Width = 32
AllowAllUp = True AllowAllUp = True
@ -169,7 +165,7 @@ object ComponentListForm: TComponentListForm
Left = 38 Left = 38
Height = 15 Height = 15
Top = 6 Top = 6
Width = 66 Width = 63
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'LabelSearch' Caption = 'LabelSearch'
ParentColor = False ParentColor = False
@ -179,10 +175,10 @@ object ComponentListForm: TComponentListForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = LabelSearch AnchorSideTop.Control = LabelSearch
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 110 Left = 107
Height = 32 Height = 23
Top = -3 Top = 2
Width = 186 Width = 189
OnAfterFilter = TreeFilterEdAfterFilter OnAfterFilter = TreeFilterEdAfterFilter
OnFilterItemEx = TreeFilterEdFilterItemEx OnFilterItemEx = TreeFilterEdFilterItemEx
ButtonWidth = 23 ButtonWidth = 23
@ -207,25 +203,25 @@ object ComponentListForm: TComponentListForm
TabOrder = 2 TabOrder = 2
object chbKeepOpen: TCheckBox object chbKeepOpen: TCheckBox
Left = 8 Left = 8
Height = 23 Height = 19
Top = 10 Top = 10
Width = 104 Width = 93
Caption = 'chbKeepOpen' Caption = 'chbKeepOpen'
OnChange = chbKeepOpenChange
TabOrder = 0 TabOrder = 0
OnChange = chbKeepOpenChange
end end
object OKButton: TButton object OKButton: TButton
Left = 221 Left = 215
Height = 31 Height = 25
Top = 8 Top = 8
Width = 72 Width = 78
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
Caption = 'OKButton' Caption = 'OKButton'
Default = True Default = True
ModalResult = 1 ModalResult = 1
OnClick = OKButtonClick
TabOrder = 1 TabOrder = 1
OnClick = OKButtonClick
end end
end end
object CompListPopupMenu: TPopupMenu object CompListPopupMenu: TPopupMenu