mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Action for operations viewer, so that hotkey can be assigned. Add default hotkey Alt+V for operations viewer.

Browse source
This commit is contained in:
cobines 2011-05-19 15:49:26 +00:00
commit d8a2a0117b
6 changed files with 31 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/fmain.lfm
View file

@ -1560,8 +1560,7 @@ object frmMain: TfrmMain
Caption = '-'
end
object mnuShowOperations: TMenuItem
Caption = 'Operations &Viewer'
OnClick = mnuShowOperationsClick
Action = actOperationsViewer
end
end
object mnuConfig: TMenuItem
@ -2244,6 +2243,11 @@ object frmMain: TfrmMain
Caption = 'Place cursor on last file in list'
OnExecute = actExecute
end
object actOperationsViewer: TAction
Category = 'Show'
Caption = 'Operations &Viewer'
OnExecute = actExecute
end
end
object pmHotList: TPopupMenu
left = 120

2
src/fmain.lrt
View file

@ -41,7 +41,6 @@ TFRMMAIN.MILINE7.CAPTION=-
TFRMMAIN.MILINE3.CAPTION=-
TFRMMAIN.MILINE20.CAPTION=-
TFRMMAIN.MILINE13.CAPTION=-
TFRMMAIN.MNUSHOWOPERATIONS.CAPTION=Operations &Viewer
TFRMMAIN.MNUCONFIG.CAPTION=C&onfiguration
TFRMMAIN.MNUHELP.CAPTION=&Help
TFRMMAIN.MILINE18.CAPTION=-
@ -165,6 +164,7 @@ TFRMMAIN.ACTNETWORKDISCONNECT.CAPTION=Network &Disconnect
TFRMMAIN.ACTHORIZONTALFILEPANELS.CAPTION=&Horizontal Panels Mode
TFRMMAIN.ACTGOTOFIRSTFILE.CAPTION=Place cursor on first file in list
TFRMMAIN.ACTGOTOLASTFILE.CAPTION=Place cursor on last file in list
TFRMMAIN.ACTOPERATIONSVIEWER.CAPTION=Operations &Viewer
TFRMMAIN.TBEDIT.CAPTION=Edit
TFRMMAIN.TBDELETE.CAPTION=Delete
TFRMMAIN.TBCHANGEDIR.CAPTION=CD

20
src/fmain.pas
View file

@ -80,6 +80,7 @@ type
actHorizontalFilePanels: TAction;
actGoToFirstFile: TAction;
actGoToLastFile: TAction;
actOperationsViewer: TAction;
actNetworkDisconnect: TAction;
actNetworkQuickConnect: TAction;
actNetworkConnect: TAction;
@ -406,7 +407,6 @@ type
procedure miLogMenuClick(Sender: TObject);
procedure miTrayIconExitClick(Sender: TObject);
procedure miTrayIconRestoreClick(Sender: TObject);
procedure mnuShowOperationsClick(Sender: TObject);
procedure PanelButtonClick(Button: TSpeedButton; SourceFrame: TFileView;
PanelSelect: TFilePanelSelect);
procedure DeleteClick(Sender: TObject);
@ -795,10 +795,7 @@ end;
procedure TfrmMain.AllOpPctClick(Sender: TObject);
begin
if not Assigned(frmViewOperations) then
Application.CreateForm(TfrmViewOperations, frmViewOperations);
frmViewOperations.ShowOnTop;
ShowOperationsViewer;
end;
procedure TfrmMain.AllOpStartClick(Sender: TObject);
@ -876,10 +873,7 @@ end;
procedure TfrmMain.lblAllProgressPctClick(Sender: TObject);
begin
if not Assigned(frmViewOperations) then
Application.CreateForm(TfrmViewOperations, frmViewOperations);
frmViewOperations.ShowOnTop;
ShowOperationsViewer;
end;
procedure TfrmMain.MainToolBarToolButtonDragDrop(Sender, Source: TObject; X,
@ -1015,14 +1009,6 @@ begin
RestoreFromTray;
end;
procedure TfrmMain.mnuShowOperationsClick(Sender: TObject);
begin
if not Assigned(frmViewOperations) then
Application.CreateForm(TfrmViewOperations, frmViewOperations);
frmViewOperations.ShowOnTop;
end;
procedure TfrmMain.PanelButtonClick(Button: TSpeedButton; SourceFrame: TFileView;
PanelSelect: TFilePanelSelect);
var

13
src/newdesign/fviewoperations.pas
View file

@ -70,8 +70,9 @@ type
end;
procedure ShowOperationsViewer;
var
frmViewOperations: TfrmViewOperations = nil;
indexFocus: integer;
implementation
@ -85,6 +86,16 @@ uses
const
aRowHeight = 50;
var
frmViewOperations: TfrmViewOperations = nil;
procedure ShowOperationsViewer;
begin
if not Assigned(frmViewOperations) then
frmViewOperations := TfrmViewOperations.Create(Application);
frmViewOperations.ShowOnTop;
end;
{ TfrmViewOperations }
procedure TfrmViewOperations.FormCreate(Sender: TObject);

8
src/uacts.pas
View file

@ -257,6 +257,7 @@ const cf_Null=0;
procedure cm_NetworkConnect(param: string='');
procedure cm_NetworkDisconnect(param: string='');
procedure cm_HorizontalFilePanels(param: string='');
procedure cm_OperationsViewer(param: string='');
// Internal commands
procedure cm_Int_RunCommandFromBarFile(param: string='');
@ -289,7 +290,7 @@ uses Forms, Controls, Clipbrd, strutils, LCLProc, HelpIntfs, dmHelpManager,
uVfsFileSource, uFileSourceUtil, uArchiveFileSourceUtil,
uTempFileSystemFileSource, uFileProperty, uFileSourceSetFilePropertyOperation,
uFileSorting, uShellContextMenu, uTrash, uFileSystemCopyOperation, uFindEx,
uTypes;
uTypes, fViewOperations;
{ TActs }
@ -2885,6 +2886,11 @@ begin
frmMain.UpdateWindowView;
end;
procedure TActs.cm_OperationsViewer(param: string='');
begin
ShowOperationsViewer;
end;
procedure TActs.cm_Int_RunCommandFromBarFile(param: string='');
var
SR : TSearchRecEx;

3
src/uglobs.pas
View file

@ -76,7 +76,7 @@ type
const
{ Default hotkey list version number }
hkVersion: String = '0.4.6.r3341';
hkVersion: String = '0.4.6.r3603';
ConfigVersion = '1';
var
@ -393,6 +393,7 @@ begin
AddHotKeyEx('Alt+Right','cm_ViewHistoryNext','','FrmMain','FrmMain');
AddHotKeyEx('Alt+Down','cm_DirHistory','','FrmMain','FrmMain');
AddHotKeyEx('Shift+Ctrl+H','cm_HorizontalFilePanels','','FrmMain','FrmMain');
AddHotKeyEx('Alt+V','cm_OperationsViewer','','FrmMain','FrmMain');
// AddHotKeyEx('','cm_','','FrmMain','FrmMain');