ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/_old_/Helper_LevelDB.pas

Comparing oup/current/Helper_LevelDB.pas (file contents):
Revision 56 by alloc, Mon Dec 25 18:36:41 2006 UTC vs.
Revision 58 by alloc, Tue Dec 26 23:37:24 2006 UTC

#	Line 260 | Line 260 | begin
260		FilesHeader[i].FileSize := fileinfo.Size;
261		FilesHeader[i].FileType := fileinfo.FileType;
262
263	<	if ((i mod 25) = 0) and (i >= 100) then
264	<	lbl_estimation.Caption := 'Estimated finishing time: ' + TimeToStr(
265	<	(Time - begintime) / i * progress.Max + begintime);
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 );
266		progress.Position := i + 1;
267		lbl_progress.Caption := 'Files done: ' + IntToStr(i + 1) + '/' + IntToStr(progress.Max);
268		Application.ProcessMessages;
#	Line 530 | Line 530 | begin
530		Database.Commit(False);
531		Database.StartTransaction;
532		end;
533	<	if ((i mod 25) = 0) and (i >= 100) then
534	<	lbl_estimation.Caption := 'Estimated finishing time: ' + TimeToStr(
535	<	(Time - begintime) / i * progress.Max + begintime);
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 );
536		progress.Position := i;
537		lbl_progress.Caption := 'Files done: ' + IntToStr(i) + '/' + IntToStr(progress.Max);
538		Application.ProcessMessages;

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines (old)
>	Changed lines (new)