ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/_old_/Settings.pas
(Generate patch)

Comparing oup/current/Settings.pas (file contents):
Revision 53 by alloc, Sat Dec 23 23:36:07 2006 UTC vs.
Revision 56 by alloc, Mon Dec 25 18:36:41 2006 UTC

# Line 21 | Line 21 | type
21      procedure btn_okClick(Sender: TObject);
22      procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
23      procedure FormShow(Sender: TObject);
24 <    function RegisterExtension(ext: String; reg: Boolean): Integer;
24 >    function RegisterExtension(ext: String; iconindex: Integer; reg: Boolean): Integer;
25    private
26    public
27    end;
# Line 61 | Line 61 | end;
61  
62  
63  
64 < function TForm_Settings.RegisterExtension(ext: String; reg: Boolean): Integer;
64 > function TForm_Settings.RegisterExtension(ext: String; iconindex: Integer; reg: Boolean): Integer;
65   var
66    ftr:     TFileTypeRegistration;
67    temps:   String;
# Line 74 | Line 74 | begin
74      if ExtensionRegistered(ext, temps) then
75        if not ftr.UnregisterExtension(ext) then
76          ShowMessage('Could not unregister ' + ext + '-files');
77 <    if ftr.RegisterType(ext, 'ONI' + ext, 'ONI ' + ext + '-file', Application.EXEname + ',1') then
77 >    if ftr.RegisterType(ext, 'ONI' + ext, 'ONI ' + ext + '-file', Application.EXEname, iconindex) then
78      begin
79        ftr.AddHandler('open', '"' + Application.EXEname + '" ' + MidStr(
80          ext, 2, Length(ext) - 1) + ' "%1"');
# Line 119 | Line 119 | begin
119          if MessageBox(Self.Handle, PChar('.dat-files already registered to "' +
120                temps+'". Reregister?'), PChar('Reregister?'),
121                MB_YESNO + MB_ICONQUESTION) = ID_YES then
122 <          RegisterExtension('.dat', True);
122 >          RegisterExtension('.dat', 2, True);
123      end else
124 <      RegisterExtension('.dat', True);
124 >      RegisterExtension('.dat', 2, True);
125    end else
126 <    RegisterExtension('.dat', False);
126 >    RegisterExtension('.dat', 2, False);
127  
128    if check_reg_oldb.Checked then
129    begin
# Line 133 | Line 133 | begin
133          if MessageBox(Self.Handle, PChar('.oldb-files already registered to "' +
134                temps+'". Reregister?'), PChar('Reregister?'),
135                MB_YESNO + MB_ICONQUESTION) = ID_YES then
136 <          RegisterExtension('.oldb', True);
136 >          RegisterExtension('.oldb', 1, True);
137      end else
138 <      RegisterExtension('.oldb', True);
138 >      RegisterExtension('.oldb', 1, True);
139    end else
140 <    RegisterExtension('.oldb', False);
140 >    RegisterExtension('.oldb', 1, False);
141  
142    if check_reg_opf.Checked then
143    begin
# Line 147 | Line 147 | begin
147          if MessageBox(Self.Handle, PChar('.opf-files already registered to "' +
148                temps+'". Reregister?'), PChar('Reregister?'),
149                MB_YESNO + MB_ICONQUESTION) = ID_YES then
150 <          RegisterExtension('.opf', True);
150 >          RegisterExtension('.opf', 0, True);
151      end else
152 <      RegisterExtension('.opf', True);
152 >      RegisterExtension('.opf', 0, True);
153    end else
154 <    RegisterExtension('.opf', False);
154 >    RegisterExtension('.opf', 0, False);
155  
156    Self.Close;
157   end;

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)