FIX: Dialogue needs to resize for multirename (fixes #228)

components/KASToolBar/kastoolpanel.pas

@@ -11,10 +11,13 @@ type
   TKASToolPanel = class(TToolWindow)
   published
     property Align default alNone;
+    property Anchors;
     property AutoSize;
+    property ChildSizing;
     property EdgeBorders default [ebTop];
     property EdgeInner;
     property EdgeOuter;
+    property TabOrder;
     property Visible;
   end;
 

src/fmultirename.lfm

@@ -1,27 +1,28 @@
 object frmMultiRename: TfrmMultiRename
   Left = 492
-  Height = 466
+  Height = 624
   Top = 132
-  Width = 804
+  Width = 788
   ActiveControl = cbName
   Caption = 'Multi-Rename Tool'
-  ClientHeight = 446
-  ClientWidth = 804
+  ClientHeight = 597
+  ClientWidth = 788
   KeyPreview = True
   Menu = mmMainMenu
   OnClose = FormClose
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
+  OnShow = FormShow
   Position = poScreenCenter
   SessionProperties = 'Height;Left;Top;Width;WindowState;pnlOptionsLeft.Width'
   ShowHint = True
   ShowInTaskBar = stAlways
-  LCLVersion = '2.0.10.0'
+  LCLVersion = '2.0.12.0'
   object StringGrid: TStringGrid
     Left = 6
-    Height = 217
+    Height = 261
     Top = 6
-    Width = 792
+    Width = 776
     Align = alClient
     AutoFillColumns = True
     BorderSpacing.Left = 6
@@ -41,7 +42,7 @@ object frmMultiRename: TfrmMultiRename
       end    
       item
         Title.Caption = 'File Path'
-        Width = 291
+        Width = 277
       end>
     ExtendedSelect = False
     FixedCols = 0
@@ -49,7 +50,7 @@ object frmMultiRename: TfrmMultiRename
     Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goRowSelect, goSmoothScroll]
     ParentFont = False
     RowCount = 1
-    TabOrder = 1
+    TabOrder = 2
     TitleStyle = tsNative
     OnKeyDown = StringGridKeyDown
     OnMouseDown = StringGridMouseDown
@@ -60,32 +61,32 @@ object frmMultiRename: TfrmMultiRename
     ColWidths = (
       248
       249
-      291
+      277
     )
   end
   object pnlOptions: TPanel
     Left = 6
-    Height = 211
-    Top = 229
-    Width = 792
+    Height = 275
+    Top = 273
+    Width = 776
     Align = alBottom
     AutoSize = True
     BorderSpacing.Around = 6
     BevelOuter = bvNone
-    ClientHeight = 211
-    ClientWidth = 792
+    ClientHeight = 275
+    ClientWidth = 776
     ParentFont = False
     TabOrder = 0
     object pnlOptionsLeft: TPanel
       AnchorSideRight.Side = asrBottom
       Left = 0
-      Height = 211
+      Height = 275
       Top = 0
-      Width = 295
+      Width = 250
       Align = alLeft
       BevelOuter = bvNone
-      ClientHeight = 211
-      ClientWidth = 295
+      ClientHeight = 275
+      ClientWidth = 250
       ParentFont = False
       TabOrder = 0
       object gbMaska: TGroupBox
@@ -93,19 +94,18 @@ object frmMultiRename: TfrmMultiRename
         AnchorSideTop.Control = pnlOptionsLeft
         AnchorSideRight.Control = pnlOptionsLeft
         AnchorSideRight.Side = asrBottom
-        AnchorSideBottom.Control = gbPresets
         Left = 0
-        Height = 158
+        Height = 210
         Top = 0
-        Width = 295
-        Anchors = [akTop, akLeft, akRight, akBottom]
+        Width = 250
+        Anchors = [akTop, akLeft, akRight]
         AutoSize = True
         Caption = 'Mask'
         ChildSizing.LeftRightSpacing = 4
         ChildSizing.HorizontalSpacing = 2
         ChildSizing.VerticalSpacing = 2
-        ClientHeight = 138
-        ClientWidth = 291
+        ClientHeight = 190
+        ClientWidth = 248
         ParentFont = False
         TabOrder = 0
         object lbName: TLabel
@@ -113,9 +113,9 @@ object frmMultiRename: TfrmMultiRename
           AnchorSideTop.Control = gbMaska
           AnchorSideBottom.Control = cbName
           Left = 4
-          Height = 15
+          Height = 17
           Top = 0
-          Width = 53
+          Width = 61
           Caption = 'File &Name'
           FocusControl = cbName
           ParentColor = False
@@ -126,9 +126,9 @@ object frmMultiRename: TfrmMultiRename
           AnchorSideTop.Control = cbNameMaskStyle
           AnchorSideTop.Side = asrBottom
           Left = 4
-          Height = 15
-          Top = 69
-          Width = 51
+          Height = 17
+          Top = 95
+          Width = 60
           Caption = '&Extension'
           FocusControl = cbExt
           ParentColor = False
@@ -142,12 +142,12 @@ object frmMultiRename: TfrmMultiRename
           AnchorSideRight.Control = gbMaska
           AnchorSideRight.Side = asrBottom
           Left = 29
-          Height = 23
-          Top = 42
-          Width = 258
+          Height = 35
+          Top = 56
+          Width = 215
           Anchors = [akTop, akLeft, akRight]
           BorderSpacing.Bottom = 4
-          ItemHeight = 15
+          ItemHeight = 0
           OnChange = cbNameStyleChange
           ParentFont = False
           Style = csDropDownList
@@ -162,12 +162,12 @@ object frmMultiRename: TfrmMultiRename
           AnchorSideRight.Side = asrBottom
           AnchorSideBottom.Side = asrBottom
           Left = 29
-          Height = 23
-          Top = 111
-          Width = 258
+          Height = 35
+          Top = 151
+          Width = 215
           Anchors = [akTop, akLeft, akRight]
           BorderSpacing.Bottom = 4
-          ItemHeight = 15
+          ItemHeight = 0
           OnChange = cbNameStyleChange
           ParentFont = False
           Style = csDropDownList
@@ -179,11 +179,12 @@ object frmMultiRename: TfrmMultiRename
           AnchorSideBottom.Control = cbNameMaskStyle
           AnchorSideBottom.Side = asrBottom
           Left = 4
-          Height = 23
-          Top = 42
+          Height = 35
+          Top = 56
           Width = 23
           Anchors = [akTop, akLeft, akBottom]
           TabOrder = 1
+          TabStop = True
         end
         object btnAnyExtMask: TKASButton
           AnchorSideLeft.Control = gbMaska
@@ -191,11 +192,12 @@ object frmMultiRename: TfrmMultiRename
           AnchorSideBottom.Control = cmbExtensionStyle
           AnchorSideBottom.Side = asrBottom
           Left = 4
-          Height = 23
-          Top = 111
+          Height = 35
+          Top = 151
           Width = 23
           Anchors = [akTop, akLeft, akBottom]
           TabOrder = 4
+          TabStop = True
         end
         object cbName: TComboBox
           AnchorSideLeft.Control = gbMaska
@@ -204,11 +206,12 @@ object frmMultiRename: TfrmMultiRename
           AnchorSideRight.Control = gbMaska
           AnchorSideRight.Side = asrBottom
           Left = 4
-          Height = 23
-          Top = 17
-          Width = 283
+          Height = 35
+          Top = 19
+          Width = 240
           Anchors = [akTop, akLeft, akRight]
           AutoSelect = False
+          ItemHeight = 0
           OnChange = cbNameStyleChange
           ParentFont = False
           TabOrder = 0
@@ -220,11 +223,12 @@ object frmMultiRename: TfrmMultiRename
           AnchorSideRight.Control = gbMaska
           AnchorSideRight.Side = asrBottom
           Left = 4
-          Height = 23
-          Top = 86
-          Width = 283
+          Height = 35
+          Top = 114
+          Width = 240
           Anchors = [akTop, akLeft, akRight]
           AutoSelect = False
+          ItemHeight = 0
           OnChange = cbNameStyleChange
           ParentFont = False
           TabOrder = 3
@@ -232,38 +236,38 @@ object frmMultiRename: TfrmMultiRename
       end
       object gbPresets: TGroupBox
         AnchorSideLeft.Control = pnlOptionsLeft
+        AnchorSideTop.Control = gbMaska
+        AnchorSideTop.Side = asrBottom
         AnchorSideRight.Control = pnlOptionsLeft
         AnchorSideRight.Side = asrBottom
-        AnchorSideBottom.Control = pnlOptionsLeft
-        AnchorSideBottom.Side = asrBottom
         Left = 0
-        Height = 47
-        Top = 164
-        Width = 295
-        Anchors = [akLeft, akRight, akBottom]
+        Height = 59
+        Top = 216
+        Width = 250
+        Anchors = [akTop, akLeft, akRight]
         AutoSize = True
         BorderSpacing.Top = 6
         Caption = 'Presets'
         ChildSizing.LeftRightSpacing = 4
+        ChildSizing.TopBottomSpacing = 2
         ChildSizing.HorizontalSpacing = 2
-        ChildSizing.VerticalSpacing = 2
-        ClientHeight = 27
-        ClientWidth = 291
+        ClientHeight = 39
+        ClientWidth = 248
+        ParentColor = False
         ParentFont = False
         TabOrder = 1
         object cbPresets: TComboBox
           AnchorSideLeft.Control = gbPresets
+          AnchorSideTop.Control = gbPresets
           AnchorSideRight.Control = btnPresets
-          AnchorSideBottom.Control = gbPresets
           AnchorSideBottom.Side = asrBottom
           Left = 4
-          Height = 23
-          Top = 0
-          Width = 258
-          Anchors = [akLeft, akRight, akBottom]
-          BorderSpacing.Bottom = 4
+          Height = 35
+          Top = 2
+          Width = 222
+          Anchors = [akTop, akLeft, akRight]
           DropDownCount = 15
-          ItemHeight = 15
+          ItemHeight = 0
           OnChange = cbPresetsChange
           OnCloseUp = cbPresetsCloseUp
           ParentFont = False
@@ -276,11 +280,12 @@ object frmMultiRename: TfrmMultiRename
           AnchorSideRight.Side = asrBottom
           AnchorSideBottom.Control = cbPresets
           AnchorSideBottom.Side = asrBottom
-          Left = 264
-          Height = 23
-          Top = 0
-          Width = 23
+          Left = 228
+          Height = 35
+          Top = 2
+          Width = 16
           Anchors = [akTop, akRight, akBottom]
+          AutoSize = True
           OnClick = actExecute
           ParentBidiMode = False
           ParentFont = False
@@ -290,53 +295,49 @@ object frmMultiRename: TfrmMultiRename
       end
     end
     object spltMainSplitter: TSplitter
-      Left = 295
-      Height = 211
+      Left = 250
+      Height = 275
       Top = 0
       Width = 5
+      ResizeStyle = rsLine
     end
-    object pnlOptionsRight: TPanel
-      Left = 300
-      Height = 211
+    object pnlOptionsRight: TKASToolPanel
+      Left = 255
+      Height = 275
       Top = 0
-      Width = 492
+      Width = 521
       Align = alClient
       AutoSize = True
-      BevelOuter = bvNone
-      ChildSizing.LeftRightSpacing = 4
       ChildSizing.HorizontalSpacing = 2
       ChildSizing.VerticalSpacing = 2
-      ClientHeight = 211
-      ClientWidth = 492
-      ParentFont = False
-      TabOrder = 2
+      EdgeBorders = [ebBottom]
+      TabOrder = 1
       object gbFindReplace: TGroupBox
         AnchorSideLeft.Control = pnlOptionsRight
         AnchorSideTop.Control = pnlOptionsRight
         AnchorSideRight.Control = gbCounter
-        AnchorSideBottom.Control = btnClose
-        Left = 4
-        Height = 157
+        Left = 0
+        Height = 184
         Top = 0
-        Width = 295
-        Anchors = [akTop, akLeft, akRight, akBottom]
+        Width = 318
+        Anchors = [akTop, akLeft, akRight]
         AutoSize = True
         BorderSpacing.Right = 4
         Caption = 'Find && Replace'
         ChildSizing.LeftRightSpacing = 4
         ChildSizing.HorizontalSpacing = 2
         ChildSizing.VerticalSpacing = 2
-        ClientHeight = 137
-        ClientWidth = 291
+        ClientHeight = 164
+        ClientWidth = 316
         ParentFont = False
         TabOrder = 0
         object lbFind: TLabel
           AnchorSideLeft.Control = gbFindReplace
           AnchorSideTop.Control = gbFindReplace
           Left = 4
-          Height = 15
+          Height = 17
           Top = 0
-          Width = 32
+          Width = 38
           Caption = '&Find...'
           FocusControl = edFind
           ParentColor = False
@@ -347,9 +348,9 @@ object frmMultiRename: TfrmMultiRename
           AnchorSideTop.Control = edFind
           AnchorSideTop.Side = asrBottom
           Left = 4
-          Height = 15
-          Top = 44
-          Width = 50
+          Height = 17
+          Top = 58
+          Width = 60
           BorderSpacing.Top = 4
           Caption = 'Re&place...'
           FocusControl = edReplace
@@ -361,9 +362,9 @@ object frmMultiRename: TfrmMultiRename
           AnchorSideTop.Control = edReplace
           AnchorSideTop.Side = asrBottom
           Left = 4
-          Height = 19
-          Top = 88
-          Width = 124
+          Height = 23
+          Top = 116
+          Width = 149
           BorderSpacing.Top = 4
           Caption = 'Regular e&xpressions'
           OnChange = cbRegExpChange
@@ -376,9 +377,9 @@ object frmMultiRename: TfrmMultiRename
           AnchorSideTop.Side = asrBottom
           AnchorSideBottom.Side = asrBottom
           Left = 4
-          Height = 19
-          Top = 109
-          Width = 105
+          Height = 23
+          Top = 141
+          Width = 126
           BorderSpacing.Top = 2
           Caption = '&Use substitution'
           Enabled = False
@@ -393,9 +394,9 @@ object frmMultiRename: TfrmMultiRename
           AnchorSideRight.Control = gbFindReplace
           AnchorSideRight.Side = asrBottom
           Left = 4
-          Height = 23
-          Top = 17
-          Width = 283
+          Height = 35
+          Top = 19
+          Width = 308
           Anchors = [akTop, akLeft, akRight]
           AutoSelect = False
           OnChange = edFindChange
@@ -409,9 +410,9 @@ object frmMultiRename: TfrmMultiRename
           AnchorSideRight.Control = gbFindReplace
           AnchorSideRight.Side = asrBottom
           Left = 4
-          Height = 23
-          Top = 61
-          Width = 283
+          Height = 35
+          Top = 77
+          Width = 308
           Anchors = [akTop, akLeft, akRight]
           AutoSelect = False
           OnChange = edReplaceChange
@@ -424,31 +425,33 @@ object frmMultiRename: TfrmMultiRename
         AnchorSideTop.Control = pnlOptionsRight
         AnchorSideRight.Control = pnlOptionsRight
         AnchorSideRight.Side = asrBottom
-        Left = 303
-        Height = 97
+        AnchorSideBottom.Control = gbFindReplace
+        AnchorSideBottom.Side = asrBottom
+        Left = 322
+        Height = 184
         Top = 0
-        Width = 185
-        Anchors = [akTop, akRight]
+        Width = 199
+        Anchors = [akTop, akRight, akBottom]
         AutoSize = True
         Caption = 'Counter'
         ChildSizing.LeftRightSpacing = 4
-        ChildSizing.HorizontalSpacing = 2
-        ChildSizing.VerticalSpacing = 2
+        ChildSizing.TopBottomSpacing = 2
+        ChildSizing.HorizontalSpacing = 4
+        ChildSizing.VerticalSpacing = 6
         ChildSizing.EnlargeHorizontal = crsScaleChilds
-        ChildSizing.EnlargeVertical = crsScaleChilds
         ChildSizing.ShrinkHorizontal = crsScaleChilds
         ChildSizing.ShrinkVertical = crsScaleChilds
         ChildSizing.Layout = cclLeftToRightThenTopToBottom
         ChildSizing.ControlsPerLine = 2
-        ClientHeight = 77
-        ClientWidth = 181
+        ClientHeight = 164
+        ClientWidth = 197
         ParentFont = False
         TabOrder = 1
         object lbStNb: TLabel
           Left = 4
-          Height = 15
-          Top = 4
-          Width = 71
+          Height = 17
+          Top = 11
+          Width = 85
           BorderSpacing.CellAlignVertical = ccaCenter
           Caption = 'S&tart Number'
           FocusControl = edPoc
@@ -456,9 +459,9 @@ object frmMultiRename: TfrmMultiRename
           ParentFont = False
         end
         object edPoc: TEdit
-          Left = 77
-          Height = 23
-          Top = 0
+          Left = 93
+          Height = 35
+          Top = 2
           Width = 100
           AutoSelect = False
           MaxLength = 10
@@ -469,9 +472,9 @@ object frmMultiRename: TfrmMultiRename
         end
         object lbInterval: TLabel
           Left = 4
-          Height = 15
-          Top = 29
-          Width = 71
+          Height = 17
+          Top = 52
+          Width = 85
           BorderSpacing.CellAlignVertical = ccaCenter
           Caption = '&Interval'
           FocusControl = edInterval
@@ -479,9 +482,9 @@ object frmMultiRename: TfrmMultiRename
           ParentFont = False
         end
         object edInterval: TEdit
-          Left = 77
-          Height = 23
-          Top = 25
+          Left = 93
+          Height = 35
+          Top = 43
           Width = 100
           AutoSelect = False
           MaxLength = 10
@@ -492,9 +495,9 @@ object frmMultiRename: TfrmMultiRename
         end
         object lbWidth: TLabel
           Left = 4
-          Height = 15
-          Top = 54
-          Width = 71
+          Height = 17
+          Top = 91
+          Width = 85
           BorderSpacing.CellAlignVertical = ccaCenter
           Caption = '&Width'
           FocusControl = cmbxWidth
@@ -502,12 +505,12 @@ object frmMultiRename: TfrmMultiRename
           ParentFont = False
         end
         object cmbxWidth: TComboBox
-          Left = 77
-          Height = 23
-          Top = 50
+          Left = 93
+          Height = 31
+          Top = 84
           Width = 100
           BorderSpacing.Bottom = 4
-          ItemHeight = 15
+          ItemHeight = 0
           ItemIndex = 0
           Items.Strings = (
             '01'
@@ -528,38 +531,20 @@ object frmMultiRename: TfrmMultiRename
           Text = '01'
         end
       end
-      object btnRestore: TBitBtn
-        AnchorSideLeft.Control = gbCounter
-        AnchorSideTop.Control = gbCounter
-        AnchorSideTop.Side = asrBottom
-        AnchorSideRight.Control = pnlOptionsRight
-        AnchorSideRight.Side = asrBottom
-        Left = 303
-        Height = 25
-        Top = 99
-        Width = 185
-        Action = actResetAll
-        Anchors = [akTop, akLeft, akRight]
-        AutoSize = True
-        Constraints.MinWidth = 100
-        ParentFont = False
-        TabOrder = 2
-      end
       object cbLog: TCheckBox
         AnchorSideLeft.Control = pnlOptionsRight
+        AnchorSideTop.Control = cbLogAppend
         AnchorSideTop.Side = asrCenter
-        AnchorSideBottom.Control = fneRenameLogFileFilename
         Left = 10
-        Height = 19
-        Top = 165
-        Width = 72
-        Anchors = [akLeft, akBottom]
+        Height = 23
+        Top = 190
+        Width = 87
         BorderSpacing.Left = 10
         BorderSpacing.Top = 2
         Caption = '&Log result'
         OnClick = cbLogClick
         ParentFont = False
-        TabOrder = 7
+        TabOrder = 2
       end
       object btnRelativeRenameLogFile: TSpeedButton
         AnchorSideLeft.Side = asrBottom
@@ -567,9 +552,9 @@ object frmMultiRename: TfrmMultiRename
         AnchorSideRight.Control = btnViewRenameLogFile
         AnchorSideBottom.Control = fneRenameLogFileFilename
         AnchorSideBottom.Side = asrBottom
-        Left = 440
-        Height = 23
-        Top = 186
+        Left = 473
+        Height = 35
+        Top = 215
         Width = 23
         Anchors = [akTop, akRight, akBottom]
         ParentFont = False
@@ -580,120 +565,151 @@ object frmMultiRename: TfrmMultiRename
         AnchorSideRight.Side = asrBottom
         AnchorSideBottom.Control = fneRenameLogFileFilename
         AnchorSideBottom.Side = asrBottom
-        Left = 465
-        Height = 23
-        Top = 186
+        Left = 498
+        Height = 35
+        Top = 215
         Width = 23
         Anchors = [akTop, akRight, akBottom]
         ParentFont = False
       end
       object fneRenameLogFileFilename: TFileNameEdit
         AnchorSideLeft.Control = pnlOptionsRight
+        AnchorSideTop.Control = cbLog
         AnchorSideTop.Side = asrBottom
         AnchorSideRight.Control = btnRelativeRenameLogFile
-        AnchorSideBottom.Control = pnlOptionsRight
         AnchorSideBottom.Side = asrBottom
         Left = 10
-        Height = 23
-        Top = 186
-        Width = 428
+        Height = 35
+        Top = 215
+        Width = 461
         DialogTitle = 'Select target log filename'
         DialogOptions = []
         FilterIndex = 0
         HideDirectories = False
         ButtonWidth = 23
         NumGlyphs = 1
-        Anchors = [akLeft, akRight]
+        Anchors = [akTop, akLeft, akRight]
         BorderSpacing.Left = 10
         MaxLength = 0
         ParentFont = False
-        TabOrder = 8
-        OnChange = cbNameStyleChange
-      end
-      object btnRename: TBitBtn
-        AnchorSideLeft.Control = gbCounter
-        AnchorSideTop.Control = btnRestore
-        AnchorSideTop.Side = asrBottom
-        AnchorSideRight.Control = pnlOptionsRight
-        AnchorSideRight.Side = asrBottom
-        AnchorSideBottom.Control = btnClose
-        Left = 303
-        Height = 31
-        Top = 126
-        Width = 185
-        Action = actRename
-        Anchors = [akTop, akLeft, akRight, akBottom]
-        BorderSpacing.InnerBorder = 2
-        Default = True
-        ParentFont = False
-        TabOrder = 3
-      end
-      object btnClose: TBitBtn
-        AnchorSideRight.Control = pnlOptionsRight
-        AnchorSideRight.Side = asrBottom
-        AnchorSideBottom.Control = fneRenameLogFileFilename
-        Left = 408
-        Height = 25
-        Top = 159
-        Width = 80
-        Action = actClose
-        Anchors = [akRight, akBottom]
-        AutoSize = True
-        Constraints.MinWidth = 80
-        ParentFont = False
-        TabOrder = 6
-      end
-      object btnEditor: TBitBtn
-        AnchorSideRight.Control = btnClose
-        AnchorSideBottom.Control = fneRenameLogFileFilename
-        Left = 326
-        Height = 25
-        Top = 159
-        Width = 80
-        Action = actInvokeEditor
-        Anchors = [akRight, akBottom]
-        AutoSize = True
-        Constraints.MinWidth = 80
-        ParentFont = False
-        TabOrder = 5
-      end
-      object btnConfig: TBitBtn
-        AnchorSideRight.Control = btnEditor
-        AnchorSideBottom.Control = fneRenameLogFileFilename
-        Left = 224
-        Height = 25
-        Top = 159
-        Width = 100
-        Action = actConfig
-        Anchors = [akRight, akBottom]
-        AutoSize = True
-        Constraints.MinWidth = 80
-        ParentFont = False
         TabOrder = 4
+        OnChange = cbNameStyleChange
       end
       object cbLogAppend: TCheckBox
         AnchorSideLeft.Control = cbLog
         AnchorSideLeft.Side = asrBottom
-        AnchorSideTop.Side = asrCenter
-        AnchorSideBottom.Control = fneRenameLogFileFilename
-        Left = 92
-        Height = 19
-        Top = 165
-        Width = 62
-        Anchors = [akLeft, akBottom]
+        AnchorSideTop.Control = gbFindReplace
+        AnchorSideTop.Side = asrBottom
+        Left = 107
+        Height = 23
+        Top = 190
+        Width = 75
         BorderSpacing.Left = 10
-        BorderSpacing.Top = 2
+        BorderSpacing.Top = 6
         Caption = 'Append'
         OnClick = cbLogClick
         ParentFont = False
-        TabOrder = 9
+        TabOrder = 3
       end
     end
   end
+  object pnlButtons: TPanel
+    Left = 0
+    Height = 43
+    Top = 554
+    Width = 788
+    Align = alBottom
+    AutoSize = True
+    BevelOuter = bvNone
+    ChildSizing.LeftRightSpacing = 4
+    ChildSizing.TopBottomSpacing = 4
+    ClientHeight = 43
+    ClientWidth = 788
+    TabOrder = 1
+    object btnClose: TBitBtn
+      AnchorSideTop.Control = pnlButtons
+      AnchorSideRight.Control = pnlButtons
+      AnchorSideRight.Side = asrBottom
+      Left = 704
+      Height = 35
+      Top = 4
+      Width = 80
+      Action = actClose
+      Anchors = [akTop, akRight]
+      AutoSize = True
+      Constraints.MinWidth = 80
+      ParentFont = False
+      TabOrder = 4
+    end
+    object btnRestore: TBitBtn
+      AnchorSideTop.Control = btnClose
+      AnchorSideTop.Side = asrCenter
+      AnchorSideRight.Control = btnClose
+      AnchorSideBottom.Side = asrBottom
+      Left = 598
+      Height = 35
+      Top = 4
+      Width = 100
+      Action = actResetAll
+      Anchors = [akTop, akRight]
+      AutoSize = True
+      BorderSpacing.Right = 6
+      Constraints.MinWidth = 100
+      ParentFont = False
+      TabOrder = 3
+    end
+    object btnRename: TBitBtn
+      AnchorSideTop.Control = btnClose
+      AnchorSideTop.Side = asrCenter
+      AnchorSideRight.Control = btnRestore
+      Left = 525
+      Height = 35
+      Top = 4
+      Width = 67
+      Action = actRename
+      Anchors = [akTop, akRight]
+      AutoSize = True
+      BorderSpacing.Right = 6
+      Default = True
+      ParentFont = False
+      TabOrder = 2
+    end
+    object btnEditor: TBitBtn
+      AnchorSideTop.Control = btnRename
+      AnchorSideTop.Side = asrCenter
+      AnchorSideRight.Side = asrBottom
+      Left = 4
+      Height = 35
+      Top = 4
+      Width = 120
+      Action = actInvokeEditor
+      AutoSize = True
+      Constraints.MinHeight = 26
+      Constraints.MinWidth = 120
+      ParentFont = False
+      TabOrder = 0
+    end
+    object btnConfig: TBitBtn
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideTop.Control = btnRename
+      AnchorSideTop.Side = asrCenter
+      Left = 130
+      Height = 35
+      Top = 4
+      Width = 120
+      Action = actConfig
+      AutoSize = True
+      BorderSpacing.Left = 6
+      Constraints.MinHeight = 26
+      Constraints.MinWidth = 120
+      ParentFont = False
+      TabOrder = 1
+    end
+  end
   object pmEditDirect: TPopupMenu
     Images = dmComData.ilEditorImages
-    left = 504
-    top = 160
+    Left = 504
+    Top = 160
     object mnuLoadFromFile: TMenuItem
       Action = actLoadNamesFromFile
     end
@@ -706,8 +722,8 @@ object frmMultiRename: TfrmMultiRename
   end
   object mmMainMenu: TMainMenu
     Images = dmComData.ilEditorImages
-    left = 96
-    top = 40
+    Left = 96
+    Top = 40
     object miActions: TMenuItem
       Caption = 'Actions'
       object miResetAll: TMenuItem
@@ -744,8 +760,8 @@ object frmMultiRename: TfrmMultiRename
   end
   object actList: TActionList
     Images = dmComData.ilEditorImages
-    left = 360
-    top = 96
+    Left = 360
+    Top = 96
     object actAnyNameMask: TAction
       Tag = 63
       Category = 'Masks'
@@ -1003,21 +1019,21 @@ object frmMultiRename: TfrmMultiRename
   end
   object pmDynamicMasks: TPopupMenu
     Images = dmComData.ilEditorImages
-    left = 96
-    top = 152
+    Left = 96
+    Top = 152
   end
   object pmPresets: TPopupMenu
     Images = dmComData.ilEditorImages
-    left = 120
-    top = 376
+    Left = 120
+    Top = 376
   end
   object pmFloatingMainMaskMenu: TPopupMenu
     Images = dmComData.ilEditorImages
-    left = 96
-    top = 96
+    Left = 96
+    Top = 96
   end
   object pmPathToBeRelativeToHelper: TPopupMenu
-    left = 648
-    top = 160
+    Left = 648
+    Top = 160
   end
 end

src/fmultirename.pas

@@ -43,7 +43,7 @@ uses
   //Lazarus, Free-Pascal, etc.
   LazUtf8, SysUtils, Classes, Graphics, Forms, StdCtrls, Menus, Controls,
   LCLType, StringHashList, Grids, ExtCtrls, Buttons, ActnList, EditBtn,
-  KASButton,
+  KASButton, KASToolPanel,
 
   //DC
   DCXmlConfig, uOSForms, uRegExprW, uFileProperty, uFormCommands,
@@ -136,7 +136,7 @@ type
     cbPresets: TComboBox;
     btnPresets: TBitBtn;
     spltMainSplitter: TSplitter;
-    pnlOptionsRight: TPanel;
+    pnlOptionsRight: TKASToolPanel;
     gbFindReplace: TGroupBox;
     lbFind: TLabel;
     edFind: TEdit;
@@ -229,6 +229,7 @@ type
     procedure FormCreate({%H-}Sender: TObject);
     procedure FormCloseQuery({%H-}Sender: TObject; var CanClose: boolean);
     procedure FormClose({%H-}Sender: TObject; var CloseAction: TCloseAction);
+    procedure FormShow(Sender: TObject);
     procedure StringGridKeyDown({%H-}Sender: TObject; var Key: word; Shift: TShiftState);
     procedure StringGridMouseDown({%H-}Sender: TObject; Button: TMouseButton; {%H-}Shift: TShiftState; X, Y: integer);
     procedure StringGridMouseUp({%H-}Sender: TObject; Button: TMouseButton; {%H-}Shift: TShiftState; {%H-}X, {%H-}Y: integer);
@@ -658,6 +659,14 @@ begin
   end;
 end;
 
+procedure TfrmMultiRename.FormShow(Sender: TObject);
+begin
+{$IF DEFINED(LCLQT5)}
+  gbPresets.Constraints.MaxHeight:= cbPresets.Height + (gbPresets.Height - gbPresets.ClientHeight) + 
+                                    gbPresets.ChildSizing.TopBottomSpacing * 2;
+{$ENDIF}
+end;
+
 { TfrmMultiRename.StringGridKeyDown }
 procedure TfrmMultiRename.StringGridKeyDown(Sender: TObject; var Key: word; Shift: TShiftState);
 var