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

(cherry picked from commit 70fa0f186d)

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