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

FIX: pack files from Stash to iCloud

Browse source
This commit is contained in:
rich2014 2026-06-14 17:41:44 +08:00
commit 77a97865cf
3 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/filesources/searchresult/usearchresultfilesource.pas
View file

@ -162,7 +162,6 @@ procedure TSearchResultFileSourceProcessor.confirmOperation(
var params: TFileSourceConsultParams);
begin
params.files.setPathBaseOnAllFiles;
params.handled:= True;
end;
constructor TSearchResultFileSource.Create(const displayName: String);

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

@ -192,10 +192,8 @@ begin
params.handled:= True;
end;
end;
fsoPack: begin
fsoPack:
params.files.setPathBaseOnAllFiles;
params.handled:= True;
end;
end;
end;

7
src/fpackdlg.pas
View file

@ -75,6 +75,7 @@ type
FPassword: String;
FVolumeSize: String;
FCustomParams: String;
FTargetPath: String;
FTargetPathInArchive: String;
procedure SwitchOptions(ArcTypeChange: Boolean);
procedure ChangeArchiveExt(const NewArcExt: String);
@ -151,7 +152,9 @@ begin
if (ShowModal = mrOK) then
begin
params.targetPath:= edtPackCmd.Text;
FileSourceManager.confirmOperation( params );
FTargetPath:= params.resultTargetPath;
case PrepareData(params.sourceFS, params.files, @OnPackCopyOutStateChanged) of
pdrInCallback:
PackDialog:= nil;
@ -609,7 +612,7 @@ begin
aFiles:= TFiles.Create(Files.Path);
try
aFiles.Add(Files[I].Clone);
FArchiveName:= GetAbsoluteFileName(Files.Path, edtPackCmd.Text);
FArchiveName:= GetAbsoluteFileName(Files.Path, FTargetPath);
try
// Check if there is an ArchiveFileSource for possible archive.
aFile := FTargetFileSource.CreateFileObject(ExtractFilePath(FArchiveName));
@ -640,7 +643,7 @@ begin
end
else
begin
FArchiveName:= GetAbsoluteFileName(Files.Path, edtPackCmd.Text);
FArchiveName:= GetAbsoluteFileName(Files.Path, FTargetPath);
try
// Check if there is an ArchiveFileSource for possible archive.
aFile := FTargetFileSource.CreateFileObject(ExtractFilePath(FArchiveName));