FIX: Test archive operation progress

This commit is contained in:
Alexander Koblov 2023-10-08 01:24:47 +03:00
commit dc49a59a9c

View file

@ -142,15 +142,15 @@ begin
begin
RemainingTime :=
EstimateRemainingTime(FStatisticsAtStartTime.DoneBytes,
DoneBytes,
TotalBytes,
Abs(DoneBytes),
Abs(TotalBytes),
StartTime,
SysUtils.Now,
BytesPerSecond);
// Update overall progress.
if TotalBytes <> 0 then
UpdateProgress(DoneBytes/TotalBytes);
UpdateProgress(Abs(DoneBytes / TotalBytes));
end;
end;