ADD: Set file properties menu item

This commit is contained in:
Alexander Koblov 2009-12-01 16:13:51 +00:00
commit fec620df89
3 changed files with 129 additions and 117 deletions

View file

@ -1,7 +1,7 @@
object frmMain: TfrmMain
Left = 182
Left = 182
Height = 659
Top = 54
Top = 54
Width = 659
ActiveControl = pnlSyncSize
Caption = 'Double Commander'
@ -48,7 +48,7 @@ object frmMain: TfrmMain
AnchorSideTop.Side = asrBottom
Left = 0
Height = 26
Top = 24
Top = 24
Width = 659
Align = alTop
BevelOuter = bvNone
@ -69,7 +69,7 @@ object frmMain: TfrmMain
TabOrder = 0
object dskLeft: TKASToolBar
Left = 1
Height = 20
Height = 20
Top = 1
Width = 142
Align = alLeft
@ -108,23 +108,23 @@ object frmMain: TfrmMain
end
object pnlNotebooks: TPanel
Left = 0
Height = 499
Top = 50
Height = 499
Top = 50
Width = 659
Align = alClient
ClientHeight = 499
ClientHeight = 499
ClientWidth = 659
FullRepaint = False
TabOrder = 1
object pnlLeft: TPanel
Left = 1
Height = 323
Height = 323
Top = 1
Width = 170
Align = alLeft
BorderSpacing.Right = 3
BevelOuter = bvNone
ClientHeight = 323
ClientHeight = 323
ClientWidth = 170
TabOrder = 0
OnDblClick = pnlLeftRightDblClick
@ -224,13 +224,13 @@ object frmMain: TfrmMain
end
object pnlRight: TPanel
Left = 174
Height = 323
Height = 323
Top = 1
Width = 484
Align = alClient
BorderSpacing.Left = 3
BevelOuter = bvNone
ClientHeight = 323
ClientHeight = 323
ClientWidth = 484
TabOrder = 1
OnDblClick = pnlLeftRightDblClick
@ -325,7 +325,7 @@ object frmMain: TfrmMain
object pnlCommand: TPanel
Left = 1
Height = 169
Top = 329
Top = 329
Width = 657
Align = alBottom
Anchors = [akLeft, akRight]
@ -337,23 +337,23 @@ object frmMain: TfrmMain
TabOrder = 2
object Panel1: TPanel
Left = 1
Height = 28
Top = 140
Height = 28
Top = 140
Width = 655
Align = alBottom
AutoSize = True
BevelOuter = bvNone
ChildSizing.TopBottomSpacing = 2
ClientHeight = 28
ClientHeight = 28
ClientWidth = 655
TabOrder = 0
object lblCommandPath: TLabel
AnchorSideTop.Control = edtCommand
AnchorSideTop.Side = asrCenter
Left = 0
Height = 20
Top = 6
Width = 33
Height = 20
Top = 6
Width = 33
Caption = 'Path'
ParentColor = False
ShowAccelChar = False
@ -361,11 +361,11 @@ object frmMain: TfrmMain
object edtCommand: TComboBox
AnchorSideTop.Control = Panel1
Left = 49
Height = 29
Height = 29
Top = 2
Width = 597
Anchors = [akTop, akLeft, akRight]
ItemHeight = 0
ItemHeight = 0
OnEnter = edtCommandEnter
OnExit = edtCommandExit
OnKeyDown = edtCommandKeyDown
@ -375,7 +375,7 @@ object frmMain: TfrmMain
end
object nbConsole: TNotebook
Left = 1
Height = 139
Height = 139
Top = 1
Width = 655
TabStop = False
@ -385,10 +385,10 @@ object frmMain: TfrmMain
TabOrder = 1
object Page1: TPage
ClientWidth = 647
ClientHeight = 131
ClientHeight = 131
object CmdBox1: TCmdBox
Left = 0
Height = 131
Height = 131
Top = 0
Width = 647
Align = alClient
@ -416,7 +416,7 @@ object frmMain: TfrmMain
Cursor = crVSplit
Left = 1
Height = 5
Top = 324
Top = 324
Width = 657
Align = alBottom
ResizeAnchor = akBottom
@ -514,10 +514,10 @@ object frmMain: TfrmMain
NumGlyphs = 0
end
object btnF9: TSpeedButton
Left = 581
Left = 581
Height = 25
Top = 0
Width = 78
Width = 78
Action = actRunTerm
Caption = 'Terminal F9'
Color = clBtnFace
@ -525,17 +525,17 @@ object frmMain: TfrmMain
NumGlyphs = 0
end
object btnF10: TSpeedButton
Left = 498
Left = 498
Height = 25
Top = 0
Width = 83
Width = 83
Action = actExit
Color = clBtnFace
Flat = True
NumGlyphs = 0
end
end
object seLogWindow: TSynEdit
object seLogWindow: TSynEdit
Left = 0
Height = 61
Top = 553
@ -551,329 +551,329 @@ object frmMain: TfrmMain
TabStop = False
Keystrokes = <
item
Command = 3
Command = 3
ShortCut = 38
end
item
Command = 103
Command = 103
ShortCut = 8230
end
item
Command = 211
Command = 211
ShortCut = 16422
end
item
Command = 4
Command = 4
ShortCut = 40
end
item
Command = 104
Command = 104
ShortCut = 8232
end
item
Command = 212
Command = 212
ShortCut = 16424
end
item
Command = 1
Command = 1
ShortCut = 37
end
item
Command = 101
Command = 101
ShortCut = 8229
end
item
Command = 5
Command = 5
ShortCut = 16421
end
item
Command = 105
Command = 105
ShortCut = 24613
end
item
Command = 2
Command = 2
ShortCut = 39
end
item
Command = 102
Command = 102
ShortCut = 8231
end
item
Command = 6
Command = 6
ShortCut = 16423
end
item
Command = 106
Command = 106
ShortCut = 24615
end
item
Command = 10
Command = 10
ShortCut = 34
end
item
Command = 110
Command = 110
ShortCut = 8226
end
item
Command = 14
Command = 14
ShortCut = 16418
end
item
Command = 114
Command = 114
ShortCut = 24610
end
item
Command = 9
Command = 9
ShortCut = 33
end
item
Command = 109
Command = 109
ShortCut = 8225
end
item
Command = 13
Command = 13
ShortCut = 16417
end
item
Command = 113
Command = 113
ShortCut = 24609
end
item
Command = 7
Command = 7
ShortCut = 36
end
item
Command = 107
Command = 107
ShortCut = 8228
end
item
Command = 15
Command = 15
ShortCut = 16420
end
item
Command = 115
Command = 115
ShortCut = 24612
end
item
Command = 8
Command = 8
ShortCut = 35
end
item
Command = 108
Command = 108
ShortCut = 8227
end
item
Command = 16
Command = 16
ShortCut = 16419
end
item
Command = 116
Command = 116
ShortCut = 24611
end
item
Command = 223
Command = 223
ShortCut = 45
end
item
Command = 201
Command = 201
ShortCut = 16429
end
item
Command = 604
Command = 604
ShortCut = 8237
end
item
Command = 502
Command = 502
ShortCut = 46
end
item
Command = 603
Command = 603
ShortCut = 8238
end
item
Command = 501
Command = 501
ShortCut = 8
end
item
Command = 501
Command = 501
ShortCut = 8200
end
item
Command = 504
Command = 504
ShortCut = 16392
end
item
Command = 601
Command = 601
ShortCut = 32776
end
item
Command = 602
Command = 602
ShortCut = 40968
end
item
Command = 509
Command = 509
ShortCut = 13
end
item
Command = 199
Command = 199
ShortCut = 16449
end
item
Command = 201
Command = 201
ShortCut = 16451
end
item
Command = 610
Command = 610
ShortCut = 24649
end
item
Command = 509
Command = 509
ShortCut = 16461
end
item
Command = 510
Command = 510
ShortCut = 16462
end
item
Command = 503
Command = 503
ShortCut = 16468
end
item
Command = 611
Command = 611
ShortCut = 24661
end
item
Command = 604
Command = 604
ShortCut = 16470
end
item
Command = 603
Command = 603
ShortCut = 16472
end
item
Command = 507
Command = 507
ShortCut = 16473
end
item
Command = 506
Command = 506
ShortCut = 24665
end
item
Command = 601
Command = 601
ShortCut = 16474
end
item
Command = 602
Command = 602
ShortCut = 24666
end
item
Command = 301
Command = 301
ShortCut = 16432
end
item
Command = 302
Command = 302
ShortCut = 16433
end
item
Command = 303
Command = 303
ShortCut = 16434
end
item
Command = 304
Command = 304
ShortCut = 16435
end
item
Command = 305
Command = 305
ShortCut = 16436
end
item
Command = 306
Command = 306
ShortCut = 16437
end
item
Command = 307
Command = 307
ShortCut = 16438
end
item
Command = 308
Command = 308
ShortCut = 16439
end
item
Command = 309
Command = 309
ShortCut = 16440
end
item
Command = 310
Command = 310
ShortCut = 16441
end
item
Command = 351
Command = 351
ShortCut = 24624
end
item
Command = 352
Command = 352
ShortCut = 24625
end
item
Command = 353
Command = 353
ShortCut = 24626
end
item
Command = 354
Command = 354
ShortCut = 24627
end
item
Command = 355
Command = 355
ShortCut = 24628
end
item
Command = 356
Command = 356
ShortCut = 24629
end
item
Command = 357
Command = 357
ShortCut = 24630
end
item
Command = 358
Command = 358
ShortCut = 24631
end
item
Command = 359
Command = 359
ShortCut = 24632
end
item
Command = 360
Command = 360
ShortCut = 24633
end
item
Command = 231
Command = 231
ShortCut = 24654
end
item
Command = 232
Command = 232
ShortCut = 24643
end
item
Command = 233
Command = 233
ShortCut = 24652
end
item
Command = 612
Command = 612
ShortCut = 9
end
item
Command = 613
Command = 613
ShortCut = 8201
end
item
Command = 250
Command = 250
ShortCut = 24642
end>
ReadOnly = True
RightEdge = 0
ScrollBars = ssVertical
OnSpecialLineColors = seLogWindowSpecialLineColors
OnSpecialLineColors = seLogWindowSpecialLineColors
end
object LogSplitter: TSplitter
Cursor = crVSplit
@ -901,6 +901,10 @@ object frmMain: TfrmMain
object miLine1: TMenuItem
Caption = '-'
end
object mnuSetFileProperties: TMenuItem
Action = actSetFileProperties
OnClick = actExecute
end
object mnuFilesProperties: TMenuItem
Action = actFileProperties
OnClick = actExecute
@ -1688,6 +1692,11 @@ object frmMain: TfrmMain
Caption = 'Quick filter'
OnExecute = actExecute
end
object actSetFileProperties: TAction
Category = 'File'
Caption = 'Change file properties'
OnExecute = actExecute
end
end
object pmHotList: TPopupMenu
left = 152
@ -1912,26 +1921,26 @@ object frmMain: TfrmMain
top = 136
object miNewTab: TMenuItem
Action = actNewTab
OnClick = mnuTabMenuClick
OnClick = mnuTabMenuClick
end
object miToggleLockTab: TMenuItem
Action = actToggleLockTab
OnClick = mnuTabMenuClick
OnClick = mnuTabMenuClick
end
object miToggleLockDcaTab: TMenuItem
Action = actToggleLockDcaTab
OnClick = mnuTabMenuClick
OnClick = mnuTabMenuClick
end
object miLine14: TMenuItem
Caption = '-'
end
object miRemoveTab: TMenuItem
Action = actRemoveTab
OnClick = mnuTabMenuClick
OnClick = mnuTabMenuClick
end
object miRemoveAllTabs: TMenuItem
Action = actRemoveAllTabs
OnClick = mnuTabMenuClick
OnClick = mnuTabMenuClick
end
end
object tmHAL: TTimer

View file

@ -135,6 +135,7 @@ TFRMMAIN.ACTDRIVECONTEXTMENU.CAPTION=Drive context menu
TFRMMAIN.ACTCOPYNOASK.CAPTION=Copy files without asking for confirmation
TFRMMAIN.ACTRENAMENOASK.CAPTION=Move/Rename files without asking for confirmation
TFRMMAIN.ACTQUICKFILTER.CAPTION=Quick filter
TFRMMAIN.ACTSETFILEPROPERTIES.CAPTION=Change file properties
TFRMMAIN.TBEDIT.CAPTION=Edit
TFRMMAIN.TBDELETE.CAPTION=Delete
TFRMMAIN.MENUITEM2.CAPTION=-

View file

@ -79,7 +79,8 @@ type
actAddFilenameToCmdLine: TAction;
actAddPathAndFilenameToCmdLine: TAction;
actDriveContextMenu: TAction;
actCopyNoAsk: TAction;
actCopyNoAsk: TAction;
actSetFileProperties: TAction;
actQuickFilter: TAction;
actRenameNoAsk: TAction;
actSortByColumn: TAction;
@ -129,7 +130,8 @@ type
dskLeft: TKAStoolBar;
dskRight: TKAStoolBar;
edtCommand: TComboBox;
lblCommandPath: TLabel;
lblCommandPath: TLabel;
mnuSetFileProperties: TMenuItem;
mnuShowOperations: TMenuItem;
miLine13: TMenuItem;
miLogClear: TMenuItem;