doublecmd/src/ffileassoc.lfm

638 lines
21 KiB
Text

object frmFileAssoc: TfrmFileAssoc
Left = 298
Height = 585
Top = 54
Width = 568
Caption = 'File associations'
ClientHeight = 585
ClientWidth = 568
Constraints.MinHeight = 300
OnCreate = FormCreate
OnDestroy = FormDestroy
Position = poScreenCenter
SessionProperties = 'Height;Width;WindowState;Left;Top'
LCLVersion = '0.9.29'
object pnlButtonPanel: TPanel
Left = 0
Height = 47
Top = 538
Width = 568
Align = alBottom
AutoSize = True
BevelInner = bvLowered
ClientHeight = 47
ClientWidth = 568
TabOrder = 1
object btnOK: TBitBtn
AnchorSideTop.Control = pnlButtonPanel
AnchorSideRight.Control = btnCancel
Left = 348
Height = 31
Top = 8
Width = 100
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
Caption = '&OK'
Constraints.MinWidth = 100
Kind = bkOK
ModalResult = 1
NumGlyphs = 0
OnClick = btnOKClick
TabOrder = 0
end
object btnCancel: TBitBtn
AnchorSideTop.Control = pnlButtonPanel
AnchorSideRight.Control = pnlButtonPanel
AnchorSideRight.Side = asrBottom
Left = 454
Height = 31
Top = 8
Width = 100
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 6
BorderSpacing.Right = 12
BorderSpacing.Bottom = 6
Cancel = True
Caption = 'Cancel'
Constraints.MinWidth = 100
Kind = bkCancel
ModalResult = 2
NumGlyphs = 0
OnClick = btnCancelClick
TabOrder = 1
end
end
object pnlSettings: TPanel
Left = 0
Height = 533
Top = 0
Width = 568
Align = alClient
BorderSpacing.Bottom = 5
BevelOuter = bvNone
ClientHeight = 533
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 = pnlSettings
AnchorSideBottom.Side = asrBottom
Left = 270
Height = 521
Top = 6
Width = 288
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 4
BorderSpacing.Right = 4
BorderSpacing.Around = 6
BevelOuter = bvNone
ClientHeight = 521
ClientWidth = 288
Constraints.MinWidth = 200
TabOrder = 0
OnResize = pnlRightSettingsResize
object gbActions: TGroupBox
AnchorSideLeft.Control = pnlRightSettings
AnchorSideTop.Control = gbExts
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlRightSettings
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = gbIcon
Left = 0
Height = 307
Top = 144
Width = 288
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'Actions'
ClientHeight = 285
ClientWidth = 284
TabOrder = 0
object lbActions: TListBox
Left = 6
Height = 153
Top = 6
Width = 182
Align = alClient
BorderSpacing.Around = 6
ItemHeight = 0
OnSelectionChange = lbActionsSelectionChange
TabOrder = 0
end
object pnlActsButtons: TPanel
Left = 194
Height = 153
Top = 6
Width = 84
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
BevelOuter = bvNone
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ClientHeight = 153
ClientWidth = 84
TabOrder = 1
object btnUpAct: TButton
Left = 0
Height = 35
Top = 0
Width = 84
AutoSize = True
BorderSpacing.InnerBorder = 2
Caption = 'Up'
OnClick = btnUpActClick
TabOrder = 0
end
object btnDownAct: TButton
Left = 0
Height = 35
Top = 35
Width = 84
AutoSize = True
BorderSpacing.InnerBorder = 2
Caption = 'Down'
OnClick = btnDownActClick
TabOrder = 1
end
object btnAddAct: TButton
Left = 0
Height = 35
Top = 70
Width = 84
AutoSize = True
BorderSpacing.InnerBorder = 2
Caption = 'Add'
OnClick = btnAddActClick
TabOrder = 2
end
object btnRemoveAct: TButton
Left = 0
Height = 35
Top = 105
Width = 84
AutoSize = True
BorderSpacing.InnerBorder = 2
Caption = 'Remove'
OnClick = btnRemoveActClick
TabOrder = 3
end
end
object pnlActsEdits: TPanel
Left = 0
Height = 120
Top = 165
Width = 284
Align = alBottom
AutoSize = True
BevelOuter = bvNone
ClientHeight = 120
ClientWidth = 284
TabOrder = 2
object lblCommand: TLabel
AnchorSideLeft.Control = lblAction
AnchorSideTop.Control = edbAction
AnchorSideTop.Side = asrBottom
Left = 6
Height = 22
Top = 57
Width = 74
BorderSpacing.Top = 6
Caption = '&Command:'
ParentColor = False
end
object btnCommands: TSpeedButton
AnchorSideLeft.Control = fneCommand
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = fneCommand
AnchorSideRight.Control = pnlActsEdits
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = fneCommand
AnchorSideBottom.Side = asrBottom
Left = 255
Height = 29
Top = 85
Width = 23
Anchors = [akTop, akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 24
BorderSpacing.Right = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000A46534CCA46534FFA46534FFA465
34CC000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000A46534FFE6CEB7FFE6CEB7FFA465
34FF000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000A46534FFE6CEB7FFD9AD86FFA465
34FF000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000A46534FFE6CEB7FFD9AD86FFA465
34FF000000000000000000000000000000000000000000000000000000000000
0000A46534CCA46534FFA46534FFA46534FFA46534FFD9AD86FFD9AD86FFA465
34FFA46534FFA46534FFA46534FFA46534CC0000000000000000000000000000
0000A46534FFE5CCB4FFDBB795FFDBB694FFDAB492FFDAB390FFD9AD86FFD8AA
83FFD7A87FFFD7A67DFFE0BE9FFFA46534FF0000000000000000000000000000
0000A46534FFE8D3C0FFE7D1BBFFE7D1BCFFE6CEB7FFE6CEB7FFE6CEB7FFE6CE
B7FFE6CDB6FFE6CCB5FFE6CCB6FFA46534FF0000000000000000000000000000
0000A46534CCA46534FFA46534FFA46534FFA46534FFE6CEB7FFE6CEB7FFA465
34FFA46534FFA46534FFA46534FFA46534CC0000000000000000000000000000
000000000000000000000000000000000000A46534FFE6CEB7FFE6CEB7FFA465
34FF000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000A46534FFE6CEB7FFE6CEB7FFA465
34FF000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000A46534FFE6CEB7FFE6CEB7FFA465
34FF000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000A46534CCA46534FFA46534FFA465
34CC000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
}
NumGlyphs = 0
OnClick = btnCommandsClick
end
object lblAction: TLabel
AnchorSideLeft.Control = pnlActsEdits
AnchorSideTop.Control = pnlActsEdits
Left = 6
Height = 22
Top = 0
Width = 47
BorderSpacing.Left = 6
Caption = 'Action:'
ParentColor = False
end
object fneCommand: TFileNameEdit
AnchorSideLeft.Control = lblCommand
AnchorSideTop.Control = lblCommand
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btnCommands
AnchorSideBottom.Control = pnlActsEdits
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 29
Top = 85
Width = 225
DialogOptions = []
FilterIndex = 0
HideDirectories = False
ButtonWidth = 23
NumGlyphs = 1
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 6
BorderSpacing.Bottom = 6
MaxLength = 0
TabOrder = 1
OnChange = fneCommandChange
end
object edbAction: TEditButton
AnchorSideLeft.Control = lblAction
AnchorSideTop.Control = lblAction
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = fneCommand
AnchorSideRight.Side = asrBottom
Left = 6
Height = 29
Top = 22
Width = 225
Anchors = [akTop, akLeft, akRight]
ButtonWidth = 23
CharCase = ecNormal
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000A46534CCA46534FFA46534FFA465
34CC000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000A46534FFE6CEB7FFE6CEB7FFA465
34FF000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000A46534FFE6CEB7FFD9AD86FFA465
34FF000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000A46534FFE6CEB7FFD9AD86FFA465
34FF000000000000000000000000000000000000000000000000000000000000
0000A46534CCA46534FFA46534FFA46534FFA46534FFD9AD86FFD9AD86FFA465
34FFA46534FFA46534FFA46534FFA46534CC0000000000000000000000000000
0000A46534FFE5CCB4FFDBB795FFDBB694FFDAB492FFDAB390FFD9AD86FFD8AA
83FFD7A87FFFD7A67DFFE0BE9FFFA46534FF0000000000000000000000000000
0000A46534FFE8D3C0FFE7D1BBFFE7D1BCFFE6CEB7FFE6CEB7FFE6CEB7FFE6CE
B7FFE6CDB6FFE6CCB5FFE6CCB6FFA46534FF0000000000000000000000000000
0000A46534CCA46534FFA46534FFA46534FFA46534FFE6CEB7FFE6CEB7FFA465
34FFA46534FFA46534FFA46534FFA46534CC0000000000000000000000000000
000000000000000000000000000000000000A46534FFE6CEB7FFE6CEB7FFA465
34FF000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000A46534FFE6CEB7FFE6CEB7FFA465
34FF000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000A46534FFE6CEB7FFE6CEB7FFA465
34FF000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000A46534CCA46534FFA46534FFA465
34CC000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
}
MaxLength = 0
NumGlyphs = 1
OnButtonClick = btnActionsClick
OnChange = edtActionChange
TabOrder = 0
end
end
end
object gbIcon: TGroupBox
AnchorSideLeft.Control = pnlRightSettings
AnchorSideRight.Control = pnlRightSettings
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnlRightSettings
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 66
Top = 455
Width = 288
Anchors = [akLeft, akRight, akBottom]
AutoSize = True
Caption = 'Icon'
ClientHeight = 44
ClientWidth = 284
TabOrder = 1
object sbtnIcon: TSpeedButton
AnchorSideLeft.Control = gbIcon
AnchorSideTop.Control = gbIcon
Left = 6
Height = 38
Top = 2
Width = 38
BorderSpacing.Left = 6
BorderSpacing.Top = 2
BorderSpacing.Bottom = 4
NumGlyphs = 0
OnClick = sbtnIconClick
end
object btnRemoveIcon: TSpeedButton
AnchorSideTop.Control = edtIconFileName
AnchorSideRight.Control = gbIcon
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = edtIconFileName
AnchorSideBottom.Side = asrBottom
Left = 255
Height = 29
Top = 7
Width = 23
Anchors = [akTop, akRight, akBottom]
BorderSpacing.Right = 6
Caption = 'X'
Font.Style = [fsBold]
NumGlyphs = 0
OnClick = btnRemoveIconClick
ParentFont = False
end
object edtIconFileName: TEdit
AnchorSideLeft.Control = sbtnIcon
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = sbtnIcon
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = btnRemoveIcon
Left = 48
Height = 29
Top = 7
Width = 207
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4
TabOrder = 0
end
end
object gbExts: TGroupBox
AnchorSideLeft.Control = pnlRightSettings
AnchorSideTop.Control = pnlRightSettings
AnchorSideRight.Control = pnlRightSettings
AnchorSideRight.Side = asrBottom
Left = 0
Height = 140
Top = 0
Width = 288
Anchors = [akTop, akLeft, akRight]
BorderSpacing.InnerBorder = 20
Caption = 'Extensions'
ClientHeight = 118
ClientWidth = 284
TabOrder = 2
object lbExts: TListBox
Left = 6
Height = 106
Top = 6
Width = 182
Align = alClient
BorderSpacing.Around = 6
ItemHeight = 0
OnSelectionChange = lbExtsSelectionChange
TabOrder = 0
end
object pnlExtsButtons: TPanel
Left = 194
Height = 106
Top = 6
Width = 84
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
BevelOuter = bvNone
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ClientHeight = 106
ClientWidth = 84
TabOrder = 1
object btnAddExt: TButton
Left = 0
Height = 35
Top = 0
Width = 84
AutoSize = True
BorderSpacing.InnerBorder = 2
Caption = 'Add'
OnClick = btnAddExtClick
TabOrder = 0
end
object btnRemoveExt: TButton
Left = 0
Height = 35
Top = 35
Width = 84
AutoSize = True
BorderSpacing.InnerBorder = 2
Caption = 'Remove'
OnClick = btnRemoveExtClick
TabOrder = 1
end
end
end
end
object pnlLeftSettings: TPanel
AnchorSideLeft.Control = pnlSettings
AnchorSideTop.Control = pnlSettings
AnchorSideBottom.Control = pnlSettings
AnchorSideBottom.Side = asrBottom
Left = 10
Height = 521
Top = 6
Width = 250
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 4
BorderSpacing.Around = 6
BevelOuter = bvNone
ClientHeight = 521
ClientWidth = 250
TabOrder = 1
object gbFileTypes: TGroupBox
Left = 0
Height = 521
Top = 0
Width = 250
Align = alClient
Caption = 'File types'
ClientHeight = 499
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 = 409
Top = 6
Width = 234
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
ItemHeight = 20
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 = 35
Top = 421
Width = 234
Anchors = [akLeft, akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 2
BorderSpacing.InnerBorder = 2
Caption = 'Add'
OnClick = btnAddNewTypeClick
TabOrder = 1
end
object btnRemoveType: TButton
AnchorSideLeft.Control = btnAddNewType
Left = 6
Height = 35
Top = 458
Width = 84
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 = 154
Height = 35
Top = 458
Width = 86
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.InnerBorder = 2
Caption = 'Rename'
OnClick = btnRenameTypeClick
OnResize = btnRenameTypeResize
TabOrder = 3
end
end
end
end
object OpenPictureDialog: TOpenPictureDialog
left = 24
top = 536
end
object pmActions: TPopupMenu
left = 64
top = 536
object miOpen: TMenuItem
Caption = 'Open'
OnClick = miActionsClick
end
object miView: TMenuItem
Caption = 'View'
OnClick = miActionsClick
end
object miEdit: TMenuItem
Caption = 'Edit'
OnClick = miActionsClick
end
end
object pmCommands: TPopupMenu
left = 96
top = 536
object miVfs: TMenuItem
Caption = 'Open in VFS'
OnClick = miCommandsClick
end
object miViewer: TMenuItem
Caption = 'Open in Viewer'
OnClick = miCommandsClick
end
object miEditor: TMenuItem
Caption = 'Open in Editor'
OnClick = miCommandsClick
end
object miShell: TMenuItem
Caption = 'Run in terminal'
OnClick = miCommandsClick
end
object miGetOutputFromCommand: TMenuItem
Caption = 'Get output from command'
OnClick = miCommandsClick
end
object miFileName: TMenuItem
Caption = 'File name'
OnClick = miCommandsClick
end
object miFilePath: TMenuItem
Caption = 'File path'
OnClick = miCommandsClick
end
object miFullPath: TMenuItem
Caption = 'Full path'
OnClick = miCommandsClick
end
end
end