mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-20 22:00:50 +02:00
IDE: component list layout improvements by Don Siders, issue #41273
This commit is contained in:
parent
563018b0c5
commit
c17363c521
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user