doublecmd/src/fmultirename.lfm
Alexander Koblov 61ba8c96e2 FIX: Default button height
(cherry picked from commit 0b5d0c917e)
2021-10-30 22:40:03 +03:00

1037 lines
28 KiB
Text

object frmMultiRename: TfrmMultiRename
Left = 492
Height = 624
Top = 132
Width = 788
ActiveControl = cbName
Caption = 'Multi-Rename Tool'
ClientHeight = 597
ClientWidth = 788
KeyPreview = True
Menu = mmMainMenu
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
SessionProperties = 'Height;Left;Top;Width;WindowState;pnlOptionsLeft.Width'
ShowHint = True
ShowInTaskBar = stAlways
LCLVersion = '2.0.12.0'
object StringGrid: TStringGrid
Left = 6
Height = 261
Top = 6
Width = 776
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 = 277
end>
ExtendedSelect = False
FixedCols = 0
MouseWheelOption = mwGrid
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goRowSelect, goSmoothScroll]
ParentFont = False
RowCount = 1
TabOrder = 2
TitleStyle = tsNative
OnKeyDown = StringGridKeyDown
OnMouseDown = StringGridMouseDown
OnMouseUp = StringGridMouseUp
OnResize = StringGridTopLeftChanged
OnSelection = StringGridSelection
OnTopLeftChanged = StringGridTopLeftChanged
ColWidths = (
248
249
277
)
end
object pnlOptions: TPanel
Left = 6
Height = 275
Top = 273
Width = 776
Align = alBottom
AutoSize = True
BorderSpacing.Around = 6
BevelOuter = bvNone
ClientHeight = 275
ClientWidth = 776
ParentFont = False
TabOrder = 0
object pnlOptionsLeft: TPanel
AnchorSideRight.Side = asrBottom
Left = 0
Height = 275
Top = 0
Width = 250
Align = alLeft
BevelOuter = bvNone
ClientHeight = 275
ClientWidth = 250
ParentFont = False
TabOrder = 0
object gbMaska: TGroupBox
AnchorSideLeft.Control = pnlOptionsLeft
AnchorSideTop.Control = pnlOptionsLeft
AnchorSideRight.Control = pnlOptionsLeft
AnchorSideRight.Side = asrBottom
Left = 0
Height = 210
Top = 0
Width = 250
Anchors = [akTop, akLeft, akRight]
AutoSize = True
Caption = 'Mask'
ChildSizing.LeftRightSpacing = 4
ChildSizing.HorizontalSpacing = 2
ChildSizing.VerticalSpacing = 2
ClientHeight = 190
ClientWidth = 248
ParentFont = False
TabOrder = 0
object lbName: TLabel
AnchorSideLeft.Control = gbMaska
AnchorSideTop.Control = gbMaska
AnchorSideBottom.Control = cbName
Left = 4
Height = 17
Top = 0
Width = 61
Caption = 'File &Name'
FocusControl = cbName
ParentColor = False
ParentFont = False
end
object lbExt: TLabel
AnchorSideLeft.Control = gbMaska
AnchorSideTop.Control = cbNameMaskStyle
AnchorSideTop.Side = asrBottom
Left = 4
Height = 17
Top = 95
Width = 60
Caption = '&Extension'
FocusControl = cbExt
ParentColor = False
ParentFont = False
end
object cbNameMaskStyle: TComboBox
AnchorSideLeft.Control = btnAnyNameMask
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbName
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbMaska
AnchorSideRight.Side = asrBottom
Left = 29
Height = 35
Top = 56
Width = 215
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Bottom = 4
ItemHeight = 0
OnChange = cbNameStyleChange
ParentFont = False
Style = csDropDownList
TabOrder = 2
end
object cmbExtensionStyle: TComboBox
AnchorSideLeft.Control = btnAnyExtMask
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbExt
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbMaska
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 29
Height = 35
Top = 151
Width = 215
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Bottom = 4
ItemHeight = 0
OnChange = cbNameStyleChange
ParentFont = False
Style = csDropDownList
TabOrder = 5
end
object btnAnyNameMask: TKASButton
AnchorSideLeft.Control = gbMaska
AnchorSideTop.Control = cbNameMaskStyle
AnchorSideBottom.Control = cbNameMaskStyle
AnchorSideBottom.Side = asrBottom
Left = 4
Height = 35
Top = 56
Width = 23
Anchors = [akTop, akLeft, akBottom]
TabOrder = 1
TabStop = True
end
object btnAnyExtMask: TKASButton
AnchorSideLeft.Control = gbMaska
AnchorSideTop.Control = cmbExtensionStyle
AnchorSideBottom.Control = cmbExtensionStyle
AnchorSideBottom.Side = asrBottom
Left = 4
Height = 35
Top = 151
Width = 23
Anchors = [akTop, akLeft, akBottom]
TabOrder = 4
TabStop = True
end
object cbName: TComboBox
AnchorSideLeft.Control = gbMaska
AnchorSideTop.Control = lbName
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbMaska
AnchorSideRight.Side = asrBottom
Left = 4
Height = 35
Top = 19
Width = 240
Anchors = [akTop, akLeft, akRight]
AutoSelect = False
ItemHeight = 0
OnChange = cbNameStyleChange
ParentFont = False
TabOrder = 0
end
object cbExt: TComboBox
AnchorSideLeft.Control = gbMaska
AnchorSideTop.Control = lbExt
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbMaska
AnchorSideRight.Side = asrBottom
Left = 4
Height = 35
Top = 114
Width = 240
Anchors = [akTop, akLeft, akRight]
AutoSelect = False
ItemHeight = 0
OnChange = cbNameStyleChange
ParentFont = False
TabOrder = 3
end
end
object gbPresets: TGroupBox
AnchorSideLeft.Control = pnlOptionsLeft
AnchorSideTop.Control = gbMaska
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlOptionsLeft
AnchorSideRight.Side = asrBottom
Left = 0
Height = 59
Top = 216
Width = 250
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
Caption = 'Presets'
ChildSizing.LeftRightSpacing = 4
ChildSizing.TopBottomSpacing = 2
ChildSizing.HorizontalSpacing = 2
ClientHeight = 39
ClientWidth = 248
ParentColor = False
ParentFont = False
TabOrder = 1
object cbPresets: TComboBox
AnchorSideLeft.Control = gbPresets
AnchorSideTop.Control = gbPresets
AnchorSideRight.Control = btnPresets
AnchorSideBottom.Side = asrBottom
Left = 4
Height = 35
Top = 2
Width = 222
Anchors = [akTop, akLeft, akRight]
DropDownCount = 15
ItemHeight = 0
OnChange = cbPresetsChange
OnCloseUp = cbPresetsCloseUp
ParentFont = False
Style = csDropDownList
TabOrder = 1
end
object btnPresets: TBitBtn
AnchorSideTop.Control = cbPresets
AnchorSideRight.Control = gbPresets
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = cbPresets
AnchorSideBottom.Side = asrBottom
Left = 228
Height = 35
Top = 2
Width = 16
Anchors = [akTop, akRight, akBottom]
AutoSize = True
OnClick = actExecute
ParentBidiMode = False
ParentFont = False
Spacing = 0
TabOrder = 0
end
end
end
object spltMainSplitter: TSplitter
Left = 250
Height = 275
Top = 0
Width = 5
ResizeStyle = rsLine
end
object pnlOptionsRight: TKASToolPanel
Left = 255
Height = 275
Top = 0
Width = 521
Align = alClient
AutoSize = True
ChildSizing.HorizontalSpacing = 2
ChildSizing.VerticalSpacing = 2
EdgeBorders = [ebBottom]
TabOrder = 1
object gbFindReplace: TGroupBox
AnchorSideLeft.Control = pnlOptionsRight
AnchorSideTop.Control = pnlOptionsRight
AnchorSideRight.Control = gbCounter
Left = 0
Height = 184
Top = 0
Width = 318
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Right = 4
Caption = 'Find && Replace'
ChildSizing.LeftRightSpacing = 4
ChildSizing.HorizontalSpacing = 2
ChildSizing.VerticalSpacing = 2
ClientHeight = 164
ClientWidth = 316
ParentFont = False
TabOrder = 0
object lbFind: TLabel
AnchorSideLeft.Control = gbFindReplace
AnchorSideTop.Control = gbFindReplace
Left = 4
Height = 17
Top = 0
Width = 38
Caption = '&Find...'
FocusControl = edFind
ParentColor = False
ParentFont = False
end
object lbReplace: TLabel
AnchorSideLeft.Control = gbFindReplace
AnchorSideTop.Control = edFind
AnchorSideTop.Side = asrBottom
Left = 4
Height = 17
Top = 58
Width = 60
BorderSpacing.Top = 4
Caption = 'Re&place...'
FocusControl = edReplace
ParentColor = False
ParentFont = False
end
object cbRegExp: TCheckBox
AnchorSideLeft.Control = gbFindReplace
AnchorSideTop.Control = edReplace
AnchorSideTop.Side = asrBottom
Left = 4
Height = 23
Top = 116
Width = 149
BorderSpacing.Top = 4
Caption = 'Regular e&xpressions'
OnChange = cbRegExpChange
ParentFont = False
TabOrder = 2
end
object cbUseSubs: TCheckBox
AnchorSideLeft.Control = gbFindReplace
AnchorSideTop.Control = cbRegExp
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 4
Height = 23
Top = 141
Width = 126
BorderSpacing.Top = 2
Caption = '&Use substitution'
Enabled = False
OnChange = cbNameStyleChange
ParentFont = False
TabOrder = 3
end
object edFind: TEdit
AnchorSideLeft.Control = gbFindReplace
AnchorSideTop.Control = lbFind
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbFindReplace
AnchorSideRight.Side = asrBottom
Left = 4
Height = 35
Top = 19
Width = 308
Anchors = [akTop, akLeft, akRight]
AutoSelect = False
OnChange = edFindChange
ParentFont = False
TabOrder = 0
end
object edReplace: TEdit
AnchorSideLeft.Control = gbFindReplace
AnchorSideTop.Control = lbReplace
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbFindReplace
AnchorSideRight.Side = asrBottom
Left = 4
Height = 35
Top = 77
Width = 308
Anchors = [akTop, akLeft, akRight]
AutoSelect = False
OnChange = edReplaceChange
ParentFont = False
TabOrder = 1
end
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
Top = 0
Width = 199
Anchors = [akTop, akRight, akBottom]
AutoSize = True
Caption = 'Counter'
ChildSizing.LeftRightSpacing = 4
ChildSizing.TopBottomSpacing = 2
ChildSizing.HorizontalSpacing = 4
ChildSizing.VerticalSpacing = 6
ChildSizing.EnlargeHorizontal = crsScaleChilds
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2
ClientHeight = 164
ClientWidth = 197
ParentFont = False
TabOrder = 1
object lbStNb: TLabel
Left = 4
Height = 17
Top = 11
Width = 85
BorderSpacing.CellAlignVertical = ccaCenter
Caption = 'S&tart Number'
FocusControl = edPoc
ParentColor = False
ParentFont = False
end
object edPoc: TEdit
Left = 93
Height = 35
Top = 2
Width = 100
AutoSelect = False
MaxLength = 10
OnChange = edPocChange
ParentFont = False
TabOrder = 0
Text = '1'
end
object lbInterval: TLabel
Left = 4
Height = 17
Top = 52
Width = 85
BorderSpacing.CellAlignVertical = ccaCenter
Caption = '&Interval'
FocusControl = edInterval
ParentColor = False
ParentFont = False
end
object edInterval: TEdit
Left = 93
Height = 35
Top = 43
Width = 100
AutoSelect = False
MaxLength = 10
OnChange = edIntervalChange
ParentFont = False
TabOrder = 1
Text = '1'
end
object lbWidth: TLabel
Left = 4
Height = 17
Top = 91
Width = 85
BorderSpacing.CellAlignVertical = ccaCenter
Caption = '&Width'
FocusControl = cmbxWidth
ParentColor = False
ParentFont = False
end
object cmbxWidth: TComboBox
Left = 93
Height = 31
Top = 84
Width = 100
BorderSpacing.Bottom = 4
ItemHeight = 0
ItemIndex = 0
Items.Strings = (
'01'
'02'
'03'
'04'
'05'
'06'
'07'
'08'
'09'
'10'
)
OnChange = cbNameStyleChange
ParentFont = False
Style = csDropDownList
TabOrder = 2
Text = '01'
end
end
object cbLog: TCheckBox
AnchorSideLeft.Control = pnlOptionsRight
AnchorSideTop.Control = cbLogAppend
AnchorSideTop.Side = asrCenter
Left = 10
Height = 23
Top = 190
Width = 87
BorderSpacing.Left = 10
BorderSpacing.Top = 2
Caption = '&Log result'
OnClick = cbLogClick
ParentFont = False
TabOrder = 2
end
object btnRelativeRenameLogFile: TSpeedButton
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = fneRenameLogFileFilename
AnchorSideRight.Control = btnViewRenameLogFile
AnchorSideBottom.Control = fneRenameLogFileFilename
AnchorSideBottom.Side = asrBottom
Left = 473
Height = 35
Top = 215
Width = 23
Anchors = [akTop, akRight, akBottom]
ParentFont = False
end
object btnViewRenameLogFile: TSpeedButton
AnchorSideTop.Control = fneRenameLogFileFilename
AnchorSideRight.Control = pnlOptionsRight
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = fneRenameLogFileFilename
AnchorSideBottom.Side = asrBottom
Left = 498
Height = 35
Top = 215
Width = 23
Anchors = [akTop, akRight, akBottom]
ParentFont = False
end
object fneRenameLogFileFilename: TFileNameEdit
AnchorSideLeft.Control = pnlOptionsRight
AnchorSideTop.Control = cbLog
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btnRelativeRenameLogFile
AnchorSideBottom.Side = asrBottom
Left = 10
Height = 35
Top = 215
Width = 461
DialogTitle = 'Select target log filename'
DialogOptions = []
FilterIndex = 0
HideDirectories = False
ButtonWidth = 23
NumGlyphs = 1
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
MaxLength = 0
ParentFont = False
TabOrder = 4
OnChange = cbNameStyleChange
end
object cbLogAppend: TCheckBox
AnchorSideLeft.Control = cbLog
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = gbFindReplace
AnchorSideTop.Side = asrBottom
Left = 107
Height = 23
Top = 190
Width = 75
BorderSpacing.Left = 10
BorderSpacing.Top = 6
Caption = 'Append'
OnClick = cbLogClick
ParentFont = False
TabOrder = 3
end
end
end
object pnlButtons: TPanel
Left = 0
Height = 43
Top = 554
Width = 788
Align = alBottom
AutoSize = True
BevelOuter = bvNone
ChildSizing.LeftRightSpacing = 4
ChildSizing.TopBottomSpacing = 4
ClientHeight = 43
ClientWidth = 788
TabOrder = 1
object btnClose: TBitBtn
AnchorSideTop.Control = pnlButtons
AnchorSideRight.Control = pnlButtons
AnchorSideRight.Side = asrBottom
Left = 704
Height = 35
Top = 4
Width = 80
Action = actClose
Anchors = [akTop, akRight]
AutoSize = True
Constraints.MinWidth = 80
ParentFont = False
TabOrder = 4
end
object btnRestore: TBitBtn
AnchorSideTop.Control = btnClose
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = btnClose
AnchorSideBottom.Side = asrBottom
Left = 598
Height = 35
Top = 4
Width = 100
Action = actResetAll
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 6
Constraints.MinWidth = 100
ParentFont = False
TabOrder = 3
end
object btnRename: TBitBtn
AnchorSideTop.Control = btnClose
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = btnRestore
Left = 525
Height = 35
Top = 4
Width = 67
Action = actRename
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 6
Default = True
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
AnchorSideTop.Control = btnRename
AnchorSideTop.Side = asrCenter
Left = 130
Height = 35
Top = 4
Width = 120
Action = actConfig
AutoSize = True
BorderSpacing.Left = 6
Constraints.MinWidth = 120
ParentFont = False
TabOrder = 1
end
end
object pmEditDirect: TPopupMenu
Images = dmComData.ilEditorImages
Left = 504
Top = 160
object mnuLoadFromFile: TMenuItem
Action = actLoadNamesFromFile
end
object mnuEditNames: TMenuItem
Action = actEditNames
end
object mnuEditNewNames: TMenuItem
Action = actEditNewNames
end
end
object mmMainMenu: TMainMenu
Images = dmComData.ilEditorImages
Left = 96
Top = 40
object miActions: TMenuItem
Caption = 'Actions'
object miResetAll: TMenuItem
Action = actResetAll
end
object miEditor: TMenuItem
Caption = 'Editor'
object miLoadNamesFromFile: TMenuItem
Action = actLoadNamesFromFile
end
object miEditNames: TMenuItem
Action = actEditNames
end
object miEditNewNames: TMenuItem
Action = actEditNewNames
end
end
object miSeparator1: TMenuItem
Caption = '-'
end
object miConfiguration: TMenuItem
Action = actConfig
end
object miSeparator2: TMenuItem
Caption = '-'
end
object miRename: TMenuItem
Action = actRename
end
object miClose: TMenuItem
Action = actClose
end
end
end
object actList: TActionList
Images = dmComData.ilEditorImages
Left = 360
Top = 96
object actAnyNameMask: TAction
Tag = 63
Category = 'Masks'
Caption = 'Filename'
ImageIndex = 20
OnExecute = actExecute
end
object actNameNameMask: TAction
Tag = 1
Category = 'Masks'
Caption = 'Filename'
ImageIndex = 20
OnExecute = actExecute
end
object actExtNameMask: TAction
Tag = 2
Category = 'Masks'
Caption = 'Extension'
ImageIndex = 21
OnExecute = actExecute
end
object actCtrNameMask: TAction
Tag = 4
Category = 'Masks'
Caption = 'Counter'
ImageIndex = 22
OnExecute = actExecute
end
object actDateNameMask: TAction
Tag = 8
Category = 'Masks'
Caption = 'Date'
ImageIndex = 23
OnExecute = actExecute
end
object actTimeNameMask: TAction
Tag = 16
Category = 'Masks'
Caption = 'Time'
ImageIndex = 24
OnExecute = actExecute
end
object actPlgnNameMask: TAction
Tag = 32
Category = 'Masks'
Caption = 'Plugins'
ImageIndex = 25
OnExecute = actExecute
end
object actResetAll: TAction
Category = 'Generic'
Caption = 'Reset &All'
ImageIndex = 17
OnExecute = actExecute
end
object actClearNameMask: TAction
Category = 'Masks'
Caption = 'Clear'
ImageIndex = 29
OnExecute = actExecute
end
object actAnyExtMask: TAction
Category = 'Masks'
Caption = 'Extension'
ImageIndex = 21
OnExecute = actExecute
end
object actNameExtMask: TAction
Category = 'Masks'
Caption = 'Filename'
ImageIndex = 20
OnExecute = actExecute
end
object actExtExtMask: TAction
Category = 'Masks'
Caption = 'Extension'
ImageIndex = 21
OnExecute = actExecute
end
object actCtrExtMask: TAction
Category = 'Masks'
Caption = 'Counter'
ImageIndex = 22
OnExecute = actExecute
end
object actDateExtMask: TAction
Category = 'Masks'
Caption = 'Date'
ImageIndex = 23
OnExecute = actExecute
end
object actTimeExtMask: TAction
Category = 'Masks'
Caption = 'Time'
ImageIndex = 24
OnExecute = actExecute
end
object actPlgnExtMask: TAction
Category = 'Masks'
Caption = 'Plugins'
ImageIndex = 25
OnExecute = actExecute
end
object actClearExtMask: TAction
Category = 'Masks'
Caption = 'Clear'
ImageIndex = 29
OnExecute = actExecute
end
object actInvokeEditor: TAction
Category = 'Generic'
Caption = 'Edit&or'
ImageIndex = 19
OnExecute = actExecute
end
object actViewRenameLogFile: TAction
Category = 'Log'
Caption = 'View Rename Log File'
ImageIndex = 26
OnExecute = actExecute
end
object actInvokeRelativePath: TAction
Category = 'Log'
Caption = 'Invoke Relative Path Menu'
ImageIndex = 27
OnExecute = actInvokeRelativePathExecute
end
object actLoadNamesFromFile: TAction
Category = 'Generic'
Caption = 'Load Names from File...'
OnExecute = actExecute
end
object actEditNames: TAction
Category = 'Generic'
Caption = 'Edit Names...'
OnExecute = actExecute
end
object actEditNewNames: TAction
Category = 'Generic'
Caption = 'Edit Current New Names...'
OnExecute = actExecute
end
object actShowPresetsMenu: TAction
Category = 'Presets'
Caption = 'Show Preset Menu'
ImageIndex = 30
OnExecute = actExecute
end
object actDropDownPresetList: TAction
Category = 'Presets'
Caption = 'Drop Down Presets List'
ImageIndex = 33
OnExecute = actExecute
end
object actLoadLastPreset: TAction
Category = 'Presets'
Caption = 'Load Last Preset'
OnExecute = actExecute
end
object actLoadPreset: TAction
Category = 'Presets'
Caption = 'Load Preset by Name or Index'
OnExecute = actExecute
end
object actLoadPreset1: TAction
Category = 'Presets'
Caption = 'Load Preset 1'
OnExecute = actExecute
end
object actLoadPreset2: TAction
Category = 'Presets'
Caption = 'Load Preset 2'
OnExecute = actExecute
end
object actLoadPreset3: TAction
Category = 'Presets'
Caption = 'Load Preset 3'
OnExecute = actExecute
end
object actLoadPreset4: TAction
Category = 'Presets'
Caption = 'Load Preset 4'
OnExecute = actExecute
end
object actLoadPreset5: TAction
Category = 'Presets'
Caption = 'Load Preset 5'
OnExecute = actExecute
end
object actLoadPreset6: TAction
Category = 'Presets'
Caption = 'Load Preset 6'
OnExecute = actExecute
end
object actLoadPreset7: TAction
Category = 'Presets'
Caption = 'Load Preset 7'
OnExecute = actExecute
end
object actLoadPreset8: TAction
Category = 'Presets'
Caption = 'Load Preset 8'
OnExecute = actExecute
end
object actLoadPreset9: TAction
Category = 'Presets'
Caption = 'Load Preset 9'
OnExecute = actExecute
end
object actSavePreset: TAction
Category = 'Presets'
Caption = 'Save'
ImageIndex = 31
OnExecute = actExecute
end
object actSavePresetAs: TAction
Category = 'Presets'
Caption = 'Save As...'
OnExecute = actExecute
end
object actRenamePreset: TAction
Category = 'Presets'
Caption = 'Rename'
OnExecute = actExecute
end
object actDeletePreset: TAction
Category = 'Presets'
Caption = 'Delete'
ImageIndex = 32
OnExecute = actExecute
end
object actSortPresets: TAction
Category = 'Presets'
Caption = 'Sort'
OnExecute = actExecute
end
object actConfig: TAction
Category = 'Generic'
Caption = 'Confi&guration'
ImageIndex = 18
OnExecute = actExecute
end
object actRename: TAction
Category = 'Generic'
Caption = '&Rename'
ImageIndex = 28
OnExecute = actExecute
end
object actClose: TAction
Category = 'Generic'
Caption = '&Close'
ImageIndex = 12
OnExecute = actExecute
end
end
object pmDynamicMasks: TPopupMenu
Images = dmComData.ilEditorImages
Left = 96
Top = 152
end
object pmPresets: TPopupMenu
Images = dmComData.ilEditorImages
Left = 120
Top = 376
end
object pmFloatingMainMaskMenu: TPopupMenu
Images = dmComData.ilEditorImages
Left = 96
Top = 96
end
object pmPathToBeRelativeToHelper: TPopupMenu
Left = 648
Top = 160
end
end