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: CurrentFileFrom/CurrentFileTo update in MultiArchive/7z

Browse source
This commit is contained in:
rich2014 2026-06-20 16:45:23 +08:00
commit ed6d2a875d
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/filesources/multiarchive/umultiarchivecopyinoperation.pas
View file

@ -180,7 +180,7 @@ begin
for I:= currentFullFiles.Count - 1 downto 0 do begin
if oneByOne then begin
aFile:= currentFullFiles[I];
UpdateProgress(sRootPath + aFile.FullPath, sDestPath, 0);
UpdateProgress(sRootPath + aFile.FullPath, FMultiArchiveFileSource.ArchiveFileName, 0);
currentFiles:= nil;
currentPath:= aFile.FullPath;
end else begin
@ -214,7 +214,7 @@ begin
if NOT oneByOne then
break;
UpdateProgress(sRootPath + aFile.FullPath, sDestPath, aFile.Size);
UpdateProgress(sRootPath + aFile.FullPath, FMultiArchiveFileSource.ArchiveFileName, aFile.Size);
end
finally
if currentFullFiles <> FFullFilesTree then
@ -246,7 +246,10 @@ begin
removeFiles:= SourceFiles.Clone;
// Put to TAR archive if needed
if FTarBefore then Tar;
if FTarBefore then begin
Tar;
UpdateProgress( SourceFiles[0].FullPath, FMultiArchiveFileSource.ArchiveFileName, 0);
end;
// Get maximum acceptable command errorlevel
FErrorLevel:= ExtractErrorLevel(FCommandLine);