UPD: WcxPlugin - better current file progress

This commit is contained in:
Alexander Koblov 2018-12-15 08:30:55 +00:00
commit ecbfc701a1

View file

@ -26,7 +26,6 @@ type
private
FWcxArchiveFileSource: IWcxArchiveFileSource;
FStatistics: TFileSourceCopyOperationStatistics; // local copy of statistics
FCurrentFileSize: Int64;
FRenamingFiles: Boolean;
FRenameNameMask, FRenameExtMask: String;
@ -149,8 +148,7 @@ begin
// Current file percent
else if (Size >= -1100) and (Size <= -1000) then
begin
CurrentFileTotalBytes := 100;
CurrentFileDoneBytes := Int64(-Size) - 1000;
CurrentFileDoneBytes := CurrentFileTotalBytes * (Int64(-Size) - 1000) div 100;
end;
end;
@ -297,7 +295,6 @@ begin
CurrentFileDoneBytes := 0;
UpdateStatistics(FStatistics);
FCurrentFileSize := Header.UnpSize;
end;
if (DoFileExists(Header, TargetFileName) = fsoofeOverwrite) then