mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
661 lines
16 KiB
Text
661 lines
16 KiB
Text
object frmMultiRename: TfrmMultiRename
|
|
Left = 277
|
|
Height = 465
|
|
Top = 253
|
|
Width = 744
|
|
ActiveControl = edName
|
|
Caption = 'MultiRename'
|
|
ClientHeight = 465
|
|
ClientWidth = 744
|
|
OnClose = FormClose
|
|
OnCreate = FormCreate
|
|
OnShow = FormShow
|
|
Position = poScreenCenter
|
|
SessionProperties = 'Height;Width;WindowState;Left;Top'
|
|
ShowInTaskBar = stAlways
|
|
LCLVersion = '0.9.27'
|
|
object gbMaska: TGroupBox
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = lsvwFile
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 6
|
|
Height = 137
|
|
Top = 224
|
|
Width = 342
|
|
AutoSize = True
|
|
BorderSpacing.Left = 6
|
|
Caption = 'Mask'
|
|
ClientHeight = 118
|
|
ClientWidth = 338
|
|
TabOrder = 1
|
|
object lbName: TLabel
|
|
AnchorSideLeft.Control = gbMaska
|
|
AnchorSideTop.Control = gbMaska
|
|
Left = 6
|
|
Height = 18
|
|
Top = 1
|
|
Width = 73
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 1
|
|
Caption = 'File &Name'
|
|
FocusControl = edName
|
|
ParentColor = False
|
|
end
|
|
object lbExt: TLabel
|
|
AnchorSideLeft.Control = gbMaska
|
|
AnchorSideTop.Control = cmbNameStyle
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 18
|
|
Top = 58
|
|
Width = 74
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 10
|
|
Caption = '&Extension'
|
|
FocusControl = edExt
|
|
ParentColor = False
|
|
end
|
|
object edName: TEdit
|
|
AnchorSideLeft.Control = gbMaska
|
|
AnchorSideTop.Control = lbName
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 25
|
|
Top = 21
|
|
Width = 136
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 2
|
|
OnChange = cmbNameStyleChange
|
|
TabOrder = 0
|
|
end
|
|
object edExt: TEdit
|
|
Tag = 25
|
|
AnchorSideLeft.Control = gbMaska
|
|
AnchorSideTop.Control = lbExt
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 25
|
|
Top = 78
|
|
Width = 136
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 2
|
|
OnChange = cmbNameStyleChange
|
|
TabOrder = 3
|
|
end
|
|
object btnNameMenu: TButton
|
|
AnchorSideLeft.Control = edName
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = edName
|
|
AnchorSideBottom.Control = edName
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 146
|
|
Height = 25
|
|
Top = 21
|
|
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 = 25
|
|
Top = 78
|
|
Width = 20
|
|
Anchors = [akTop, akLeft, akBottom]
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = '...'
|
|
OnClick = btnExtMenuClick
|
|
TabOrder = 4
|
|
end
|
|
object cmbNameStyle: TComboBox
|
|
AnchorSideLeft.Control = btnNameMenu
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = btnNameMenu
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = gbMaska
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 170
|
|
Height = 29
|
|
Top = 19
|
|
Width = 164
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Right = 4
|
|
ItemHeight = 0
|
|
OnChange = cmbNameStyleChange
|
|
Style = csDropDownList
|
|
TabOrder = 2
|
|
end
|
|
object cmbExtensionStyle: TComboBox
|
|
AnchorSideLeft.Control = btnExtMenu
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = btnExtMenu
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = gbMaska
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 170
|
|
Height = 29
|
|
Top = 76
|
|
Width = 164
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Right = 4
|
|
ItemHeight = 0
|
|
OnChange = cmbNameStyleChange
|
|
Style = csDropDownList
|
|
TabOrder = 5
|
|
end
|
|
end
|
|
object gbFindReplace: TGroupBox
|
|
AnchorSideLeft.Control = gbMaska
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = gbMaska
|
|
AnchorSideRight.Control = gbCounter
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 354
|
|
Height = 193
|
|
Top = 224
|
|
Width = 218
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Bottom = 6
|
|
Caption = 'Find && Replace'
|
|
ChildSizing.TopBottomSpacing = 2
|
|
ClientHeight = 174
|
|
ClientWidth = 214
|
|
TabOrder = 2
|
|
object lbFind: TLabel
|
|
AnchorSideLeft.Control = gbFindReplace
|
|
AnchorSideTop.Control = gbFindReplace
|
|
Left = 6
|
|
Height = 18
|
|
Top = 6
|
|
Width = 47
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 6
|
|
Caption = '&Find...'
|
|
FocusControl = edFind
|
|
ParentColor = False
|
|
end
|
|
object lbReplace: TLabel
|
|
AnchorSideLeft.Control = gbFindReplace
|
|
AnchorSideTop.Control = edFind
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 18
|
|
Top = 57
|
|
Width = 71
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 6
|
|
Caption = 'Re&place...'
|
|
FocusControl = edReplace
|
|
ParentColor = False
|
|
end
|
|
object edFind: TEdit
|
|
AnchorSideLeft.Control = gbFindReplace
|
|
AnchorSideTop.Control = lbFind
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = gbFindReplace
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 4
|
|
Height = 25
|
|
Top = 26
|
|
Width = 206
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Top = 2
|
|
BorderSpacing.Right = 4
|
|
OnChange = cmbNameStyleChange
|
|
TabOrder = 0
|
|
end
|
|
object edReplace: TEdit
|
|
AnchorSideLeft.Control = gbFindReplace
|
|
AnchorSideTop.Control = lbReplace
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = gbFindReplace
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 4
|
|
Height = 25
|
|
Top = 77
|
|
Width = 206
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Top = 2
|
|
BorderSpacing.Right = 4
|
|
OnChange = cmbNameStyleChange
|
|
TabOrder = 1
|
|
end
|
|
object cbRegExp: TCheckBox
|
|
AnchorSideLeft.Control = gbFindReplace
|
|
AnchorSideTop.Control = edReplace
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 4
|
|
Height = 21
|
|
Top = 112
|
|
Width = 148
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Top = 10
|
|
Caption = 'Regular e&xpressions'
|
|
OnChange = cbRegExpChange
|
|
TabOrder = 2
|
|
end
|
|
object cbUseSubs: TCheckBox
|
|
AnchorSideLeft.Control = gbFindReplace
|
|
AnchorSideTop.Control = cbRegExp
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 4
|
|
Height = 21
|
|
Top = 143
|
|
Width = 126
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Top = 10
|
|
Caption = '&Use substitution'
|
|
Enabled = False
|
|
OnChange = cmbNameStyleChange
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
object gbCounter: TGroupBox
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = gbFindReplace
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 578
|
|
Height = 119
|
|
Top = 224
|
|
Width = 160
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Right = 6
|
|
Caption = 'Counter'
|
|
ClientHeight = 100
|
|
ClientWidth = 156
|
|
TabOrder = 3
|
|
object lbStNb: TLabel
|
|
AnchorSideLeft.Control = gbCounter
|
|
AnchorSideTop.Control = edPoc
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 6
|
|
Height = 18
|
|
Top = 6
|
|
Width = 84
|
|
BorderSpacing.Left = 6
|
|
Caption = 'Start Number'
|
|
ParentColor = False
|
|
end
|
|
object lbInterval: TLabel
|
|
AnchorSideLeft.Control = gbCounter
|
|
AnchorSideTop.Control = edInterval
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 6
|
|
Height = 18
|
|
Top = 72
|
|
Width = 47
|
|
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 = 18
|
|
Top = 39
|
|
Width = 38
|
|
BorderSpacing.Left = 6
|
|
Caption = 'Width'
|
|
ParentColor = False
|
|
end
|
|
object edPoc: TEdit
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = gbCounter
|
|
AnchorSideRight.Control = gbCounter
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 100
|
|
Height = 25
|
|
Top = 3
|
|
Width = 50
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Left = 8
|
|
BorderSpacing.Top = 3
|
|
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 = 100
|
|
Height = 25
|
|
Top = 69
|
|
Width = 50
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Right = 6
|
|
MaxLength = 5
|
|
OnChange = edIntervalChange
|
|
TabOrder = 2
|
|
Text = '1'
|
|
end
|
|
object cmbxWidth: TComboBox
|
|
AnchorSideTop.Control = edPoc
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = gbCounter
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 100
|
|
Height = 29
|
|
Top = 34
|
|
Width = 50
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Right = 6
|
|
ItemHeight = 0
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'01'
|
|
'02'
|
|
'03'
|
|
'04'
|
|
'05'
|
|
'06'
|
|
'07'
|
|
'08'
|
|
'09'
|
|
'10'
|
|
)
|
|
OnChange = cmbNameStyleChange
|
|
Style = csDropDownList
|
|
TabOrder = 1
|
|
Text = '01'
|
|
end
|
|
end
|
|
object btnRename: TButton
|
|
AnchorSideLeft.Control = btnRestore
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = btnRestore
|
|
AnchorSideRight.Control = btnClose
|
|
Left = 460
|
|
Height = 32
|
|
Top = 424
|
|
Width = 172
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = '&Rename'
|
|
Default = True
|
|
OnClick = btnRenameClick
|
|
TabOrder = 6
|
|
end
|
|
object btnClose: TButton
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = btnRename
|
|
AnchorSideRight.Control = gbCounter
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 638
|
|
Height = 32
|
|
Top = 424
|
|
Width = 100
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.InnerBorder = 4
|
|
Cancel = True
|
|
Caption = '&Close'
|
|
OnClick = btnCloseClick
|
|
TabOrder = 7
|
|
end
|
|
object gbLog: TGroupBox
|
|
AnchorSideLeft.Control = gbCounter
|
|
AnchorSideTop.Control = gbCounter
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = gbCounter
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = gbFindReplace
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 578
|
|
Height = 74
|
|
Top = 343
|
|
Width = 160
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
Caption = 'Log Result'
|
|
ClientHeight = 55
|
|
ClientWidth = 156
|
|
TabOrder = 4
|
|
object edFile: TEdit
|
|
AnchorSideLeft.Control = gbLog
|
|
AnchorSideTop.Control = gbLog
|
|
AnchorSideRight.Control = gbLog
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 4
|
|
Height = 25
|
|
Top = 4
|
|
Width = 148
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Top = 4
|
|
BorderSpacing.Right = 4
|
|
TabOrder = 0
|
|
end
|
|
object cbLog: TCheckBox
|
|
AnchorSideLeft.Control = gbLog
|
|
AnchorSideTop.Control = edFile
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 4
|
|
Height = 21
|
|
Top = 31
|
|
Width = 46
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Top = 2
|
|
Caption = 'Log'
|
|
OnClick = cbLogClick
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
object btnRestore: TButton
|
|
AnchorSideLeft.Control = gbFindReplace
|
|
Left = 354
|
|
Height = 32
|
|
Top = 424
|
|
Width = 100
|
|
Anchors = [akLeft]
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = 'Reset all'
|
|
OnClick = btnRestoreClick
|
|
TabOrder = 5
|
|
end
|
|
object lsvwFile: TListView
|
|
Left = 0
|
|
Height = 216
|
|
Top = 8
|
|
Width = 744
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
Columns = <
|
|
item
|
|
AutoSize = True
|
|
Caption = 'Old File Name'
|
|
Width = 98
|
|
end
|
|
item
|
|
AutoSize = True
|
|
Caption = 'New File Name'
|
|
Width = 103
|
|
end
|
|
item
|
|
AutoSize = True
|
|
Caption = 'File Path'
|
|
Width = 541
|
|
end>
|
|
ReadOnly = True
|
|
ScrollBars = ssAutoBoth
|
|
TabStop = False
|
|
TabOrder = 0
|
|
ViewStyle = vsReport
|
|
end
|
|
object gbPresets: TGroupBox
|
|
AnchorSideLeft.Control = gbMaska
|
|
AnchorSideTop.Control = gbMaska
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = gbMaska
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 6
|
|
Height = 98
|
|
Top = 361
|
|
Width = 342
|
|
Anchors = [akTop, akLeft, akRight]
|
|
Caption = 'Presets'
|
|
ClientHeight = 79
|
|
ClientWidth = 338
|
|
TabOrder = 8
|
|
object cbPresets: TComboBox
|
|
AnchorSideLeft.Control = gbPresets
|
|
AnchorSideTop.Control = gbPresets
|
|
AnchorSideRight.Control = gbPresets
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 6
|
|
Height = 27
|
|
Top = 6
|
|
Width = 326
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Right = 6
|
|
ItemHeight = 0
|
|
TabOrder = 0
|
|
end
|
|
object btnLoadPreset: TButton
|
|
AnchorSideLeft.Control = cbPresets
|
|
AnchorSideTop.Control = cbPresets
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 32
|
|
Top = 41
|
|
Width = 100
|
|
BorderSpacing.Top = 8
|
|
Caption = '&Load'
|
|
OnClick = btnLoadPresetClick
|
|
TabOrder = 1
|
|
end
|
|
object btnSavePreset: TButton
|
|
AnchorSideLeft.Control = cbPresets
|
|
AnchorSideLeft.Side = asrCenter
|
|
AnchorSideTop.Control = btnLoadPreset
|
|
Left = 119
|
|
Height = 32
|
|
Top = 41
|
|
Width = 100
|
|
BorderSpacing.CellAlignHorizontal = ccaCenter
|
|
BorderSpacing.CellAlignVertical = ccaCenter
|
|
Caption = '&Save'
|
|
OnClick = btnSavePresetClick
|
|
TabOrder = 2
|
|
end
|
|
object btnDeletePreset: TButton
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = btnSavePreset
|
|
AnchorSideRight.Control = cbPresets
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 232
|
|
Height = 32
|
|
Top = 41
|
|
Width = 100
|
|
Anchors = [akTop, akRight]
|
|
Caption = '&Delete'
|
|
OnClick = btnDeletePresetClick
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
object ppNameMenu: TPopupMenu
|
|
AutoPopup = False
|
|
OnPopup = ppNameMenuPopup
|
|
left = 784
|
|
top = 168
|
|
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'
|
|
OnClick = miYearClick
|
|
end
|
|
object miMonth: TMenuItem
|
|
Caption = '[M]onth'
|
|
OnClick = miMonthClick
|
|
end
|
|
object miDay: TMenuItem
|
|
Caption = '[D]ay'
|
|
OnClick = miDayClick
|
|
end
|
|
object N4: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object miHour: TMenuItem
|
|
Caption = '[h]our'
|
|
OnClick = miHourClick
|
|
end
|
|
object miMinute: TMenuItem
|
|
Caption = 'Mi[n]ute'
|
|
OnClick = miMinuteClick
|
|
end
|
|
object miSecond: TMenuItem
|
|
Caption = '[s]econd'
|
|
OnClick = miSecondClick
|
|
end
|
|
end
|
|
end
|
|
end
|