UPD: Rearrange buttons

This commit is contained in:
Alexander Koblov 2021-10-31 10:30:35 +03:00
commit 6200919152

81
src/fmultirename.lfm Normal file → Executable file
View file

@ -420,30 +420,46 @@ object frmMultiRename: TfrmMultiRename
TabOrder = 1
end
end
object btnEditor: TBitBtn
AnchorSideLeft.Control = gbCounter
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = gbCounter
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = gbFindReplace
AnchorSideBottom.Side = asrBottom
Left = 322
Height = 35
Top = 149
Width = 199
Action = actInvokeEditor
Anchors = [akLeft, akRight, akBottom]
AutoSize = True
ParentFont = False
TabOrder = 2
end
object gbCounter: TGroupBox
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = pnlOptionsRight
AnchorSideRight.Control = pnlOptionsRight
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = gbFindReplace
AnchorSideBottom.Side = asrBottom
Left = 322
Height = 184
Height = 135
Top = 0
Width = 199
Anchors = [akTop, akRight, akBottom]
Anchors = [akTop, akRight]
AutoSize = True
Caption = 'Counter'
ChildSizing.LeftRightSpacing = 4
ChildSizing.TopBottomSpacing = 2
ChildSizing.HorizontalSpacing = 4
ChildSizing.VerticalSpacing = 6
ChildSizing.VerticalSpacing = 4
ChildSizing.EnlargeHorizontal = crsScaleChilds
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2
ClientHeight = 164
ClientHeight = 115
ClientWidth = 197
ParentFont = False
TabOrder = 1
@ -473,7 +489,7 @@ object frmMultiRename: TfrmMultiRename
object lbInterval: TLabel
Left = 4
Height = 17
Top = 52
Top = 50
Width = 85
BorderSpacing.CellAlignVertical = ccaCenter
Caption = '&Interval'
@ -484,7 +500,7 @@ object frmMultiRename: TfrmMultiRename
object edInterval: TEdit
Left = 93
Height = 35
Top = 43
Top = 41
Width = 100
AutoSelect = False
MaxLength = 10
@ -496,7 +512,7 @@ object frmMultiRename: TfrmMultiRename
object lbWidth: TLabel
Left = 4
Height = 17
Top = 91
Top = 87
Width = 85
BorderSpacing.CellAlignVertical = ccaCenter
Caption = '&Width'
@ -507,7 +523,7 @@ object frmMultiRename: TfrmMultiRename
object cmbxWidth: TComboBox
Left = 93
Height = 31
Top = 84
Top = 80
Width = 100
BorderSpacing.Bottom = 4
ItemHeight = 0
@ -544,7 +560,7 @@ object frmMultiRename: TfrmMultiRename
Caption = '&Log result'
OnClick = cbLogClick
ParentFont = False
TabOrder = 2
TabOrder = 3
end
object btnRelativeRenameLogFile: TSpeedButton
AnchorSideLeft.Side = asrBottom
@ -592,7 +608,7 @@ object frmMultiRename: TfrmMultiRename
BorderSpacing.Left = 10
MaxLength = 0
ParentFont = False
TabOrder = 4
TabOrder = 5
OnChange = cbNameStyleChange
end
object cbLogAppend: TCheckBox
@ -609,7 +625,7 @@ object frmMultiRename: TfrmMultiRename
Caption = 'Append'
OnClick = cbLogClick
ParentFont = False
TabOrder = 3
TabOrder = 4
end
end
end
@ -621,7 +637,7 @@ object frmMultiRename: TfrmMultiRename
Align = alBottom
AutoSize = True
BevelOuter = bvNone
ChildSizing.LeftRightSpacing = 4
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 4
ClientHeight = 43
ClientWidth = 788
@ -630,7 +646,7 @@ object frmMultiRename: TfrmMultiRename
AnchorSideTop.Control = pnlButtons
AnchorSideRight.Control = pnlButtons
AnchorSideRight.Side = asrBottom
Left = 704
Left = 702
Height = 35
Top = 4
Width = 80
@ -639,30 +655,30 @@ object frmMultiRename: TfrmMultiRename
AutoSize = True
Constraints.MinWidth = 80
ParentFont = False
TabOrder = 4
TabOrder = 3
end
object btnRestore: TBitBtn
AnchorSideLeft.Control = btnConfig
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnClose
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = btnClose
AnchorSideBottom.Side = asrBottom
Left = 598
Left = 132
Height = 35
Top = 4
Width = 100
Action = actResetAll
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 6
BorderSpacing.Left = 6
Constraints.MinWidth = 100
ParentFont = False
TabOrder = 3
TabOrder = 1
end
object btnRename: TBitBtn
AnchorSideTop.Control = btnClose
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = btnRestore
Left = 525
AnchorSideRight.Control = btnClose
Left = 629
Height = 35
Top = 4
Width = 67
@ -674,34 +690,19 @@ object frmMultiRename: TfrmMultiRename
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.MinWidth = 120
ParentFont = False
TabOrder = 0
end
object btnConfig: TBitBtn
AnchorSideLeft.Side = asrBottom
AnchorSideLeft.Control = pnlButtons
AnchorSideTop.Control = btnRename
AnchorSideTop.Side = asrCenter
Left = 130
Left = 6
Height = 35
Top = 4
Width = 120
Action = actConfig
AutoSize = True
BorderSpacing.Left = 6
Constraints.MinWidth = 120
ParentFont = False
TabOrder = 1
TabOrder = 0
end
end
object pmEditDirect: TPopupMenu