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: Zip - show gzip compression progress

Browse source 
(cherry picked from commit 952ceb722e)
This commit is contained in:
Alexander Koblov 2022-09-14 21:19:16 +03:00
commit 086b468cfa
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
plugins/wcx/zip/src/fparchive/abgztyp.pas
View file

@ -293,7 +293,7 @@ uses
Windows,
{$ENDIF}
SysUtils,
AbBitBkt, AbDfBase, AbDfDec, AbZlibPrc, AbExcept, AbResString,
AbBitBkt, AbDfBase, AbDfDec, AbZlibPrc, AbExcept, AbResString, AbProgress,
AbVMStrm, DCOSUtils, DCClassesUtf8, DCConvertEncoding;
const
@ -1191,8 +1191,8 @@ begin
end
else begin
CurItem.LastModTimeAsDateTime := AbGetFileTime(CurItem.DiskFileName);
UncompressedStream := TFileStreamEx.Create(CurItem.DiskFileName,
fmOpenRead or fmShareDenyWrite );
UncompressedStream := TAbProgressFileStream.Create(CurItem.DiskFileName,
fmOpenRead or fmShareDenyWrite, OnProgress);
try
CurItem.UncompressedSize := UncompressedStream.Size;