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/StashFS: step-22: support execute/testArchive

Browse source
This commit is contained in:
rich2014 2026-06-08 09:31:21 +08:00
commit 32a3016ee0
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/filesources/stash/ustashfilesource.pas
View file

@ -69,6 +69,7 @@ type
function CreateCombineOperation(var theSourceFiles: TFiles; aTargetFile: String): TFileSourceOperation; override;
function CreateCalcStatisticsOperation(var theFiles: TFiles): TFileSourceOperation; override;
function CreateSetFilePropertyOperation(var theTargetFiles: TFiles; var theNewProperties: TFileProperties): TFileSourceOperation; override;
function CreateExecuteOperation(var ExecutableFile: TFile; BasePath, Verb: String): TFileSourceOperation; override;
function QueryContextMenu(AFiles: TFiles; var AMenu: TPopupMenu): Boolean; override;
procedure AddSearchPath( const startPath: String; paths: TStringList); override;
@ -303,7 +304,9 @@ begin
fsoDelete, fsoWipe,
fsoSplit, fsoCombine,
fsoCalcStatistics,
fsoSetFileProperty];
fsoSetFileProperty,
fsoExecute,
fsoTestArchive];
end;
class function TStashFileSource.CreateFile(const APath: String): TFile;
@ -379,6 +382,12 @@ begin
theNewProperties );
end;
function TStashFileSource.CreateExecuteOperation(var ExecutableFile: TFile;
BasePath, Verb: String): TFileSourceOperation;
begin
Result:= _fileSystemFS.CreateExecuteOperation(ExecutableFile, BasePath, Verb);
end;
function TStashFileSource.QueryContextMenu(AFiles: TFiles; var AMenu: TPopupMenu): Boolean;
var
index: Integer;