Changeset 85 for oup

Timestamp:

Jan 14, 2007, 3:23:22 PM (18 years ago)

Author:

alloc

Message:

 

Location:

oup/current

Files:

• Helper_LevelDB.pas (modified) (3 diffs)
• exe/OniUnPacker.exe (modified) ( previous)

oup/current/Helper_LevelDB.pas

@@ -101 +101 @@
   //
 
+  timeformat.ShortTimeFormat := 'hh:nn:ss';
   timeformat.LongTimeFormat := 'hh:nn:ss';
   timeformat.TimeSeparator := ':';
@@ -371 +372 @@
   end;
 
+  timeformat.LongTimeFormat := 'hh:nn:ss';
+  timeformat.ShortTimeFormat := 'hh:nn:ss';
+  timeformat.TimeSeparator := ':';
+
   Self.Visible := True;
   Form_Main.Visible := False;
@@ -548 +553 @@
     IntToStr(progress.Max);
 
-  timeformat.LongTimeFormat := 'hh:nn:ss';
-  timeformat.TimeSeparator := ':';
   lbl_estimation.Caption := 'FINISHED (duration: ' + TimeToStr(Time - absolutebegintime, timeformat) + ')';