--- oup/current/Settings.pas	2006/12/23 23:36:07	53
+++ oup/current/Settings.pas	2006/12/25 18:36:41	56
@@ -21,7 +21,7 @@ type
     procedure btn_okClick(Sender: TObject);
     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
   end;
@@ -61,7 +61,7 @@ end;
 
 
 
-function TForm_Settings.RegisterExtension(ext: String; reg: Boolean): Integer;
+function TForm_Settings.RegisterExtension(ext: String; iconindex: Integer; reg: Boolean): Integer;
 var
   ftr:     TFileTypeRegistration;
   temps:   String;
@@ -74,7 +74,7 @@ begin
     if ExtensionRegistered(ext, temps) then
       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(
         ext, 2, Length(ext) - 1) + ' "%1"');
@@ -119,11 +119,11 @@ begin
         if MessageBox(Self.Handle, PChar('.dat-files already registered to "' +
               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
   begin
@@ -133,11 +133,11 @@ begin
         if MessageBox(Self.Handle, PChar('.oldb-files already registered to "' +
               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
   begin
@@ -147,11 +147,11 @@ begin
         if MessageBox(Self.Handle, PChar('.opf-files already registered to "' +
               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;
 end;