--- oup/current/Settings.pas	2007/05/27 20:03:41	204
+++ oup/current/Settings.pas	2007/11/26 11:02:28	248
@@ -14,6 +14,7 @@ type
     check_reg_dat: TCheckBox;
     check_reg_oldb: TCheckBox;
     check_reg_opf: TCheckBox;
+    check_reg_oni: TCheckBox;
     procedure btn_cancelClick(Sender: TObject);
     procedure btn_okClick(Sender: TObject);
     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
@@ -117,6 +118,20 @@ begin
   end else
     RegisterExtension('.dat', 2, False);
 
+  if check_reg_oni.Checked then
+  begin
+    if ExtensionRegistered('.oni', temps) then
+    begin
+      if temps <> 'ONI.oni' then
+        if MessageBox(Self.Handle, PChar('.oni-files already registered to "' +
+              temps+'". Reregister?'), PChar('Reregister?'),
+              MB_YESNO + MB_ICONQUESTION) = ID_YES then
+          RegisterExtension('.oni', 2, True);
+    end else
+      RegisterExtension('.oni', 2, True);
+  end else
+    RegisterExtension('.oni', 2, False);
+
   if check_reg_oldb.Checked then
   begin
     if ExtensionRegistered('.oldb', temps) then
@@ -170,6 +185,11 @@ begin
   else
     check_reg_dat.Checked := False;
 
+  if ExtensionRegistered('.oni', temps) then
+    check_reg_dat.Checked := temps = 'ONI.oni'
+  else
+    check_reg_dat.Checked := False;
+
   if ExtensionRegistered('.oldb', temps) then
     check_reg_oldb.Checked := temps = 'ONI.oldb'
   else