Changeset 56

Timestamp:

Dec 25, 2006, 7:36:41 PM (18 years ago)

Author:

alloc

Message:

 

Location:

oup/current

Files:

• Code/OniDataClass.pas (modified) (1 diff)
• ExtraIcos.res (added)
• Helper_LevelDB.pas (modified) (5 diffs)
• OniUnPacker.bdsproj (modified) (1 diff)
• OniUnPacker.dpr (modified) (1 diff)
• Settings.pas (modified) (6 diffs)
• exe/OniUnPacker.exe (modified) ( previous)

oup/current/Code/OniDataClass.pas

@@ -412 +412 @@
   end;
   SetLength(Result, list.Count);
-  fields := TStringList.Create;
-  if sort in [stIDAsc, stNameAsc, stExtAsc] then
-    for i := 0 to list.Count - 1 do
-    begin
-      getfields;
-      Result[i] := id + '-' + name + '.' + extension;
-    end
-  else
-    for i := list.Count - 1 downto 0 do
-    begin
-      getfields;
-      Result[list.Count - i - 1] := id + '-' + name + '.' + extension;
-    end;
+  if Length(Result) > 0 then
+  begin
+    fields := TStringList.Create;
+    if sort in [stIDAsc, stNameAsc, stExtAsc] then
+      for i := 0 to list.Count - 1 do
+      begin
+        getfields;
+        Result[i] := id + '-' + name + '.' + extension;
+      end
+    else
+      for i := list.Count - 1 downto 0 do
+      begin
+        getfields;
+        Result[list.Count - i - 1] := id + '-' + name + '.' + extension;
+      end;
+    fields.Free;
+  end;
   list.Free;
-  fields.Free;
 end;
 

oup/current/Helper_LevelDB.pas

@@ -78 +78 @@
   OniImage: TOniImage;
   levelid:  LongWord;
+  timeformat: TFormatSettings;
 const
   steps: Byte = 3;
@@ -99 +100 @@
   // FILE EXISTS CHECK FÜR DAT/RAW/SEP!!!
   //
+
+  timeformat.LongTimeFormat := 'hh:nn:ss';
+  timeformat.TimeSeparator := ':';
 
   if not CreateDataConnection(Source, ODB_ADB) then
@@ -295 +299 @@
   lbl_progress.Caption   := 'Files done: ' + IntToStr(progress.Max) + '/' +
     IntToStr(progress.Max);
-  lbl_estimation.Caption := 'FINISHED (duration: ' + TimeToStr(Time - absolutebegintime) + ')';
+  lbl_estimation.Caption := 'FINISHED (duration: ' + TimeToStr(Time - absolutebegintime, timeformat) + ')';
 
   DoStep('FIN');
@@ -339 +343 @@
   extlist:  TExtensionsMap;
   fileinfo: TFileInfo;
+  timeformat: TFormatSettings;
 const
   steps: Byte = 4;
@@ -542 +547 @@
   lbl_progress.Caption   := 'Files done: ' + IntToStr(progress.Max) + '/' +
     IntToStr(progress.Max);
-  lbl_estimation.Caption := 'FINISHED (duration: ' + TimeToStr(Time - absolutebegintime) + ')';
+
+  timeformat.LongTimeFormat := 'hh:nn:ss';
+  timeformat.TimeSeparator := ':';
+  lbl_estimation.Caption := 'FINISHED (duration: ' + TimeToStr(Time - absolutebegintime, timeformat) + ')';
 
   DoStep('FIN');

oup/current/OniUnPacker.bdsproj

@@ -176 +176 @@
                         <Language Name="ProjectLang">$00000000</Language>
                         <Language Name="RootDir"></Language>
-                </Language>  
-    <Excluded_Packages>
+                </Language>  <Excluded_Packages>
       <Excluded_Packages Name="d:\programme\borland\bds\3.0\Bin\dbwebxprt.bpl">Borland Web Wizard Package</Excluded_Packages>
     </Excluded_Packages>

oup/current/OniUnPacker.dpr

@@ -22 +22 @@
 
 {$R *.res}
+{$R ExtraIcos.res}
 
 begin

oup/current/Settings.pas

@@ -22 +22 @@
     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
     procedure FormShow(Sender: TObject);
-    function RegisterExtension(ext: String; reg: Boolean): Integer;
+    function RegisterExtension(ext: String; iconindex: Integer; reg: Boolean): Integer;
   private
   public
@@ -62 +62 @@
 
 
-function TForm_Settings.RegisterExtension(ext: String; reg: Boolean): Integer;
+function TForm_Settings.RegisterExtension(ext: String; iconindex: Integer; reg: Boolean): Integer;
 var
   ftr:     TFileTypeRegistration;
@@ -75 +75 @@
       if not ftr.UnregisterExtension(ext) then
         ShowMessage('Could not unregister ' + ext + '-files');
-    if ftr.RegisterType(ext, 'ONI' + ext, 'ONI ' + ext + '-file', Application.EXEname + ',1') then
+    if ftr.RegisterType(ext, 'ONI' + ext, 'ONI ' + ext + '-file', Application.EXEname, iconindex) then
     begin
       ftr.AddHandler('open', '"' + Application.EXEname + '" ' + MidStr(
@@ -120 +120 @@
               temps+'". Reregister?'), PChar('Reregister?'),
               MB_YESNO + MB_ICONQUESTION) = ID_YES then
-          RegisterExtension('.dat', True);
+          RegisterExtension('.dat', 2, True);
     end else
-      RegisterExtension('.dat', True);
+      RegisterExtension('.dat', 2, True);
   end else
-    RegisterExtension('.dat', False);
+    RegisterExtension('.dat', 2, False);
 
   if check_reg_oldb.Checked then
@@ -134 +134 @@
               temps+'". Reregister?'), PChar('Reregister?'),
               MB_YESNO + MB_ICONQUESTION) = ID_YES then
-          RegisterExtension('.oldb', True);
+          RegisterExtension('.oldb', 1, True);
     end else
-      RegisterExtension('.oldb', True);
+      RegisterExtension('.oldb', 1, True);
   end else
-    RegisterExtension('.oldb', False);
+    RegisterExtension('.oldb', 1, False);
 
   if check_reg_opf.Checked then
@@ -148 +148 @@
               temps+'". Reregister?'), PChar('Reregister?'),
               MB_YESNO + MB_ICONQUESTION) = ID_YES then
-          RegisterExtension('.opf', True);
+          RegisterExtension('.opf', 0, True);
     end else
-      RegisterExtension('.opf', True);
+      RegisterExtension('.opf', 0, True);
   end else
-    RegisterExtension('.opf', False);
+    RegisterExtension('.opf', 0, False);
 
   Self.Close;