mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
556 lines
14 KiB
Text
556 lines
14 KiB
Text
object frmMultiRename: TfrmMultiRename
|
|
Left = 259
|
|
Height = 400
|
|
Top = 157
|
|
Width = 700
|
|
ActiveControl = edName
|
|
Caption = 'MultiRename'
|
|
ClientHeight = 400
|
|
ClientWidth = 700
|
|
OnCreate = FormCreate
|
|
ParentFont = False
|
|
Position = poMainFormCenter
|
|
LCLVersion = '0.9.27'
|
|
object gbMaska: TGroupBox
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 6
|
|
Height = 119
|
|
Top = 240
|
|
Width = 176
|
|
Anchors = [akLeft, akBottom]
|
|
BorderSpacing.Left = 6
|
|
Caption = 'Mask'
|
|
ClientHeight = 101
|
|
ClientWidth = 172
|
|
ParentCtl3D = False
|
|
TabOrder = 0
|
|
object lbName: TLabel
|
|
AnchorSideLeft.Control = gbMaska
|
|
AnchorSideTop.Control = gbMaska
|
|
Left = 6
|
|
Height = 14
|
|
Width = 47
|
|
BorderSpacing.Left = 6
|
|
Caption = 'File Name'
|
|
ParentColor = False
|
|
end
|
|
object lbExt: TLabel
|
|
AnchorSideLeft.Control = gbMaska
|
|
AnchorSideTop.Control = edName
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 14
|
|
Top = 46
|
|
Width = 48
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 6
|
|
Caption = 'Extension'
|
|
ParentColor = False
|
|
end
|
|
object edName: TEdit
|
|
AnchorSideLeft.Control = gbMaska
|
|
AnchorSideTop.Control = lbName
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 20
|
|
Top = 20
|
|
Width = 136
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 6
|
|
OnChange = cmbxFontChange
|
|
TabOrder = 0
|
|
end
|
|
object edExt: TEdit
|
|
Tag = 25
|
|
AnchorSideLeft.Control = gbMaska
|
|
AnchorSideTop.Control = lbExt
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 20
|
|
Top = 66
|
|
Width = 136
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 6
|
|
OnChange = cmbxFontChange
|
|
TabOrder = 2
|
|
end
|
|
object btnNameMenu: TButton
|
|
AnchorSideLeft.Control = edName
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = edName
|
|
AnchorSideBottom.Control = edName
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 146
|
|
Height = 20
|
|
Top = 20
|
|
Width = 20
|
|
Anchors = [akTop, akLeft, akBottom]
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = '...'
|
|
OnClick = btnNameMenuClick
|
|
TabOrder = 1
|
|
end
|
|
object btnExtMenu: TButton
|
|
AnchorSideLeft.Control = edExt
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = edExt
|
|
AnchorSideBottom.Control = edExt
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 146
|
|
Height = 20
|
|
Top = 66
|
|
Width = 20
|
|
Anchors = [akTop, akLeft, akBottom]
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = '...'
|
|
OnClick = btnExtMenuClick
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
object gbFindReplace: TGroupBox
|
|
AnchorSideLeft.Control = gbMaska
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideBottom.Control = gbLog
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 188
|
|
Height = 151
|
|
Top = 240
|
|
Width = 156
|
|
Anchors = [akLeft, akBottom]
|
|
BorderSpacing.Left = 6
|
|
Caption = 'Find && Replace'
|
|
ClientHeight = 133
|
|
ClientWidth = 152
|
|
ParentCtl3D = False
|
|
TabOrder = 1
|
|
object lbFind: TLabel
|
|
AnchorSideLeft.Control = gbFindReplace
|
|
AnchorSideTop.Control = gbFindReplace
|
|
Left = 6
|
|
Height = 14
|
|
Width = 33
|
|
BorderSpacing.Left = 6
|
|
Caption = 'Find...'
|
|
ParentColor = False
|
|
end
|
|
object lbReplace: TLabel
|
|
AnchorSideLeft.Control = gbFindReplace
|
|
AnchorSideTop.Control = edFind
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 14
|
|
Top = 46
|
|
Width = 51
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 6
|
|
Caption = 'Replace...'
|
|
ParentColor = False
|
|
end
|
|
object edFind: TEdit
|
|
AnchorSideLeft.Control = gbFindReplace
|
|
AnchorSideTop.Control = lbFind
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = gbFindReplace
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 4
|
|
Height = 20
|
|
Top = 20
|
|
Width = 144
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Right = 4
|
|
OnChange = cmbxFontChange
|
|
TabOrder = 0
|
|
end
|
|
object edReplace: TEdit
|
|
AnchorSideLeft.Control = gbFindReplace
|
|
AnchorSideTop.Control = lbReplace
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = gbFindReplace
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 4
|
|
Height = 20
|
|
Top = 66
|
|
Width = 144
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Right = 4
|
|
OnChange = cmbxFontChange
|
|
TabOrder = 1
|
|
end
|
|
object cbRegExp: TCheckBox
|
|
AnchorSideLeft.Control = gbFindReplace
|
|
AnchorSideTop.Control = edReplace
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 4
|
|
Height = 19
|
|
Top = 90
|
|
Width = 123
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Top = 4
|
|
Caption = '&Regular expressions'
|
|
OnChange = cbRegExpChange
|
|
TabOrder = 2
|
|
end
|
|
object cbUseSubs: TCheckBox
|
|
AnchorSideLeft.Control = gbFindReplace
|
|
AnchorSideTop.Control = cbRegExp
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 4
|
|
Height = 19
|
|
Top = 111
|
|
Width = 103
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Top = 2
|
|
Caption = 'Use substitution'
|
|
OnChange = cmbxFontChange
|
|
Enabled = False
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
object gbFontStyle: TGroupBox
|
|
AnchorSideBottom.Control = gbLog
|
|
Left = 536
|
|
Height = 63
|
|
Top = 240
|
|
Width = 157
|
|
Anchors = [akRight, akBottom]
|
|
BorderSpacing.Bottom = 6
|
|
Caption = 'File Name Style'
|
|
ClientHeight = 45
|
|
ClientWidth = 153
|
|
ParentCtl3D = False
|
|
TabOrder = 2
|
|
object cmbxFont: TComboBox
|
|
AnchorSideLeft.Control = gbFontStyle
|
|
AnchorSideTop.Control = gbFontStyle
|
|
AnchorSideRight.Control = gbFontStyle
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 4
|
|
Height = 21
|
|
Top = 6
|
|
Width = 145
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Right = 4
|
|
ItemHeight = 13
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'no change'
|
|
'uppercase'
|
|
'lowercase'
|
|
'first char big'
|
|
)
|
|
OnChange = cmbxFontChange
|
|
ParentCtl3D = False
|
|
Style = csDropDownList
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object gbCounter: TGroupBox
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideRight.Control = gbFontStyle
|
|
Left = 360
|
|
Height = 119
|
|
Top = 240
|
|
Width = 170
|
|
Anchors = [akRight, akBottom]
|
|
BorderSpacing.Right = 6
|
|
Caption = 'Counter'
|
|
ClientHeight = 101
|
|
ClientWidth = 166
|
|
ParentCtl3D = False
|
|
TabOrder = 3
|
|
object lbStNb: TLabel
|
|
AnchorSideLeft.Control = gbCounter
|
|
AnchorSideTop.Control = edPoc
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 6
|
|
Height = 14
|
|
Top = 9
|
|
Width = 65
|
|
BorderSpacing.Left = 6
|
|
Caption = 'Start Number'
|
|
ParentColor = False
|
|
end
|
|
object lbInterval: TLabel
|
|
AnchorSideLeft.Control = gbCounter
|
|
AnchorSideTop.Control = edInterval
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 6
|
|
Height = 14
|
|
Top = 62
|
|
Width = 39
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Right = 6
|
|
Caption = 'Interval'
|
|
ParentColor = False
|
|
end
|
|
object lbWidth: TLabel
|
|
AnchorSideLeft.Control = gbCounter
|
|
AnchorSideTop.Control = cmbxWidth
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 6
|
|
Height = 14
|
|
Top = 35
|
|
Width = 29
|
|
BorderSpacing.Left = 6
|
|
Caption = 'Width'
|
|
ParentColor = False
|
|
end
|
|
object edPoc: TEdit
|
|
AnchorSideTop.Control = gbCounter
|
|
AnchorSideRight.Control = gbCounter
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 110
|
|
Height = 20
|
|
Top = 6
|
|
Width = 50
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Right = 6
|
|
MaxLength = 5
|
|
OnChange = edPocChange
|
|
TabOrder = 0
|
|
Text = '1'
|
|
end
|
|
object edInterval: TEdit
|
|
AnchorSideTop.Control = cmbxWidth
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = gbCounter
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 110
|
|
Height = 20
|
|
Top = 59
|
|
Width = 50
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Right = 6
|
|
MaxLength = 5
|
|
OnChange = edIntervalChange
|
|
TabOrder = 1
|
|
Text = '1'
|
|
end
|
|
object cmbxWidth: TComboBox
|
|
AnchorSideTop.Control = edPoc
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = gbCounter
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 110
|
|
Height = 21
|
|
Top = 32
|
|
Width = 50
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Right = 6
|
|
ItemHeight = 13
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'01'
|
|
'02'
|
|
'03'
|
|
'04'
|
|
'05'
|
|
'06'
|
|
'07'
|
|
'08'
|
|
'09'
|
|
'10'
|
|
)
|
|
OnChange = cmbxFontChange
|
|
ParentCtl3D = False
|
|
Style = csDropDownList
|
|
TabOrder = 2
|
|
Text = '01'
|
|
end
|
|
end
|
|
object btnOK: TButton
|
|
AnchorSideRight.Control = btnCancel
|
|
Left = 392
|
|
Height = 32
|
|
Top = 366
|
|
Width = 66
|
|
Anchors = [akRight, akBottom]
|
|
BorderSpacing.Right = 6
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = 'OK'
|
|
OnClick = btnOKClick
|
|
TabOrder = 4
|
|
end
|
|
object btnCancel: TButton
|
|
AnchorSideRight.Control = gbLog
|
|
Left = 464
|
|
Height = 32
|
|
Top = 366
|
|
Width = 66
|
|
Anchors = [akRight, akBottom]
|
|
BorderSpacing.Right = 6
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = 'Cancel'
|
|
ModalResult = 2
|
|
TabOrder = 5
|
|
end
|
|
object gbLog: TGroupBox
|
|
Left = 536
|
|
Height = 82
|
|
Top = 309
|
|
Width = 157
|
|
Anchors = [akRight, akBottom]
|
|
Caption = 'Log Result'
|
|
ClientHeight = 64
|
|
ClientWidth = 153
|
|
ParentCtl3D = False
|
|
TabOrder = 6
|
|
object edFile: TEdit
|
|
AnchorSideLeft.Control = gbLog
|
|
AnchorSideTop.Control = gbLog
|
|
AnchorSideRight.Control = gbLog
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 4
|
|
Height = 20
|
|
Top = 6
|
|
Width = 145
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Right = 4
|
|
TabOrder = 0
|
|
end
|
|
object cbLog: TCheckBox
|
|
AnchorSideLeft.Control = gbLog
|
|
AnchorSideTop.Control = edFile
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 4
|
|
Height = 19
|
|
Top = 32
|
|
Width = 43
|
|
AllowGrayed = True
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Top = 6
|
|
Caption = 'Log'
|
|
OnClick = cbLogClick
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
object btnRestore: TButton
|
|
Left = 8
|
|
Height = 32
|
|
Top = 364
|
|
Width = 144
|
|
Anchors = [akLeft, akBottom]
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = 'Restore All'
|
|
OnClick = btnRestoreClick
|
|
TabOrder = 7
|
|
end
|
|
object lsvwFile: TListView
|
|
Left = 2
|
|
Height = 230
|
|
Top = 2
|
|
Width = 695
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
Columns = <
|
|
item
|
|
AutoSize = True
|
|
Caption = 'Old File Name'
|
|
Width = 105
|
|
end
|
|
item
|
|
AutoSize = True
|
|
Caption = 'New File Name'
|
|
Width = 112
|
|
end
|
|
item
|
|
AutoSize = True
|
|
Caption = 'File Path'
|
|
Width = 460
|
|
end>
|
|
TabOrder = 8
|
|
ViewStyle = vsReport
|
|
end
|
|
object ppNameMenu: TPopupMenu
|
|
AutoPopup = False
|
|
OnPopup = ppNameMenuPopup
|
|
left = 264
|
|
top = 320
|
|
object miNextName: TMenuItem
|
|
Caption = 'Name...'
|
|
object miName: TMenuItem
|
|
Caption = '[N]ame'
|
|
OnClick = NameClick
|
|
end
|
|
object miNameX: TMenuItem
|
|
Caption = '[Nx]ame'
|
|
OnClick = NameXClick
|
|
end
|
|
object miNameXX: TMenuItem
|
|
Caption = '[Nx:x]ame'
|
|
OnClick = NameXXClick
|
|
end
|
|
end
|
|
object N1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object miNextExtension: TMenuItem
|
|
Caption = 'Extension...'
|
|
object Extension: TMenuItem
|
|
Caption = '[E]xtension'
|
|
OnClick = ExtensionClick
|
|
end
|
|
object miExtensionX: TMenuItem
|
|
Caption = '[Ex]xtension'
|
|
OnClick = ExtensionXClick
|
|
end
|
|
object miExtensionXX: TMenuItem
|
|
Caption = '[Ex:x]xtension'
|
|
OnClick = ExtensionXXClick
|
|
end
|
|
end
|
|
object N2: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object miCounter: TMenuItem
|
|
Caption = '[C]ounter'
|
|
OnClick = CounterClick
|
|
end
|
|
object N3: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object miNext: TMenuItem
|
|
Caption = 'Time...'
|
|
object miYear: TMenuItem
|
|
Caption = '[Y]ear'
|
|
Enabled = False
|
|
end
|
|
object miMonth: TMenuItem
|
|
Caption = '[Mo]nth'
|
|
Enabled = False
|
|
end
|
|
object miDay: TMenuItem
|
|
Caption = '[D]ay'
|
|
Enabled = False
|
|
end
|
|
object N4: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object miHour: TMenuItem
|
|
Caption = '[H]our'
|
|
Enabled = False
|
|
end
|
|
object miMinute: TMenuItem
|
|
Caption = '[Mi]nute'
|
|
Enabled = False
|
|
end
|
|
object miSecond: TMenuItem
|
|
Caption = '[S]econd'
|
|
Enabled = False
|
|
end
|
|
end
|
|
end
|
|
end
|