262 |
|
|
263 |
|
if ((i mod 10) = 0) and (i >= 100) then |
264 |
|
lbl_estimation.Caption := 'Estimated time left: ' + TimeToStr( |
265 |
< |
(Time - begintime) / i * (progress.Max - i + 1) * 1.1 ); |
265 |
> |
(Time - begintime) / i * (progress.Max - i + 1) * 1.1, timeformat ); |
266 |
|
progress.Position := i + 1; |
267 |
|
lbl_progress.Caption := 'Files done: ' + IntToStr(i + 1) + '/' + IntToStr(progress.Max); |
268 |
|
Application.ProcessMessages; |
532 |
|
end; |
533 |
|
if ((i mod 10) = 0) and (i >= 100) then |
534 |
|
lbl_estimation.Caption := 'Estimated time left: ' + TimeToStr( |
535 |
< |
(Time - begintime) / i * (progress.Max - i + 1) * 1.1 ); |
535 |
> |
(Time - begintime) / i * (progress.Max - i + 1) * 1.1, timeformat ); |
536 |
|
progress.Position := i; |
537 |
|
lbl_progress.Caption := 'Files done: ' + IntToStr(i) + '/' + IntToStr(progress.Max); |
538 |
|
Application.ProcessMessages; |