--- oup/current/Main.pas	2007/07/14 20:22:05	239
+++ oup/current/Main.pas	2009/06/04 12:03:57	330
@@ -217,7 +217,7 @@ begin
       begin
         ShowMessage('Load OPF-File: ' + ParamStr(2));
       end
-      else if (strings.Strings[0] = 'oldb') or (strings.Strings[0] = 'dat') then
+      else if (strings.Strings[0] = 'oldb') or (strings.Strings[0] = 'dat') or (strings.Strings[0] = 'oni') then
       begin
         CreateConnection(strings.Strings[1]);
       end;
@@ -253,6 +253,9 @@ begin
 
   ConManager.OnCoonnectionListChanged := UpdateConLists;
 
+  Application.HintPause := 250;
+  Application.HintHidePause := 5000;
+
   if FileExists(ExtractFilepath(Application.EXEname) + '\oniunpacker.ini') then
   begin
     AssignFile(AppSettingsFile, ExtractFilepath(Application.EXEname) +
@@ -277,7 +280,7 @@ begin
   begin
     ShowMessage('Load OPF-File: ' + ParamStr(2));
   end
-  else if (MidStr(ParamStr(1), 1, 4) = 'oldb') or (MidStr(ParamStr(1), 1, 3) = 'dat') then
+  else if (MidStr(ParamStr(1), 1, 4) = 'oldb') or (MidStr(ParamStr(1), 1, 3) = 'dat') or (MidStr(ParamStr(1), 1, 3) = 'oni') then
   begin
     CreateConnection(ParamStr(2));
   end;
@@ -505,7 +508,6 @@ begin
       entry.Name := 'menu_conn_' + IntToStr(i);
       entry.OnClick := menu_conns_itemClick;
       menu_conns.Add(entry);
-      entry := nil;
     end;
   end;
 end;
@@ -516,9 +518,9 @@ var
   i: Integer;
 begin
   opend.InitialDir := AppSettings.DatPath;
-  opend.Filter     := 'Compatible level files|*.dat;*.oldb|Oni level (*.dat)|*.dat|OUP level database (*.oldb)|*.oldb|Any (*.*)|*';
+  opend.Filter     := 'Compatible level files|*.dat;*.oni;*.oldb|Oni level (*.dat)|*.dat|OniSplit Archive (*.oni)|*.oni|OUP level database (*.oldb)|*.oldb|Any (*.*)|*';
   if typedb then
-    opend.FilterIndex := 3
+    opend.FilterIndex := 4
   else
     opend.FilterIndex := 2;
   if opend.Execute then
@@ -821,3 +823,4 @@ begin
 end;
 
 end.
+