mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-28 10:02:14 +00:00
730 lines
19 KiB
Text
730 lines
19 KiB
Text
object frmMultiRename: TfrmMultiRename
|
|
Left = 299
|
|
Height = 465
|
|
Top = 143
|
|
Width = 803
|
|
Caption = 'MultiRename'
|
|
ClientHeight = 465
|
|
ClientWidth = 803
|
|
OnClose = FormClose
|
|
OnCreate = FormCreate
|
|
OnShow = FormShow
|
|
Position = poScreenCenter
|
|
SessionProperties = 'Height;Width;WindowState;Left;Top'
|
|
ShowInTaskBar = stAlways
|
|
LCLVersion = '1.2.6.0'
|
|
object StringGrid: TStringGrid
|
|
Left = 6
|
|
Height = 233
|
|
Top = 6
|
|
Width = 791
|
|
Align = alClient
|
|
AutoFillColumns = True
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Right = 6
|
|
ColCount = 3
|
|
Columns = <
|
|
item
|
|
SizePriority = 0
|
|
Title.Caption = 'Old File Name'
|
|
Width = 248
|
|
end
|
|
item
|
|
SizePriority = 0
|
|
Title.Caption = 'New File Name'
|
|
Width = 249
|
|
end
|
|
item
|
|
Title.Caption = 'File Path'
|
|
Width = 292
|
|
end>
|
|
ExtendedSelect = False
|
|
FixedCols = 0
|
|
MouseWheelOption = mwGrid
|
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goRowSelect, goSmoothScroll]
|
|
RowCount = 1
|
|
TabOrder = 0
|
|
TitleStyle = tsNative
|
|
OnKeyDown = StringGridKeyDown
|
|
OnMouseDown = StringGridMouseDown
|
|
OnMouseUp = StringGridMouseUp
|
|
OnResize = StringGridTopLeftChanged
|
|
OnSelection = StringGridSelection
|
|
OnTopLeftChanged = StringGridTopLeftChanged
|
|
ColWidths = (
|
|
248
|
|
249
|
|
292
|
|
)
|
|
end
|
|
object pnlOptions: TPanel
|
|
Left = 6
|
|
Height = 214
|
|
Top = 245
|
|
Width = 791
|
|
Align = alBottom
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
BevelOuter = bvNone
|
|
ClientHeight = 214
|
|
ClientWidth = 791
|
|
TabOrder = 1
|
|
object gbMaska: TGroupBox
|
|
AnchorSideLeft.Control = pnlOptions
|
|
AnchorSideTop.Control = pnlOptions
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 0
|
|
Height = 118
|
|
Top = 0
|
|
Width = 342
|
|
AutoSize = True
|
|
Caption = 'Mask'
|
|
ClientHeight = 101
|
|
ClientWidth = 338
|
|
TabOrder = 0
|
|
object lbName: TLabel
|
|
AnchorSideLeft.Control = gbMaska
|
|
AnchorSideTop.Control = gbMaska
|
|
Left = 6
|
|
Height = 16
|
|
Top = 1
|
|
Width = 58
|
|
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 = 16
|
|
Top = 56
|
|
Width = 59
|
|
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 = 19
|
|
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 = 74
|
|
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 = 19
|
|
Width = 20
|
|
Anchors = [akTop, akLeft, akBottom]
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = '...'
|
|
OnClick = btnNameMenuClick
|
|
PopupMenu = ppNameMenu
|
|
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 = 74
|
|
Width = 20
|
|
Anchors = [akTop, akLeft, akBottom]
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = '...'
|
|
OnClick = btnExtMenuClick
|
|
PopupMenu = ppNameMenu
|
|
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 = 17
|
|
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 = 72
|
|
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 = 348
|
|
Height = 181
|
|
Top = 0
|
|
Width = 236
|
|
Anchors = [akTop, akLeft, akRight]
|
|
AutoSize = True
|
|
BorderSpacing.Left = 6
|
|
Caption = 'Find && Replace'
|
|
ChildSizing.TopBottomSpacing = 2
|
|
ClientHeight = 164
|
|
ClientWidth = 232
|
|
TabOrder = 2
|
|
object lbFind: TLabel
|
|
AnchorSideLeft.Control = gbFindReplace
|
|
AnchorSideTop.Control = gbFindReplace
|
|
Left = 6
|
|
Height = 16
|
|
Top = 6
|
|
Width = 35
|
|
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 = 16
|
|
Top = 55
|
|
Width = 56
|
|
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 = 24
|
|
Width = 224
|
|
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 = 73
|
|
Width = 224
|
|
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 = 22
|
|
Top = 108
|
|
Width = 143
|
|
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 = 22
|
|
Top = 140
|
|
Width = 119
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Top = 10
|
|
Caption = '&Use substitution'
|
|
Enabled = False
|
|
OnChange = cmbNameStyleChange
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
object gbCounter: TGroupBox
|
|
AnchorSideLeft.Control = gbFindReplace
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = gbFindReplace
|
|
AnchorSideRight.Control = pnlOptions
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 590
|
|
Height = 96
|
|
Top = 0
|
|
Width = 201
|
|
Anchors = [akTop, akRight]
|
|
AutoSize = True
|
|
BorderSpacing.Left = 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 = 79
|
|
ClientWidth = 197
|
|
TabOrder = 3
|
|
object lbStNb: TLabel
|
|
Left = 6
|
|
Height = 16
|
|
Top = 4
|
|
Width = 80
|
|
BorderSpacing.CellAlignVertical = ccaCenter
|
|
Caption = 'S&tart Number'
|
|
FocusControl = edPoc
|
|
ParentColor = False
|
|
end
|
|
object edPoc: TEdit
|
|
Left = 91
|
|
Height = 25
|
|
Top = 0
|
|
Width = 100
|
|
MaxLength = 10
|
|
OnChange = edPocChange
|
|
TabOrder = 0
|
|
Text = '1'
|
|
end
|
|
object lbInterval: TLabel
|
|
Left = 6
|
|
Height = 16
|
|
Top = 31
|
|
Width = 80
|
|
BorderSpacing.CellAlignVertical = ccaCenter
|
|
Caption = '&Interval'
|
|
FocusControl = edInterval
|
|
ParentColor = False
|
|
end
|
|
object edInterval: TEdit
|
|
Left = 91
|
|
Height = 25
|
|
Top = 27
|
|
Width = 100
|
|
MaxLength = 10
|
|
OnChange = edIntervalChange
|
|
TabOrder = 2
|
|
Text = '1'
|
|
end
|
|
object lbWidth: TLabel
|
|
Left = 6
|
|
Height = 16
|
|
Top = 58
|
|
Width = 80
|
|
BorderSpacing.CellAlignVertical = ccaCenter
|
|
Caption = '&Width'
|
|
FocusControl = cmbxWidth
|
|
ParentColor = False
|
|
end
|
|
object cmbxWidth: TComboBox
|
|
Left = 91
|
|
Height = 25
|
|
Top = 54
|
|
Width = 100
|
|
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 = 454
|
|
Height = 27
|
|
Top = 187
|
|
Width = 231
|
|
Anchors = [akTop, akLeft, akRight]
|
|
AutoSize = True
|
|
BorderSpacing.Left = 6
|
|
Caption = '&Rename'
|
|
Constraints.MinWidth = 100
|
|
Default = True
|
|
OnClick = btnRenameClick
|
|
TabOrder = 6
|
|
end
|
|
object btnClose: TButton
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = btnRename
|
|
AnchorSideRight.Control = gbCounter
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 691
|
|
Height = 27
|
|
Top = 187
|
|
Width = 100
|
|
Anchors = [akTop, akRight]
|
|
AutoSize = True
|
|
BorderSpacing.Left = 6
|
|
Cancel = True
|
|
Caption = '&Close'
|
|
Constraints.MinWidth = 100
|
|
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 = 590
|
|
Height = 85
|
|
Top = 96
|
|
Width = 201
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
AutoSize = True
|
|
Caption = 'Log Result'
|
|
ClientHeight = 68
|
|
ClientWidth = 197
|
|
TabOrder = 4
|
|
object edFile: TEdit
|
|
AnchorSideLeft.Control = gbLog
|
|
AnchorSideTop.Control = cbLog
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = gbLog
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 4
|
|
Height = 25
|
|
Top = 28
|
|
Width = 189
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Top = 4
|
|
BorderSpacing.Right = 4
|
|
TabOrder = 1
|
|
end
|
|
object cbLog: TCheckBox
|
|
AnchorSideLeft.Control = gbLog
|
|
AnchorSideTop.Control = gbLog
|
|
Left = 4
|
|
Height = 22
|
|
Top = 2
|
|
Width = 64
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Top = 2
|
|
Caption = 'Ena&ble'
|
|
OnClick = cbLogClick
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object btnRestore: TButton
|
|
AnchorSideLeft.Control = gbFindReplace
|
|
AnchorSideTop.Control = gbFindReplace
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 348
|
|
Height = 27
|
|
Top = 187
|
|
Width = 100
|
|
AutoSize = True
|
|
BorderSpacing.Top = 6
|
|
Caption = 'Reset &all'
|
|
Constraints.MinWidth = 100
|
|
OnClick = btnRestoreClick
|
|
TabOrder = 5
|
|
end
|
|
object gbPresets: TGroupBox
|
|
AnchorSideLeft.Control = gbMaska
|
|
AnchorSideTop.Control = gbMaska
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = gbMaska
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 0
|
|
Height = 91
|
|
Top = 118
|
|
Width = 342
|
|
Anchors = [akTop, akLeft, akRight]
|
|
AutoSize = True
|
|
Caption = 'Presets'
|
|
ClientHeight = 74
|
|
ClientWidth = 338
|
|
TabOrder = 1
|
|
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 = 27
|
|
Top = 41
|
|
Width = 100
|
|
AutoSize = True
|
|
BorderSpacing.Top = 8
|
|
BorderSpacing.Bottom = 6
|
|
Caption = '&Load'
|
|
Constraints.MinWidth = 100
|
|
OnClick = btnLoadPresetClick
|
|
TabOrder = 1
|
|
end
|
|
object btnSavePreset: TButton
|
|
AnchorSideLeft.Control = cbPresets
|
|
AnchorSideLeft.Side = asrCenter
|
|
AnchorSideTop.Control = btnLoadPreset
|
|
Left = 119
|
|
Height = 27
|
|
Top = 41
|
|
Width = 100
|
|
AutoSize = True
|
|
BorderSpacing.CellAlignHorizontal = ccaCenter
|
|
BorderSpacing.CellAlignVertical = ccaCenter
|
|
Caption = '&Save'
|
|
Constraints.MinWidth = 100
|
|
OnClick = btnSavePresetClick
|
|
TabOrder = 2
|
|
end
|
|
object btnDeletePreset: TButton
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = btnSavePreset
|
|
AnchorSideRight.Control = cbPresets
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 232
|
|
Height = 27
|
|
Top = 41
|
|
Width = 100
|
|
Anchors = [akTop, akRight]
|
|
AutoSize = True
|
|
Caption = '&Delete'
|
|
Constraints.MinWidth = 100
|
|
OnClick = btnDeletePresetClick
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
end
|
|
object ppNameMenu: TPopupMenu
|
|
AutoPopup = False
|
|
left = 784
|
|
top = 168
|
|
object miNextName: TMenuItem
|
|
Caption = 'Name...'
|
|
object miName: TMenuItem
|
|
Caption = '[N] Name'
|
|
OnClick = NameClick
|
|
end
|
|
object miNameX: TMenuItem
|
|
Caption = '[Nx] Character at position x'
|
|
OnClick = NameXClick
|
|
end
|
|
object miNameXX: TMenuItem
|
|
Caption = '[Nx:y] Characters from position x to y'
|
|
OnClick = NameXXClick
|
|
end
|
|
end
|
|
object N1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object miNextExtension: TMenuItem
|
|
Caption = 'Extension...'
|
|
object Extension: TMenuItem
|
|
Caption = '[E] Extension'
|
|
OnClick = ExtensionClick
|
|
end
|
|
object miExtensionX: TMenuItem
|
|
Caption = '[Ex] Character at position x'
|
|
OnClick = ExtensionXClick
|
|
end
|
|
object miExtensionXX: TMenuItem
|
|
Caption = '[Ex:y] Characters from position x to y'
|
|
OnClick = ExtensionXXClick
|
|
end
|
|
end
|
|
object N2: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object miCounter: TMenuItem
|
|
Caption = '[C] Counter'
|
|
OnClick = CounterClick
|
|
end
|
|
object N3: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object miNext: TMenuItem
|
|
Caption = 'Time...'
|
|
object miYear: TMenuItem
|
|
Caption = '[Y] Year (2 digits)'
|
|
OnClick = miYearClick
|
|
end
|
|
object miYear1: TMenuItem
|
|
Caption = '[YYYY] Year (4 digits)'
|
|
OnClick = miYear1Click
|
|
end
|
|
object miMonth: TMenuItem
|
|
Caption = '[M] Month'
|
|
OnClick = miMonthClick
|
|
end
|
|
object miMonth1: TMenuItem
|
|
Caption = '[MM] Month (2 digits)'
|
|
OnClick = miMonth1Click
|
|
end
|
|
object miMonth2: TMenuItem
|
|
Caption = '[MMM] Month name (short, e.g., "jan")'
|
|
OnClick = miMonth2Click
|
|
end
|
|
object miMonth3: TMenuItem
|
|
Caption = '[MMMM] Month name (long, e.g., "january")'
|
|
OnClick = miMonth3Click
|
|
end
|
|
object miDay: TMenuItem
|
|
Caption = '[D] Day'
|
|
OnClick = miDayClick
|
|
end
|
|
object miDay1: TMenuItem
|
|
Caption = '[DD] Day (2 digits)'
|
|
OnClick = miDay1Click
|
|
end
|
|
object miDay2: TMenuItem
|
|
Caption = '[DDD] Day of the week (short, e.g., "mon")'
|
|
OnClick = miDay2Click
|
|
end
|
|
object miDay3: TMenuItem
|
|
Caption = '[DDDD] Day of the week (long, e.g., "monday")'
|
|
OnClick = miDay3Click
|
|
end
|
|
object N4: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object miHour: TMenuItem
|
|
Caption = '[h] Hour'
|
|
OnClick = miHourClick
|
|
end
|
|
object miHour1: TMenuItem
|
|
Caption = '[hh] Hour (2 digits)'
|
|
OnClick = miHour1Click
|
|
end
|
|
object miMinute: TMenuItem
|
|
Caption = '[n] Minute'
|
|
OnClick = miMinuteClick
|
|
end
|
|
object miMinute1: TMenuItem
|
|
Caption = '[nn] Minute (2 digits)'
|
|
OnClick = miMinute1Click
|
|
end
|
|
object miSecond: TMenuItem
|
|
Caption = '[s] Second'
|
|
OnClick = miSecondClick
|
|
end
|
|
object miSecond1: TMenuItem
|
|
Caption = '[ss] Second (2 digits)'
|
|
OnClick = miSecond1Click
|
|
end
|
|
end
|
|
object N5: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object miPlugin: TMenuItem
|
|
Caption = 'Plugin'
|
|
end
|
|
end
|
|
end
|