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: Test archive command

Browse source
This commit is contained in:
Alexander Koblov 2010-02-03 20:12:11 +00:00
commit dfa8d24fdd
4 changed files with 40 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/fmain.lfm
View file

@ -939,6 +939,10 @@ object frmMain: TfrmMain
Action = actExtractFiles
OnClick = actExecute
end
object mnuTestArchive: TMenuItem
Action = actTestArchive
OnClick = actExecute
end
object mnuFilesSplit: TMenuItem
Action = actFileSpliter
OnClick = actExecute
@ -1738,6 +1742,11 @@ object frmMain: TfrmMain
Caption = 'Quick View Panel'
OnExecute = actExecute
end
object actTestArchive: TAction
Category = 'File'
Caption = 'Test Archive(s)'
OnExecute = actExecute
end
end
object pmHotList: TPopupMenu
left = 152

43
src/fmain.lrt
View file

@ -16,7 +16,7 @@ TFRMMAIN.BTNRIGHTDIRECTORYHOTLIST.CAPTION=*
TFRMMAIN.BTNRIGHTTARGETEQUALSOURCE.CAPTION==
TFRMMAIN.LBLCOMMANDPATH.CAPTION=Path
TFRMMAIN.BTNF9.CAPTION=Terminal F9
TFRMMAIN.MNUFILES.CAPTION=Files
TFRMMAIN.MNUFILES.CAPTION=&Files
TFRMMAIN.MILINE1.CAPTION=-
TFRMMAIN.MILINE2.CAPTION=-
TFRMMAIN.MNUFILESCOMBINE.CAPTION=Combine Files
@ -32,7 +32,7 @@ TFRMMAIN.MILINE22.CAPTION=-
TFRMMAIN.MNUTABS.CAPTION=&Tabs
TFRMMAIN.MILINE15.CAPTION=-
TFRMMAIN.MILINE16.CAPTION=-
TFRMMAIN.MNUTABOPTIONS.CAPTION=Options
TFRMMAIN.MNUTABOPTIONS.CAPTION=&Options
TFRMMAIN.MILINE17.CAPTION=-
TFRMMAIN.MNUSHOW.CAPTION=&Show
TFRMMAIN.MILINE32.CAPTION=-
@ -43,16 +43,16 @@ TFRMMAIN.MNUSHOWOPERATIONS.CAPTION=Operations viewer
TFRMMAIN.MNUCONFIG.CAPTION=C&onfiguration
TFRMMAIN.MNUHELP.CAPTION=&Help
TFRMMAIN.MILINE18.CAPTION=-
TFRMMAIN.ACTEXIT.CAPTION=Exit
TFRMMAIN.ACTEXIT.CAPTION=E&xit
TFRMMAIN.ACTVIEW.CAPTION=View F3
TFRMMAIN.ACTEDIT.CAPTION=Edit F4
TFRMMAIN.ACTCOPY.CAPTION=Copy F5
TFRMMAIN.ACTRENAME.CAPTION=Move F6
TFRMMAIN.ACTMAKEDIR.CAPTION=MakeDir F7
TFRMMAIN.ACTDELETE.CAPTION=Delete F8
TFRMMAIN.ACTABOUT.CAPTION=About
TFRMMAIN.ACTABOUT.CAPTION=&About
TFRMMAIN.ACTSHOWSYSFILES.CAPTION=Show hidden/system files
TFRMMAIN.ACTOPTIONS.CAPTION=Options...
TFRMMAIN.ACTOPTIONS.CAPTION=&Options...
TFRMMAIN.ACTCOMPARECONTENTS.CAPTION=Compare by &Contents
TFRMMAIN.ACTSHOWMENU.CAPTION=Menu F9
TFRMMAIN.ACTREFRESH.CAPTION=&Refresh
@ -82,10 +82,10 @@ TFRMMAIN.ACTCALCULATESPACE.CAPTION=Calculate &Occupied Space...
TFRMMAIN.ACTFILEPROPERTIES.CAPTION=Show file properties
TFRMMAIN.ACTFILELINKER.CAPTION=Link files
TFRMMAIN.ACTFILESPLITER.CAPTION=Split file
TFRMMAIN.ACTNEWTAB.CAPTION=New tab
TFRMMAIN.ACTNEWTAB.CAPTION=&New tab
TFRMMAIN.ACTPACKFILES.CAPTION=Pack files...
TFRMMAIN.ACTEXTRACTFILES.CAPTION=Extract files...
TFRMMAIN.ACTOPENVIRTUALFILESYSTEMLIST.CAPTION=Open VFS List
TFRMMAIN.ACTOPENVIRTUALFILESYSTEMLIST.CAPTION=Open &VFS List
TFRMMAIN.ACTLEFTOPENDRIVES.CAPTION=Open left drive list
TFRMMAIN.ACTRIGHTOPENDRIVES.CAPTION=Open right drive list
TFRMMAIN.ACTADDPATHTOCMDLINE.CAPTION=Copy path to command line
@ -96,7 +96,7 @@ TFRMMAIN.ACTCONTEXTMENU.CAPTION=Show context menu
TFRMMAIN.ACTOPENARCHIVE.CAPTION=Try open archive
TFRMMAIN.ACTSHOWBUTTONMENU.CAPTION=Show button menu
TFRMMAIN.ACTQUICKSEARCH.CAPTION=Quick search
TFRMMAIN.ACTFILEASSOC.CAPTION=File associations...
TFRMMAIN.ACTFILEASSOC.CAPTION=File &associations...
TFRMMAIN.ACTOPEN.CAPTION=Open
TFRMMAIN.ACTCOPYNAMESTOCLIP.CAPTION=Copy &Filename(s) to Clipboard
TFRMMAIN.ACTCUTTOCLIPBOARD.CAPTION=Cu&t
@ -109,9 +109,9 @@ TFRMMAIN.ACTWIPE.CAPTION=Wipe
TFRMMAIN.ACTMARKCURRENTEXTENSION.CAPTION=Select all with same extension
TFRMMAIN.ACTUNMARKCURRENTEXTENSION.CAPTION=Unselect all with same extension
TFRMMAIN.ACTEDITCOMMENT.CAPTION=Edit comment...
TFRMMAIN.ACTKEYBOARD.CAPTION=Keyboard
TFRMMAIN.ACTVISITHOMEPAGE.CAPTION=Visit Double Commander Web Site
TFRMMAIN.ACTHELPINDEX.CAPTION=Contents
TFRMMAIN.ACTKEYBOARD.CAPTION=&Keyboard
TFRMMAIN.ACTVISITHOMEPAGE.CAPTION=&Visit Double Commander Web Site
TFRMMAIN.ACTHELPINDEX.CAPTION=&Contents
TFRMMAIN.ACTLEFTEQUALRIGHT.CAPTION=Left &= Right
TFRMMAIN.ACTRIGHTEQUALLEFT.CAPTION=Right &= Left
TFRMMAIN.ACTCHANGEDIRTOROOT.CAPTION=Change directory to root
@ -131,17 +131,18 @@ 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.ACTOPENDIRINNEWTAB.CAPTION=Open folder in new tab
TFRMMAIN.ACTREMOVETAB.CAPTION=Remove tab
TFRMMAIN.ACTREMOVEALLTABS.CAPTION=Remove all tabs
TFRMMAIN.ACTSETTABOPTIONNORMAL.CAPTION=Normal
TFRMMAIN.ACTSETTABOPTIONPATHLOCKED.CAPTION=Locked
TFRMMAIN.ACTSETTABOPTIONPATHRESETS.CAPTION=Locked, but directory changes allowed
TFRMMAIN.ACTSETTABOPTIONDIRSINNEWTAB.CAPTION=Directories are opened in new tabs
TFRMMAIN.ACTNEXTTAB.CAPTION=Switch to next tab
TFRMMAIN.ACTPREVTAB.CAPTION=Switch to previous tab
TFRMMAIN.ACTOPENDIRINNEWTAB.CAPTION=Open &folder in new tab
TFRMMAIN.ACTREMOVETAB.CAPTION=&Remove tab
TFRMMAIN.ACTREMOVEALLTABS.CAPTION=Remove &all tabs
TFRMMAIN.ACTSETTABOPTIONNORMAL.CAPTION=&Normal
TFRMMAIN.ACTSETTABOPTIONPATHLOCKED.CAPTION=&Locked
TFRMMAIN.ACTSETTABOPTIONPATHRESETS.CAPTION=Locked, but &directory changes allowed
TFRMMAIN.ACTSETTABOPTIONDIRSINNEWTAB.CAPTION=Directories are opened in new &tabs
TFRMMAIN.ACTNEXTTAB.CAPTION=Switch to nex&t tab
TFRMMAIN.ACTPREVTAB.CAPTION=Switch to &previous tab
TFRMMAIN.ACTOPENBAR.CAPTION=Open bar file
TFRMMAIN.ACTQUICKVIEW.CAPTION=Quick View Panel
TFRMMAIN.ACTTESTARCHIVE.CAPTION=Test Archive(s)
TFRMMAIN.TBEDIT.CAPTION=Edit
TFRMMAIN.TBDELETE.CAPTION=Delete
TFRMMAIN.MENUITEM2.CAPTION=-
@ -163,7 +164,7 @@ TFRMMAIN.MILINE19.CAPTION=-
TFRMMAIN.MITABOPTIONS.CAPTION=Tab options
TFRMMAIN.MITRAYICONRESTORE.CAPTION=Restore
TFRMMAIN.MILINE8.CAPTION=-
TFRMMAIN.MITRAYICONEXIT.CAPTION=Exit
TFRMMAIN.MITRAYICONEXIT.CAPTION=E&xit
TFRMMAIN.MILOGCOPY.CAPTION=Copy
TFRMMAIN.MILINE24.CAPTION=-
TFRMMAIN.MILOGSELECTALL.CAPTION=Select All

3
src/fmain.pas
View file

@ -77,6 +77,7 @@ type
actAddPathAndFilenameToCmdLine: TAction;
actDriveContextMenu: TAction;
actCopyNoAsk: TAction;
actTestArchive: TAction;
actQuickView: TAction;
actOpenBar: TAction;
actSetFileProperties: TAction;
@ -132,6 +133,7 @@ type
dskRight: TKAStoolBar;
edtCommand: TComboBox;
lblCommandPath: TLabel;
mnuTestArchive: TMenuItem;
mnuQuickView: TMenuItem;
miLine32: TMenuItem;
miLine14: TMenuItem;
@ -210,6 +212,7 @@ type
MainToolBar: TKASToolBar;
mnuOpenVFSList: TMenuItem;
mnuExtractFiles: TMenuItem;
pmDrivesMenu: TPopupMenu;
pmSplitterPercent: TPopupMenu;
pnlCommand: TPanel;
pnlKeys: TPanel;

6
src/uacts.pas
View file

@ -147,6 +147,7 @@ const cf_Null=0;
procedure cm_CopyFullNamesToClip(param: string='');
procedure cm_Exchange(param:string='');
procedure cm_OpenArchive(param:string='');
procedure cm_TestArchive(param:string='');
procedure cm_OpenDirInNewTab(param:string='');
procedure cm_Open(param:string='');
procedure cm_OpenVirtualFileSystemList(param:string='');
@ -869,6 +870,11 @@ begin
end;
end;
procedure TActs.cm_TestArchive(param: string);
begin
DebugLn('TActs.cm_TestArchive');
end;
procedure TActs.cm_Open(param:string);
begin
frmMain.ActiveFrame.ExecuteCommand('cm_Open', param);