Changeset 58 for oup/current

Timestamp:

Dec 27, 2006, 12:37:24 AM (18 years ago)

Author:

alloc

Message:

 

Location:

oup/current

Files:

• Helper_LevelDB.pas (modified) (2 diffs)
• Tools/Template.dfm (modified) (1 diff)
• Tools/Template.pas (modified) (2 diffs)
• exe/OniUnPacker.exe (modified) ( previous)

oup/current/Helper_LevelDB.pas

@@ -261 +261 @@
     FilesHeader[i].FileType := fileinfo.FileType;
 
-    if ((i mod 25) = 0) and (i >= 100) then
-      lbl_estimation.Caption := 'Estimated finishing time: ' + TimeToStr(
-        (Time - begintime) / i * progress.Max + begintime);
+    if ((i mod 10) = 0) and (i >= 100) then
+      lbl_estimation.Caption := 'Estimated time left: ' + TimeToStr(
+        (Time - begintime) / i * (progress.Max - i + 1) * 1.1 );
     progress.Position := i + 1;
     lbl_progress.Caption := 'Files done: ' + IntToStr(i + 1) + '/' + IntToStr(progress.Max);
@@ -531 +531 @@
       Database.StartTransaction;
     end;
-    if ((i mod 25) = 0) and (i >= 100) then
-      lbl_estimation.Caption := 'Estimated finishing time: ' + TimeToStr(
-        (Time - begintime) / i * progress.Max + begintime);
+    if ((i mod 10) = 0) and (i >= 100) then
+      lbl_estimation.Caption := 'Estimated time left: ' + TimeToStr(
+        (Time - begintime) / i * (progress.Max - i + 1) * 1.1 );
     progress.Position := i;
     lbl_progress.Caption := 'Files done: ' + IntToStr(i) + '/' + IntToStr(progress.Max);

oup/current/Tools/Template.dfm

@@ -17 +17 @@
   Visible = True
   WindowState = wsMaximized
+  OnActivate = FormActivate
   OnClose = FormClose
   OnCreate = FormCreate

oup/current/Tools/Template.pas

@@ -55 +55 @@
     procedure filepopupPopup(Sender: TObject);
     procedure btn_sortClick(Sender: TObject);
+    procedure FormActivate(Sender: TObject);
   private
     FSortBy: TSortType;
@@ -365 +366 @@
 end;
 
+procedure TForm_ToolTemplate.FormActivate(Sender: TObject);
+begin
+  edit_filtername.SetFocus;
+end;
+
 procedure TForm_ToolTemplate.FormClose(Sender: TObject; var Action: TCloseAction);
 begin