From 58bf908c5670b501e1b661edf2c3967dd7970964 Mon Sep 17 00:00:00 2001 From: wp_xyz Date: Mon, 7 Oct 2024 09:39:59 +0200 Subject: [PATCH] IDE: Auto-sized layout of editorfilemanager form. Patch by Roland Hahn (slightly modified). (cherry picked from commit 70fa0f186de9da1bc053baec94216e5fb340d461) (cherry picked from commit 4d1834d8b4469bb314a6972198abbcf63d3a155c) --- ide/editorfilemanager.lfm | 148 ++++++++++++++++++++------------------ 1 file changed, 77 insertions(+), 71 deletions(-) diff --git a/ide/editorfilemanager.lfm b/ide/editorfilemanager.lfm index 16721c2b90..dbe020ffc3 100644 --- a/ide/editorfilemanager.lfm +++ b/ide/editorfilemanager.lfm @@ -1,40 +1,41 @@ object EditorFileManagerForm: TEditorFileManagerForm - Left = 338 + Left = 476 Height = 380 - Top = 126 - Width = 722 + Top = 250 + Width = 680 Caption = 'EditorFileManagerForm' ClientHeight = 380 - ClientWidth = 722 + ClientWidth = 680 KeyPreview = True + LCLVersion = '4.99.0.0' OnCreate = FormCreate OnKeyDown = FormKeyDown - LCLVersion = '1.9.0.0' object CheckListBox1: TCheckListBox AnchorSideTop.Control = FilterPanel AnchorSideTop.Side = asrBottom AnchorSideRight.Control = Panel1 AnchorSideBottom.Control = ButtonPanel1 - Left = 3 - Height = 299 - Top = 29 - Width = 533 + Left = 8 + Height = 293 + Top = 37 + Width = 534 Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Top = 1 ItemHeight = 0 + PopupMenu = PopupMenu1 + TabOrder = 1 OnClick = CheckListBox1Click OnDblClick = CheckListBox1DblClick OnItemClick = CheckListBox1ItemClick OnKeyPress = CheckListBox1KeyPress OnKeyDown = CheckListBox1KeyDown - PopupMenu = PopupMenu1 - TabOrder = 1 end object ButtonPanel1: TButtonPanel - Left = 6 - Height = 40 - Top = 334 - Width = 710 + Left = 8 + Height = 34 + Top = 338 + Width = 664 + BorderSpacing.Around = 8 OKButton.Name = 'OKButton' OKButton.DefaultCaption = True HelpButton.Name = 'HelpButton' @@ -52,28 +53,30 @@ object EditorFileManagerForm: TEditorFileManagerForm AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = ButtonPanel1 - Left = 536 - Height = 328 + Left = 542 + Height = 330 Top = 0 - Width = 186 + Width = 138 Anchors = [akTop, akRight, akBottom] - ClientHeight = 328 + AutoSize = True BevelOuter = bvNone - ClientWidth = 186 + ClientHeight = 330 + ClientWidth = 138 TabOrder = 2 object CheckAllCheckBox: TCheckBox AnchorSideLeft.Control = Panel1 AnchorSideTop.Control = FileCountLabel AnchorSideTop.Side = asrBottom - Left = 7 - Height = 22 - Top = 67 - Width = 156 + Left = 10 + Height = 19 + Top = 36 + Width = 118 + BorderSpacing.Left = 10 BorderSpacing.Top = 11 - BorderSpacing.Around = 6 + BorderSpacing.Right = 10 Caption = 'CheckAllCheckBox' - OnClick = CheckAllCheckBoxClick TabOrder = 0 + OnClick = CheckAllCheckBoxClick end object SaveCheckedButton: TBitBtn AnchorSideLeft.Control = Panel1 @@ -81,17 +84,17 @@ object EditorFileManagerForm: TEditorFileManagerForm AnchorSideTop.Side = asrBottom AnchorSideRight.Control = Panel1 AnchorSideRight.Side = asrBottom - Left = 7 - Height = 28 - Top = 95 - Width = 172 + Left = 8 + Height = 25 + Top = 63 + Width = 122 Anchors = [akTop, akLeft, akRight] AutoSize = True - BorderSpacing.Around = 6 + BorderSpacing.Around = 8 Caption = 'Save Checked' Enabled = False - OnClick = SaveCheckedButtonClick TabOrder = 1 + OnClick = SaveCheckedButtonClick end object CloseCheckedButton: TBitBtn AnchorSideLeft.Control = Panel1 @@ -99,82 +102,84 @@ object EditorFileManagerForm: TEditorFileManagerForm AnchorSideTop.Side = asrBottom AnchorSideRight.Control = Panel1 AnchorSideRight.Side = asrBottom - Left = 7 - Height = 28 - Top = 129 - Width = 172 + Left = 8 + Height = 25 + Top = 96 + Width = 122 Anchors = [akTop, akLeft, akRight] AutoSize = True - BorderSpacing.Around = 6 + BorderSpacing.Around = 8 Caption = 'Close Checked' Enabled = False - OnClick = CloseCheckedButtonClick TabOrder = 2 + OnClick = CloseCheckedButtonClick end object MoveUpBtn: TSpeedButton AnchorSideLeft.Control = Panel1 AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = CloseCheckedButton AnchorSideTop.Side = asrBottom - Left = 82 + Left = 56 Height = 26 - Top = 181 - Width = 22 + Top = 145 + Width = 26 BorderSpacing.Top = 24 Enabled = False - OnClick = MoveUpBtnClick + ShowCaption = False ShowHint = True ParentShowHint = False + OnClick = MoveUpBtnClick end object MoveDownBtn: TSpeedButton AnchorSideLeft.Control = MoveUpBtn AnchorSideTop.Control = MoveUpBtn AnchorSideTop.Side = asrBottom - Left = 82 + Left = 56 Height = 26 - Top = 214 - Width = 22 - BorderSpacing.Top = 7 + Top = 179 + Width = 26 + BorderSpacing.Top = 8 Enabled = False - OnClick = MoveDownBtnClick ShowHint = True ParentShowHint = False + OnClick = MoveDownBtnClick end object FileCountLabel: TLabel AnchorSideLeft.Control = Panel1 AnchorSideTop.Side = asrBottom - Left = 7 - Height = 18 - Top = 32 - Width = 104 - BorderSpacing.Around = 6 + Left = 10 + Height = 15 + Top = 10 + Width = 79 + BorderSpacing.Left = 10 + BorderSpacing.Top = 10 Caption = 'FileCountLabel' ParentColor = False end end object FilterPanel: TPanel AnchorSideRight.Control = Panel1 - Left = 0 - Height = 28 + Left = 8 + Height = 36 Top = 0 - Width = 536 + Width = 534 Anchors = [akTop, akLeft, akRight] BevelOuter = bvNone - ClientHeight = 28 - ClientWidth = 536 + ClientHeight = 36 + ClientWidth = 534 TabOrder = 0 object FilterEdit: TListFilterEdit AnchorSideLeft.Control = SortAlphabeticallyButton AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = SortAlphabeticallyButton AnchorSideTop.Side = asrCenter - Left = 76 - Height = 26 - Top = 1 + Left = 66 + Height = 23 + Top = 7 Width = 224 ButtonWidth = 23 + BorderSpacing.Left = 8 NumGlyphs = 1 - BorderSpacing.Left = 11 MaxLength = 0 ParentFont = False TabOrder = 0 @@ -185,18 +190,18 @@ object EditorFileManagerForm: TEditorFileManagerForm AnchorSideTop.Control = FilterPanel AnchorSideTop.Side = asrCenter AnchorSideBottom.Side = asrBottom - Left = 4 + Left = 0 Height = 25 - Top = 2 + Top = 6 Width = 25 AllowAllUp = True AutoSize = True - BorderSpacing.Left = 3 Constraints.MinHeight = 25 Constraints.MinWidth = 25 - OnClick = ActivateButtonClick + ShowCaption = False ShowHint = True ParentShowHint = False + OnClick = ActivateButtonClick end object SortAlphabeticallyButton: TSpeedButton AnchorSideLeft.Control = OpenButton @@ -204,25 +209,26 @@ object EditorFileManagerForm: TEditorFileManagerForm AnchorSideTop.Control = OpenButton AnchorSideTop.Side = asrCenter AnchorSideBottom.Side = asrBottom - Left = 40 + Left = 33 Height = 25 - Top = 2 + Top = 6 Width = 25 AllowAllUp = True AutoSize = True - BorderSpacing.Left = 11 + BorderSpacing.Left = 8 Constraints.MinHeight = 25 Constraints.MinWidth = 25 GroupIndex = 2 - OnClick = SortAlphabeticallyButtonClick + ShowCaption = False ShowHint = True ParentShowHint = False + OnClick = SortAlphabeticallyButtonClick end end object PopupMenu1: TPopupMenu OnPopup = PopupMenu1Popup - left = 312 - top = 336 + Left = 568 + Top = 272 object ActivateMenuItem: TMenuItem Caption = 'Activate' OnClick = ActivateMenuItemClick