mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
643 lines
16 KiB
Text
643 lines
16 KiB
Text
object frmMultiRename: TfrmMultiRename
|
|
Left = 277
|
|
Height = 466
|
|
Top = 253
|
|
Width = 764
|
|
ActiveControl = edName
|
|
Caption = 'MultiRename'
|
|
ClientHeight = 466
|
|
ClientWidth = 764
|
|
OnClose = FormClose
|
|
OnCreate = FormCreate
|
|
OnShow = FormShow
|
|
Position = poScreenCenter
|
|
SessionProperties = 'Height;Width;WindowState;Left;Top'
|
|
ShowInTaskBar = stAlways
|
|
LCLVersion = '0.9.29'
|
|
object gbMaska: TGroupBox
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = lsvwFile
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 6
|
|
Height = 139
|
|
Top = 209
|
|
Width = 342
|
|
AutoSize = True
|
|
BorderSpacing.Left = 6
|
|
Caption = 'Mask'
|
|
ClientHeight = 117
|
|
ClientWidth = 338
|
|
TabOrder = 1
|
|
object lbName: TLabel
|
|
AnchorSideLeft.Control = gbMaska
|
|
AnchorSideTop.Control = gbMaska
|
|
Left = 6
|
|
Height = 22
|
|
Top = 1
|
|
Width = 69
|
|
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 = 22
|
|
Top = 64
|
|
Width = 67
|
|
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 = 29
|
|
Top = 25
|
|
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 = 29
|
|
Top = 88
|
|
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 = 29
|
|
Top = 25
|
|
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 = 29
|
|
Top = 88
|
|
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 = 25
|
|
Width = 164
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Right = 4
|
|
ItemHeight = 21
|
|
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 = 88
|
|
Width = 164
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Right = 4
|
|
ItemHeight = 21
|
|
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 = 212
|
|
Top = 209
|
|
Width = 185
|
|
Anchors = [akTop, akLeft, akRight]
|
|
AutoSize = True
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Bottom = 6
|
|
Caption = 'Find && Replace'
|
|
ChildSizing.TopBottomSpacing = 2
|
|
ClientHeight = 190
|
|
ClientWidth = 181
|
|
TabOrder = 2
|
|
object lbFind: TLabel
|
|
AnchorSideLeft.Control = gbFindReplace
|
|
AnchorSideTop.Control = gbFindReplace
|
|
Left = 6
|
|
Height = 22
|
|
Top = 6
|
|
Width = 43
|
|
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 = 22
|
|
Top = 65
|
|
Width = 67
|
|
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 = 29
|
|
Top = 30
|
|
Width = 173
|
|
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 = 29
|
|
Top = 89
|
|
Width = 173
|
|
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 = 25
|
|
Top = 128
|
|
Width = 163
|
|
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 = 25
|
|
Top = 163
|
|
Width = 138
|
|
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 = 545
|
|
Height = 113
|
|
Top = 209
|
|
Width = 213
|
|
Anchors = [akTop, akRight]
|
|
AutoSize = True
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Right = 6
|
|
Caption = 'Counter'
|
|
ChildSizing.LeftRightSpacing = 6
|
|
ChildSizing.HorizontalSpacing = 5
|
|
ChildSizing.VerticalSpacing = 2
|
|
ChildSizing.EnlargeHorizontal = crsScaleChilds
|
|
ChildSizing.EnlargeVertical = crsScaleChilds
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 2
|
|
ClientHeight = 91
|
|
ClientWidth = 209
|
|
TabOrder = 3
|
|
object lbStNb: TLabel
|
|
Left = 6
|
|
Height = 22
|
|
Top = 3
|
|
Width = 92
|
|
BorderSpacing.CellAlignVertical = ccaCenter
|
|
Caption = 'Start Number'
|
|
ParentColor = False
|
|
end
|
|
object edPoc: TEdit
|
|
Left = 103
|
|
Height = 29
|
|
Top = 0
|
|
Width = 100
|
|
MaxLength = 5
|
|
OnChange = edPocChange
|
|
TabOrder = 0
|
|
Text = '1'
|
|
end
|
|
object lbInterval: TLabel
|
|
Left = 6
|
|
Height = 22
|
|
Top = 34
|
|
Width = 92
|
|
BorderSpacing.CellAlignVertical = ccaCenter
|
|
Caption = 'Interval'
|
|
ParentColor = False
|
|
end
|
|
object edInterval: TEdit
|
|
Left = 103
|
|
Height = 29
|
|
Top = 31
|
|
Width = 100
|
|
MaxLength = 5
|
|
OnChange = edIntervalChange
|
|
TabOrder = 2
|
|
Text = '1'
|
|
end
|
|
object lbWidth: TLabel
|
|
Left = 6
|
|
Height = 22
|
|
Top = 65
|
|
Width = 92
|
|
BorderSpacing.CellAlignVertical = ccaCenter
|
|
Caption = 'Width'
|
|
ParentColor = False
|
|
end
|
|
object cmbxWidth: TComboBox
|
|
Left = 103
|
|
Height = 29
|
|
Top = 62
|
|
Width = 100
|
|
ItemHeight = 21
|
|
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 = 427
|
|
Width = 192
|
|
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 = 658
|
|
Height = 32
|
|
Top = 427
|
|
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 = 545
|
|
Height = 99
|
|
Top = 322
|
|
Width = 213
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
AutoSize = True
|
|
Caption = 'Log Result'
|
|
ClientHeight = 77
|
|
ClientWidth = 209
|
|
TabOrder = 4
|
|
object edFile: TEdit
|
|
AnchorSideLeft.Control = gbLog
|
|
AnchorSideTop.Control = cbLog
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = gbLog
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 4
|
|
Height = 29
|
|
Top = 31
|
|
Width = 201
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Top = 4
|
|
BorderSpacing.Right = 4
|
|
TabOrder = 0
|
|
end
|
|
object cbLog: TCheckBox
|
|
AnchorSideLeft.Control = gbLog
|
|
AnchorSideTop.Control = gbLog
|
|
Left = 4
|
|
Height = 25
|
|
Top = 2
|
|
Width = 128
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Top = 2
|
|
Caption = 'Enable'
|
|
OnClick = cbLogClick
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
object btnRestore: TButton
|
|
AnchorSideLeft.Control = gbFindReplace
|
|
AnchorSideTop.Control = gbFindReplace
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 354
|
|
Height = 32
|
|
Top = 427
|
|
Width = 100
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = 'Reset all'
|
|
OnClick = btnRestoreClick
|
|
TabOrder = 5
|
|
end
|
|
object lsvwFile: TListView
|
|
Left = 0
|
|
Height = 201
|
|
Top = 8
|
|
Width = 764
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
Columns = <
|
|
item
|
|
AutoSize = True
|
|
Caption = 'Old File Name'
|
|
Width = 740
|
|
end
|
|
item
|
|
AutoSize = True
|
|
Caption = 'New File Name'
|
|
Width = 114
|
|
end
|
|
item
|
|
AutoSize = True
|
|
Caption = 'File Path'
|
|
Width = 71
|
|
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 = 97
|
|
Top = 348
|
|
Width = 342
|
|
Anchors = [akTop, akLeft, akRight]
|
|
AutoSize = True
|
|
Caption = 'Presets'
|
|
ClientHeight = 75
|
|
ClientWidth = 338
|
|
TabOrder = 8
|
|
object cbPresets: TComboBox
|
|
AnchorSideLeft.Control = gbPresets
|
|
AnchorSideTop.Control = gbPresets
|
|
AnchorSideRight.Control = gbPresets
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 6
|
|
Height = 29
|
|
Top = 6
|
|
Width = 326
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Right = 6
|
|
ItemHeight = 21
|
|
TabOrder = 0
|
|
end
|
|
object btnLoadPreset: TButton
|
|
AnchorSideLeft.Control = cbPresets
|
|
AnchorSideTop.Control = cbPresets
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 32
|
|
Top = 43
|
|
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 = 43
|
|
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 = 43
|
|
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
|