--- oup/current/Helper_LevelDB.pas	2006/12/18 23:35:30	43
+++ oup/current/Helper_LevelDB.pas	2006/12/25 18:36:41	56
@@ -30,8 +30,8 @@ implementation
 
 {$R *.dfm}
 
-uses ABSMain, ABSDecUtil, Main, Code_Functions, Data,
-  Code_OniImgClass, Code_DataStructures, Code_OniDataClass;
+uses ABSMain, ABSDecUtil, Main, Functions, Data,
+  OniImgClass, DataStructures, OniDataClass;
 
 type
   THandler = procedure(fileid: LongWord; dir_dat2db: Boolean);
@@ -77,6 +77,7 @@ var
   datlinks: TDatLinks;
   OniImage: TOniImage;
   levelid:  LongWord;
+  timeformat: TFormatSettings;
 const
   steps: Byte = 3;
 
@@ -99,6 +100,9 @@ begin
   // FILE EXISTS CHECK FÜR DAT/RAW/SEP!!!
   //
 
+  timeformat.LongTimeFormat := 'hh:nn:ss';
+  timeformat.TimeSeparator := ':';
+
   if not CreateDataConnection(Source, ODB_ADB) then
   begin
     ShowMessage('Could not connect to .oldb-file');
@@ -160,7 +164,7 @@ begin
     for j := 0 to 3 do
       temps[j + 1] := ExtensionsHeader[i].Extension[3 - j];
     ExtensionsHeader[i].ExtCount :=
-      Length(OniDataConnection.GetFilesList(temps, '', False));
+      Length(OniDataConnection.GetFilesList(temps, '', False, stIDAsc));
     progress.Position    := i + 1;
     lbl_progress.Caption := 'Extensions done: ' + IntToStr(i + 1) + '/' +
       IntToStr(Length(extlist));
@@ -294,7 +298,7 @@ begin
   progress.Position      := progress.Max;
   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');
   btn_abortok.Caption := '&OK';
@@ -338,6 +342,7 @@ var
   rawlist:  TRawList;
   extlist:  TExtensionsMap;
   fileinfo: TFileInfo;
+  timeformat: TFormatSettings;
 const
   steps: Byte = 4;
 
@@ -541,7 +546,10 @@ begin
   progress.Position      := progress.Max;
   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');
   btn_abortok.Caption := '&OK';