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

IDE: Auto-sized layout of editorfilemanager form. Patch by Roland Hahn (slightly modified).

Browse Source 
(cherry picked from commit 70fa0f186d)
This commit is contained in:
wp_xyz 2024-10-07 09:39:59 +02:00
parent ea0604c23a
commit 4d1834d8b4
1 changed files with 77 additions and 71 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

148
ide/editorfilemanager.lfm
View File

@ -1,40 +1,41 @@
object EditorFileManagerForm: TEditorFileManagerForm object EditorFileManagerForm: TEditorFileManagerForm
Left = 338 Left = 476
Height = 380 Height = 380
Top = 126 Top = 250
Width = 722 Width = 680
Caption = 'EditorFileManagerForm' Caption = 'EditorFileManagerForm'
ClientHeight = 380 ClientHeight = 380
ClientWidth = 722 ClientWidth = 680
KeyPreview = True KeyPreview = True
LCLVersion = '4.99.0.0'
OnCreate = FormCreate OnCreate = FormCreate
OnKeyDown = FormKeyDown OnKeyDown = FormKeyDown
LCLVersion = '1.9.0.0'
object CheckListBox1: TCheckListBox object CheckListBox1: TCheckListBox
AnchorSideTop.Control = FilterPanel AnchorSideTop.Control = FilterPanel
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel1 AnchorSideRight.Control = Panel1
AnchorSideBottom.Control = ButtonPanel1 AnchorSideBottom.Control = ButtonPanel1
Left = 3 Left = 8
Height = 299 Height = 293
Top = 29 Top = 37
Width = 533 Width = 534
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 1 BorderSpacing.Top = 1
ItemHeight = 0 ItemHeight = 0
PopupMenu = PopupMenu1
TabOrder = 1
OnClick = CheckListBox1Click OnClick = CheckListBox1Click
OnDblClick = CheckListBox1DblClick OnDblClick = CheckListBox1DblClick
OnItemClick = CheckListBox1ItemClick OnItemClick = CheckListBox1ItemClick
OnKeyPress = CheckListBox1KeyPress OnKeyPress = CheckListBox1KeyPress
OnKeyDown = CheckListBox1KeyDown OnKeyDown = CheckListBox1KeyDown
PopupMenu = PopupMenu1
TabOrder = 1
end end
object ButtonPanel1: TButtonPanel object ButtonPanel1: TButtonPanel
Left = 6 Left = 8
Height = 40 Height = 34
Top = 334 Top = 338
Width = 710 Width = 664
BorderSpacing.Around = 8
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton' HelpButton.Name = 'HelpButton'
@ -52,28 +53,30 @@ object EditorFileManagerForm: TEditorFileManagerForm
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonPanel1 AnchorSideBottom.Control = ButtonPanel1
Left = 536 Left = 542
Height = 328 Height = 330
Top = 0 Top = 0
Width = 186 Width = 138
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
ClientHeight = 328 AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientWidth = 186 ClientHeight = 330
ClientWidth = 138
TabOrder = 2 TabOrder = 2
object CheckAllCheckBox: TCheckBox object CheckAllCheckBox: TCheckBox
AnchorSideLeft.Control = Panel1 AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = FileCountLabel AnchorSideTop.Control = FileCountLabel
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 7 Left = 10
Height = 22 Height = 19
Top = 67 Top = 36
Width = 156 Width = 118
BorderSpacing.Left = 10
BorderSpacing.Top = 11 BorderSpacing.Top = 11
BorderSpacing.Around = 6 BorderSpacing.Right = 10
Caption = 'CheckAllCheckBox' Caption = 'CheckAllCheckBox'
OnClick = CheckAllCheckBoxClick
TabOrder = 0 TabOrder = 0
OnClick = CheckAllCheckBoxClick
end end
object SaveCheckedButton: TBitBtn object SaveCheckedButton: TBitBtn
AnchorSideLeft.Control = Panel1 AnchorSideLeft.Control = Panel1
@ -81,17 +84,17 @@ object EditorFileManagerForm: TEditorFileManagerForm
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel1 AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 7 Left = 8
Height = 28 Height = 25
Top = 95 Top = 63
Width = 172 Width = 122
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 8
Caption = 'Save Checked' Caption = 'Save Checked'
Enabled = False Enabled = False
OnClick = SaveCheckedButtonClick
TabOrder = 1 TabOrder = 1
OnClick = SaveCheckedButtonClick
end end
object CloseCheckedButton: TBitBtn object CloseCheckedButton: TBitBtn
AnchorSideLeft.Control = Panel1 AnchorSideLeft.Control = Panel1
@ -99,82 +102,84 @@ object EditorFileManagerForm: TEditorFileManagerForm
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel1 AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 7 Left = 8
Height = 28 Height = 25
Top = 129 Top = 96
Width = 172 Width = 122
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 8
Caption = 'Close Checked' Caption = 'Close Checked'
Enabled = False Enabled = False
OnClick = CloseCheckedButtonClick
TabOrder = 2 TabOrder = 2
OnClick = CloseCheckedButtonClick
end end
object MoveUpBtn: TSpeedButton object MoveUpBtn: TSpeedButton
AnchorSideLeft.Control = Panel1 AnchorSideLeft.Control = Panel1
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = CloseCheckedButton AnchorSideTop.Control = CloseCheckedButton
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 82 Left = 56
Height = 26 Height = 26
Top = 181 Top = 145
Width = 22 Width = 26
BorderSpacing.Top = 24 BorderSpacing.Top = 24
Enabled = False Enabled = False
OnClick = MoveUpBtnClick ShowCaption = False
ShowHint = True ShowHint = True
ParentShowHint = False ParentShowHint = False
OnClick = MoveUpBtnClick
end end
object MoveDownBtn: TSpeedButton object MoveDownBtn: TSpeedButton
AnchorSideLeft.Control = MoveUpBtn AnchorSideLeft.Control = MoveUpBtn
AnchorSideTop.Control = MoveUpBtn AnchorSideTop.Control = MoveUpBtn
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 82 Left = 56
Height = 26 Height = 26
Top = 214 Top = 179
Width = 22 Width = 26
BorderSpacing.Top = 7 BorderSpacing.Top = 8
Enabled = False Enabled = False
OnClick = MoveDownBtnClick
ShowHint = True ShowHint = True
ParentShowHint = False ParentShowHint = False
OnClick = MoveDownBtnClick
end end
object FileCountLabel: TLabel object FileCountLabel: TLabel
AnchorSideLeft.Control = Panel1 AnchorSideLeft.Control = Panel1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 7 Left = 10
Height = 18 Height = 15
Top = 32 Top = 10
Width = 104 Width = 79
BorderSpacing.Around = 6 BorderSpacing.Left = 10
BorderSpacing.Top = 10
Caption = 'FileCountLabel' Caption = 'FileCountLabel'
ParentColor = False ParentColor = False
end end
end end
object FilterPanel: TPanel object FilterPanel: TPanel
AnchorSideRight.Control = Panel1 AnchorSideRight.Control = Panel1
Left = 0 Left = 8
Height = 28 Height = 36
Top = 0 Top = 0
Width = 536 Width = 534
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 28 ClientHeight = 36
ClientWidth = 536 ClientWidth = 534
TabOrder = 0 TabOrder = 0
object FilterEdit: TListFilterEdit object FilterEdit: TListFilterEdit
AnchorSideLeft.Control = SortAlphabeticallyButton AnchorSideLeft.Control = SortAlphabeticallyButton
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = SortAlphabeticallyButton AnchorSideTop.Control = SortAlphabeticallyButton
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 76 Left = 66
Height = 26 Height = 23
Top = 1 Top = 7
Width = 224 Width = 224
ButtonWidth = 23 ButtonWidth = 23
BorderSpacing.Left = 8
NumGlyphs = 1 NumGlyphs = 1
BorderSpacing.Left = 11
MaxLength = 0 MaxLength = 0
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
@ -185,18 +190,18 @@ object EditorFileManagerForm: TEditorFileManagerForm
AnchorSideTop.Control = FilterPanel AnchorSideTop.Control = FilterPanel
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 4 Left = 0
Height = 25 Height = 25
Top = 2 Top = 6
Width = 25 Width = 25
AllowAllUp = True AllowAllUp = True
AutoSize = True AutoSize = True
BorderSpacing.Left = 3
Constraints.MinHeight = 25 Constraints.MinHeight = 25
Constraints.MinWidth = 25 Constraints.MinWidth = 25
OnClick = ActivateButtonClick ShowCaption = False
ShowHint = True ShowHint = True
ParentShowHint = False ParentShowHint = False
OnClick = ActivateButtonClick
end end
object SortAlphabeticallyButton: TSpeedButton object SortAlphabeticallyButton: TSpeedButton
AnchorSideLeft.Control = OpenButton AnchorSideLeft.Control = OpenButton
@ -204,25 +209,26 @@ object EditorFileManagerForm: TEditorFileManagerForm
AnchorSideTop.Control = OpenButton AnchorSideTop.Control = OpenButton
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 40 Left = 33
Height = 25 Height = 25
Top = 2 Top = 6
Width = 25 Width = 25
AllowAllUp = True AllowAllUp = True
AutoSize = True AutoSize = True
BorderSpacing.Left = 11 BorderSpacing.Left = 8
Constraints.MinHeight = 25 Constraints.MinHeight = 25
Constraints.MinWidth = 25 Constraints.MinWidth = 25
GroupIndex = 2 GroupIndex = 2
OnClick = SortAlphabeticallyButtonClick ShowCaption = False
ShowHint = True ShowHint = True
ParentShowHint = False ParentShowHint = False
OnClick = SortAlphabeticallyButtonClick
end end
end end
object PopupMenu1: TPopupMenu object PopupMenu1: TPopupMenu
OnPopup = PopupMenu1Popup OnPopup = PopupMenu1Popup
left = 312 Left = 568
top = 336 Top = 272
object ActivateMenuItem: TMenuItem object ActivateMenuItem: TMenuItem
Caption = 'Activate' Caption = 'Activate'
OnClick = ActivateMenuItemClick OnClick = ActivateMenuItemClick