mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
796 lines
24 KiB
Text
796 lines
24 KiB
Text
inherited frmOptionsFileAssoc: TfrmOptionsFileAssoc
|
|
Height = 585
|
|
Width = 568
|
|
HelpKeyword = '/configuration.html#ConfigAssociations'
|
|
ClientHeight = 585
|
|
ClientWidth = 568
|
|
Constraints.MinHeight = 300
|
|
OnResize = FrameResize
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
DesignLeft = 100
|
|
DesignTop = 118
|
|
object pnlSettings: TPanel[0]
|
|
Left = 0
|
|
Height = 585
|
|
Top = 0
|
|
Width = 568
|
|
Align = alClient
|
|
AutoSize = True
|
|
BevelOuter = bvNone
|
|
ClientHeight = 585
|
|
ClientWidth = 568
|
|
TabOrder = 0
|
|
OnResize = pnlSettingsResize
|
|
object pnlRightSettings: TPanel
|
|
AnchorSideLeft.Control = pnlLeftSettings
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = pnlSettings
|
|
AnchorSideRight.Control = pnlSettings
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = pnlBottomSettings
|
|
Left = 266
|
|
Height = 437
|
|
Top = 6
|
|
Width = 292
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Right = 4
|
|
BorderSpacing.Around = 6
|
|
BevelOuter = bvNone
|
|
ClientHeight = 437
|
|
ClientWidth = 292
|
|
Constraints.MinWidth = 200
|
|
TabOrder = 1
|
|
OnResize = pnlRightSettingsResize
|
|
object gbActions: TGroupBox
|
|
AnchorSideLeft.Control = pnlRightSettings
|
|
AnchorSideTop.Control = gbExts
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = pnlRightSettings
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = pnlRightSettings
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 0
|
|
Height = 213
|
|
Top = 224
|
|
Width = 292
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
Caption = 'Actions'
|
|
ClientHeight = 193
|
|
ClientWidth = 288
|
|
TabOrder = 2
|
|
object lbActions: TListBox
|
|
Left = 6
|
|
Height = 181
|
|
Hint = 'Actions may be sorted by drag & drop'
|
|
Top = 6
|
|
Width = 197
|
|
Align = alClient
|
|
BorderSpacing.Around = 6
|
|
DragMode = dmAutomatic
|
|
ItemHeight = 0
|
|
OnDragDrop = lbActionsDragDrop
|
|
OnDragOver = lbGenericDragOver
|
|
OnDrawItem = lbGenericListDrawItem
|
|
OnSelectionChange = lbActionsSelectionChange
|
|
Style = lbOwnerDrawFixed
|
|
TabOrder = 0
|
|
end
|
|
object pnlActsButtons: TPanel
|
|
Left = 209
|
|
Height = 181
|
|
Top = 6
|
|
Width = 73
|
|
Align = alRight
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
BevelOuter = bvNone
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ClientHeight = 181
|
|
ClientWidth = 73
|
|
TabOrder = 1
|
|
object btnUpAct: TButton
|
|
Left = 0
|
|
Height = 29
|
|
Top = 0
|
|
Width = 73
|
|
AutoSize = True
|
|
BorderSpacing.InnerBorder = 2
|
|
Caption = '&Up'
|
|
OnClick = btnUpActClick
|
|
TabOrder = 0
|
|
end
|
|
object btnDownAct: TButton
|
|
Left = 0
|
|
Height = 29
|
|
Top = 29
|
|
Width = 73
|
|
AutoSize = True
|
|
BorderSpacing.InnerBorder = 2
|
|
Caption = 'Do&wn'
|
|
OnClick = btnDownActClick
|
|
TabOrder = 1
|
|
end
|
|
object btnInsertAct: TButton
|
|
Tag = 32
|
|
Left = 0
|
|
Height = 29
|
|
Top = 58
|
|
Width = 73
|
|
AutoSize = True
|
|
BorderSpacing.InnerBorder = 2
|
|
Caption = 'Insert'
|
|
OnClick = btnInsertAddActClick
|
|
TabOrder = 2
|
|
end
|
|
object btnAddAct: TButton
|
|
Left = 0
|
|
Height = 29
|
|
Top = 87
|
|
Width = 73
|
|
AutoSize = True
|
|
BorderSpacing.InnerBorder = 2
|
|
Caption = 'Add'
|
|
OnClick = btnInsertAddActClick
|
|
TabOrder = 3
|
|
end
|
|
object btnCloneAct: TButton
|
|
Left = 0
|
|
Height = 29
|
|
Top = 116
|
|
Width = 73
|
|
AutoSize = True
|
|
BorderSpacing.InnerBorder = 2
|
|
Caption = 'C&lone'
|
|
OnClick = btnCloneActClick
|
|
TabOrder = 4
|
|
end
|
|
object btnRemoveAct: TButton
|
|
Left = 0
|
|
Height = 29
|
|
Top = 145
|
|
Width = 73
|
|
AutoSize = True
|
|
BorderSpacing.InnerBorder = 2
|
|
Caption = 'Remo&ve'
|
|
OnClick = btnRemoveActClick
|
|
TabOrder = 5
|
|
end
|
|
end
|
|
object pnlActsEdits: TPanel
|
|
Left = 0
|
|
Height = 0
|
|
Top = 193
|
|
Width = 288
|
|
Align = alBottom
|
|
AutoSize = True
|
|
BevelOuter = bvNone
|
|
TabOrder = 2
|
|
end
|
|
end
|
|
object gbIcon: TGroupBox
|
|
AnchorSideLeft.Control = pnlRightSettings
|
|
AnchorSideTop.Control = pnlRightSettings
|
|
AnchorSideRight.Control = pnlRightSettings
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = pnlRightSettings
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 0
|
|
Height = 64
|
|
Top = 0
|
|
Width = 292
|
|
Anchors = [akTop, akLeft, akRight]
|
|
AutoSize = True
|
|
Caption = 'Icon'
|
|
ChildSizing.LeftRightSpacing = 6
|
|
ClientHeight = 44
|
|
ClientWidth = 288
|
|
TabOrder = 0
|
|
object sbtnIcon: TSpeedButton
|
|
AnchorSideLeft.Control = gbIcon
|
|
AnchorSideTop.Control = gbIcon
|
|
Left = 6
|
|
Height = 38
|
|
Hint = 'Click me to change icon!'
|
|
Top = 2
|
|
Width = 38
|
|
BorderSpacing.Top = 2
|
|
BorderSpacing.Bottom = 4
|
|
ImageWidth = 32
|
|
OnClick = sbtnIconClick
|
|
end
|
|
object btnRelativePathIcon: TSpeedButton
|
|
AnchorSideTop.Control = sbtnIcon
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = gbIcon
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 259
|
|
Height = 23
|
|
Top = 10
|
|
Width = 23
|
|
Anchors = [akTop, akRight]
|
|
Images = dmComData.ilEditorImages
|
|
ImageIndex = 27
|
|
OnClick = btnRelativePathIconClick
|
|
end
|
|
object btnIconSelectFilename: TSpeedButton
|
|
AnchorSideTop.Control = sbtnIcon
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = btnRelativePathIcon
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 236
|
|
Height = 23
|
|
Top = 10
|
|
Width = 23
|
|
Anchors = [akTop, akRight]
|
|
Images = dmComData.ilButtons
|
|
ImageIndex = 5
|
|
OnClick = sbtnIconClick
|
|
end
|
|
object edIconFileName: TEdit
|
|
AnchorSideLeft.Control = sbtnIcon
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = sbtnIcon
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = btnIconSelectFilename
|
|
Left = 44
|
|
Height = 23
|
|
Top = 10
|
|
Width = 192
|
|
Anchors = [akTop, akLeft, akRight]
|
|
TabOrder = 0
|
|
OnKeyDown = edIconFileNameKeyDown
|
|
end
|
|
end
|
|
object gbExts: TGroupBox
|
|
AnchorSideLeft.Control = pnlRightSettings
|
|
AnchorSideTop.Control = gbIcon
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = pnlRightSettings
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 0
|
|
Height = 160
|
|
Hint = 'Can be sorted by drag & drop'
|
|
Top = 64
|
|
Width = 292
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.InnerBorder = 20
|
|
Caption = 'Extensions'
|
|
ClientHeight = 140
|
|
ClientWidth = 288
|
|
Constraints.MinHeight = 160
|
|
TabOrder = 1
|
|
object lbExts: TListBox
|
|
Left = 6
|
|
Height = 128
|
|
Hint = 'Extensions may be sorted by drag & drop'
|
|
Top = 6
|
|
Width = 197
|
|
Align = alClient
|
|
BorderSpacing.Around = 6
|
|
DragMode = dmAutomatic
|
|
ItemHeight = 0
|
|
OnDragDrop = lbExtsDragDrop
|
|
OnDragOver = lbGenericDragOver
|
|
OnDrawItem = lbGenericListDrawItem
|
|
OnSelectionChange = lbExtsSelectionChange
|
|
Style = lbOwnerDrawFixed
|
|
TabOrder = 0
|
|
end
|
|
object pnlExtsButtons: TPanel
|
|
Left = 209
|
|
Height = 128
|
|
Top = 6
|
|
Width = 73
|
|
Align = alRight
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
BevelOuter = bvNone
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ClientHeight = 128
|
|
ClientWidth = 73
|
|
TabOrder = 1
|
|
object btnEditExt: TButton
|
|
Left = 0
|
|
Height = 29
|
|
Top = 0
|
|
Width = 73
|
|
AutoSize = True
|
|
BorderSpacing.InnerBorder = 2
|
|
Caption = 'Edi&t'
|
|
OnClick = btnEditExtClick
|
|
TabOrder = 0
|
|
end
|
|
object btnInsertExt: TButton
|
|
Tag = 1
|
|
Left = 0
|
|
Height = 29
|
|
Top = 29
|
|
Width = 73
|
|
AutoSize = True
|
|
BorderSpacing.InnerBorder = 2
|
|
Caption = '&Insert'
|
|
OnClick = btnInsertAddExtClick
|
|
TabOrder = 1
|
|
end
|
|
object btnAddExt: TButton
|
|
Left = 0
|
|
Height = 29
|
|
Top = 58
|
|
Width = 73
|
|
AutoSize = True
|
|
BorderSpacing.InnerBorder = 2
|
|
Caption = 'Add'
|
|
OnClick = btnInsertAddExtClick
|
|
TabOrder = 2
|
|
end
|
|
object btnRemoveExt: TButton
|
|
Left = 0
|
|
Height = 29
|
|
Top = 87
|
|
Width = 73
|
|
AutoSize = True
|
|
BorderSpacing.InnerBorder = 2
|
|
Caption = 'Re&move'
|
|
OnClick = btnRemoveExtClick
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object pnlLeftSettings: TPanel
|
|
AnchorSideLeft.Control = pnlSettings
|
|
AnchorSideTop.Control = pnlSettings
|
|
AnchorSideBottom.Control = pnlBottomSettings
|
|
Left = 6
|
|
Height = 437
|
|
Top = 6
|
|
Width = 250
|
|
Anchors = [akTop, akLeft, akBottom]
|
|
BorderSpacing.Around = 6
|
|
BevelOuter = bvNone
|
|
ClientHeight = 437
|
|
ClientWidth = 250
|
|
TabOrder = 0
|
|
object gbFileTypes: TGroupBox
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 0
|
|
Height = 437
|
|
Top = 0
|
|
Width = 250
|
|
Align = alClient
|
|
Caption = 'File types'
|
|
ClientHeight = 417
|
|
ClientWidth = 246
|
|
TabOrder = 0
|
|
object lbFileTypes: TListBox
|
|
AnchorSideLeft.Control = gbFileTypes
|
|
AnchorSideTop.Control = gbFileTypes
|
|
AnchorSideRight.Control = gbFileTypes
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = btnAddNewType
|
|
Left = 6
|
|
Height = 339
|
|
Hint = 'File types may be sorted by drag & drop'
|
|
Top = 6
|
|
Width = 234
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Around = 6
|
|
DragMode = dmAutomatic
|
|
ItemHeight = 20
|
|
OnDragDrop = lbFileTypesDragDrop
|
|
OnDragOver = lbGenericDragOver
|
|
OnDrawItem = lbFileTypesDrawItem
|
|
OnSelectionChange = lbFileTypesSelectionChange
|
|
Style = lbOwnerDrawFixed
|
|
TabOrder = 0
|
|
end
|
|
object btnAddNewType: TButton
|
|
AnchorSideLeft.Control = gbFileTypes
|
|
AnchorSideTop.Control = lbFileTypes
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = gbFileTypes
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = btnRemoveType
|
|
Left = 6
|
|
Height = 29
|
|
Top = 351
|
|
Width = 234
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
AutoSize = True
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Right = 6
|
|
BorderSpacing.Bottom = 2
|
|
BorderSpacing.InnerBorder = 2
|
|
Caption = 'A&dd'
|
|
OnClick = btnAddNewTypeClick
|
|
TabOrder = 1
|
|
end
|
|
object btnRemoveType: TButton
|
|
AnchorSideLeft.Control = btnAddNewType
|
|
Left = 6
|
|
Height = 29
|
|
Top = 382
|
|
Width = 73
|
|
Anchors = [akLeft, akBottom]
|
|
AutoSize = True
|
|
BorderSpacing.InnerBorder = 2
|
|
Caption = '&Remove'
|
|
OnClick = btnRemoveTypeClick
|
|
OnResize = btnRemoveTypeResize
|
|
TabOrder = 2
|
|
end
|
|
object btnRenameType: TButton
|
|
AnchorSideRight.Control = btnAddNewType
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 167
|
|
Height = 29
|
|
Top = 382
|
|
Width = 73
|
|
Anchors = [akRight, akBottom]
|
|
AutoSize = True
|
|
BorderSpacing.InnerBorder = 2
|
|
Caption = 'R&ename'
|
|
OnClick = btnRenameTypeClick
|
|
OnResize = btnRenameTypeResize
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
end
|
|
object pnlBottomSettings: TPanel
|
|
AnchorSideLeft.Control = pnlSettings
|
|
AnchorSideRight.Control = pnlSettings
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = pnlSettings
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 10
|
|
Height = 130
|
|
Top = 449
|
|
Width = 548
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
AutoSize = True
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Right = 4
|
|
BorderSpacing.Around = 6
|
|
BevelOuter = bvNone
|
|
ClientHeight = 130
|
|
ClientWidth = 548
|
|
TabOrder = 2
|
|
object gbActionDescription: TKASGroupBox
|
|
AnchorSideLeft.Control = pnlBottomSettings
|
|
AnchorSideTop.Control = pnlBottomSettings
|
|
AnchorSideRight.Control = pnlBottomSettings
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = pnlBottomSettings
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 0
|
|
Height = 126
|
|
Top = 2
|
|
Width = 548
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
AutoSize = True
|
|
BorderSpacing.Top = 2
|
|
BorderSpacing.Bottom = 2
|
|
Caption = 'Action description'
|
|
ChildSizing.LeftRightSpacing = 6
|
|
ChildSizing.TopBottomSpacing = 6
|
|
ChildSizing.VerticalSpacing = 4
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 1
|
|
ClientHeight = 106
|
|
ClientWidth = 544
|
|
TabOrder = 0
|
|
object edbActionName: TEditButton
|
|
AnchorSideLeft.Control = lblAction
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = lblAction
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = gbActionDescription
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 79
|
|
Height = 23
|
|
Hint = 'Name of the action. It is never passed to the system, it''s just a mnemonic name chosen by you, for you'
|
|
Top = 2
|
|
Width = 459
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Left = 2
|
|
ButtonWidth = 23
|
|
Images = dmComData.ilButtons
|
|
ImageIndex = 0
|
|
MaxLength = 0
|
|
NumGlyphs = 1
|
|
OnButtonClick = btnActionsClick
|
|
OnChange = edbActionNameChange
|
|
PasswordChar = #0
|
|
TabOrder = 0
|
|
end
|
|
object lblAction: TLabel
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 6
|
|
Height = 15
|
|
Top = 6
|
|
Width = 71
|
|
Alignment = taRightJustify
|
|
Caption = 'Action &name:'
|
|
FocusControl = edbActionName
|
|
Layout = tlCenter
|
|
ParentColor = False
|
|
end
|
|
object fneCommand: TFileNameEdit
|
|
AnchorSideLeft.Control = lblCommand
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = lblCommand
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = btnCommands
|
|
Left = 79
|
|
Height = 23
|
|
Hint = 'Command to execute. Never quote this string.'
|
|
Top = 27
|
|
Width = 413
|
|
OnAcceptFileName = fneCommandAcceptFileName
|
|
DialogOptions = []
|
|
FilterIndex = 0
|
|
HideDirectories = False
|
|
ButtonWidth = 23
|
|
NumGlyphs = 1
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Left = 2
|
|
MaxLength = 0
|
|
TabOrder = 1
|
|
OnChange = fneCommandChange
|
|
end
|
|
object btnCommands: TSpeedButton
|
|
AnchorSideTop.Control = fneCommand
|
|
AnchorSideRight.Control = btnRelativeCommand
|
|
AnchorSideBottom.Control = fneCommand
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 492
|
|
Height = 23
|
|
Hint = 'Select your internal command'
|
|
Top = 27
|
|
Width = 23
|
|
Anchors = [akTop, akRight, akBottom]
|
|
Images = dmComData.ilButtons
|
|
ImageIndex = 0
|
|
OnClick = btnCommandsClick
|
|
end
|
|
object btnRelativeCommand: TSpeedButton
|
|
AnchorSideTop.Control = fneCommand
|
|
AnchorSideRight.Control = gbActionDescription
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = fneCommand
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 515
|
|
Height = 23
|
|
Hint = 'Some functions to select appropriate path'
|
|
Top = 27
|
|
Width = 23
|
|
Anchors = [akTop, akRight, akBottom]
|
|
Images = dmComData.ilEditorImages
|
|
ImageIndex = 27
|
|
OnClick = btnRelativeCommandClick
|
|
end
|
|
object btnParametersHelper: TSpeedButton
|
|
AnchorSideTop.Control = edtParams
|
|
AnchorSideRight.Control = gbActionDescription
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = edtParams
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 515
|
|
Height = 23
|
|
Hint = 'Variable reminder helper'
|
|
Top = 52
|
|
Width = 23
|
|
Anchors = [akTop, akRight, akBottom]
|
|
Images = dmComData.ilButtons
|
|
ImageIndex = 4
|
|
OnClick = btnParametersHelperClick
|
|
end
|
|
object lblCommand: TLabel
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = fneCommand
|
|
Left = 6
|
|
Height = 15
|
|
Top = 31
|
|
Width = 71
|
|
Alignment = taRightJustify
|
|
Caption = 'Command:'
|
|
Layout = tlCenter
|
|
ParentColor = False
|
|
end
|
|
object edtParams: TEdit
|
|
AnchorSideLeft.Control = lblExternalParameters
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = lblExternalParameters
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = btnParametersHelper
|
|
Left = 79
|
|
Height = 23
|
|
Hint = 'Parameter to pass to the command. Long filename with spaces should be quoted (manually entering).'
|
|
Top = 52
|
|
Width = 436
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Left = 2
|
|
MaxLength = 259
|
|
OnChange = edtParamsChange
|
|
TabOrder = 2
|
|
end
|
|
object lblExternalParameters: TLabel
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 6
|
|
Height = 15
|
|
Top = 56
|
|
Width = 71
|
|
Alignment = taRightJustify
|
|
Caption = 'Parameter&s:'
|
|
FocusControl = edtParams
|
|
Layout = tlCenter
|
|
ParentColor = False
|
|
end
|
|
object deStartPath: TDirectoryEdit
|
|
AnchorSideLeft.Control = lblStartPath
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = lblStartPath
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = btnStartPathPathHelper
|
|
Left = 79
|
|
Height = 23
|
|
Hint = 'Starting path of the command. Never quote this string.'
|
|
Top = 77
|
|
Width = 413
|
|
OnAcceptDirectory = deStartPathAcceptDirectory
|
|
ShowHidden = False
|
|
ButtonWidth = 23
|
|
NumGlyphs = 1
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Left = 2
|
|
MaxLength = 0
|
|
TabOrder = 3
|
|
OnChange = deStartPathChange
|
|
end
|
|
object btnStartPathVarHelper: TSpeedButton
|
|
AnchorSideTop.Control = deStartPath
|
|
AnchorSideRight.Control = gbActionDescription
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = deStartPath
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 515
|
|
Height = 23
|
|
Hint = 'Variable reminder helper'
|
|
Top = 77
|
|
Width = 23
|
|
Anchors = [akTop, akRight, akBottom]
|
|
Images = dmComData.ilButtons
|
|
ImageIndex = 4
|
|
OnClick = btnStartPathVarHelperClick
|
|
end
|
|
object btnStartPathPathHelper: TSpeedButton
|
|
AnchorSideTop.Control = deStartPath
|
|
AnchorSideRight.Control = btnStartPathVarHelper
|
|
AnchorSideBottom.Control = deStartPath
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 492
|
|
Height = 23
|
|
Hint = 'Some functions to select appropriate path'
|
|
Top = 77
|
|
Width = 23
|
|
Anchors = [akTop, akRight, akBottom]
|
|
Images = dmComData.ilEditorImages
|
|
ImageIndex = 27
|
|
OnClick = btnStartPathPathHelperClick
|
|
end
|
|
object lblStartPath: TLabel
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 6
|
|
Height = 15
|
|
Top = 81
|
|
Width = 71
|
|
Alignment = taRightJustify
|
|
Caption = 'Start pat&h:'
|
|
FocusControl = deStartPath
|
|
Layout = tlCenter
|
|
ParentColor = False
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object OpenPictureDialog: TOpenPictureDialog[1]
|
|
left = 65
|
|
top = 124
|
|
end
|
|
object pmActions: TPopupMenu[2]
|
|
left = 175
|
|
top = 60
|
|
object miOpen: TMenuItem
|
|
Caption = 'Open'
|
|
OnClick = miActionsClick
|
|
end
|
|
object miView: TMenuItem
|
|
Tag = 1
|
|
Caption = 'View'
|
|
OnClick = miActionsClick
|
|
end
|
|
object miEdit: TMenuItem
|
|
Tag = 2
|
|
Caption = 'Edit'
|
|
OnClick = miActionsClick
|
|
end
|
|
object miCustom: TMenuItem
|
|
Tag = 3
|
|
Caption = 'Custom'
|
|
OnClick = miActionsClick
|
|
end
|
|
object MenuItem1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object miOpenWith: TMenuItem
|
|
Tag = 16
|
|
Caption = 'Open with...'
|
|
OnClick = miActionsClick
|
|
end
|
|
object miViewWith: TMenuItem
|
|
Tag = 17
|
|
Caption = 'View with...'
|
|
OnClick = miActionsClick
|
|
end
|
|
object miEditWith: TMenuItem
|
|
Tag = 18
|
|
Caption = 'Edit with...'
|
|
OnClick = miActionsClick
|
|
end
|
|
object MenuItem3: TMenuItem
|
|
Tag = 19
|
|
Caption = 'Custom with...'
|
|
OnClick = miActionsClick
|
|
end
|
|
end
|
|
object pmCommands: TPopupMenu[3]
|
|
left = 175
|
|
top = 124
|
|
object miViewer: TMenuItem
|
|
Tag = 2
|
|
Caption = 'Open in Viewer'
|
|
OnClick = miCommandsClick
|
|
end
|
|
object miInternalViewer: TMenuItem
|
|
Tag = 3
|
|
Caption = 'Open in Internal Viewer'
|
|
OnClick = miCommandsClick
|
|
end
|
|
object miEditor: TMenuItem
|
|
Tag = 4
|
|
Caption = 'Open in Editor'
|
|
OnClick = miCommandsClick
|
|
end
|
|
object miInternalEditor: TMenuItem
|
|
Tag = 5
|
|
Caption = 'Open in Internal Editor'
|
|
OnClick = miCommandsClick
|
|
end
|
|
object miSeparator: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object miShell: TMenuItem
|
|
Tag = 6
|
|
Caption = 'Run in terminal'
|
|
OnClick = miCommandsClick
|
|
end
|
|
object miGetOutputFromCommand: TMenuItem
|
|
Tag = 7
|
|
Caption = 'Get output from command'
|
|
OnClick = miCommandsClick
|
|
end
|
|
end
|
|
object OpenDialog: TOpenDialog[4]
|
|
Filter = 'Executables|*.exe;*.com;*.bat|Any files|*.*'
|
|
Options = [ofPathMustExist, ofFileMustExist, ofEnableSizing, ofViewDetail]
|
|
left = 65
|
|
top = 60
|
|
end
|
|
object pmPathHelper: TPopupMenu[5]
|
|
left = 65
|
|
top = 187
|
|
end
|
|
end
|