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: support fsoPack in TStashFileSourceProcessor

Browse source
This commit is contained in:
rich2014 2026-06-14 10:26:20 +08:00
commit 7db7e41489
1 changed files with 17 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -25,6 +25,7 @@ type
private
procedure consultCopyOperation( var params: TFileSourceConsultParams );
procedure consultMoveOperation( var params: TFileSourceConsultParams );
procedure consultPackOperation( var params: TFileSourceConsultParams );
public
procedure consultOperation( var params: TFileSourceConsultParams ); override;
procedure confirmOperation(var params: TFileSourceConsultParams); override;
@ -151,6 +152,14 @@ begin
params.consultResult:= fscrSuccess;
end;
procedure TStashFileSourceProcessor.consultPackOperation(
var params: TFileSourceConsultParams);
begin
if params.phase=TFileSourceConsultPhase.target then
Exit;
Inherited consultOperation( params );
end;
procedure TStashFileSourceProcessor.consultOperation(
var params: TFileSourceConsultParams);
begin
@ -166,8 +175,10 @@ begin
case params.operationType of
fsoCopy:
self.consultCopyOperation( params );
else
fsoMove:
self.consultMoveOperation( params );
fsoPack:
self.consultPackOperation( params );
end;
end;
@ -180,7 +191,11 @@ begin
params.files.setPathBaseOnAllFiles;
params.handled:= True;
end;
end
end;
fsoPack: begin
params.files.setPathBaseOnAllFiles;
params.handled:= True;
end;
end;
end;