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

Comparing oup/current/Settings.pas (file contents):
Revision 112 by alloc, Thu Feb 22 00:37:39 2007 UTC vs.
Revision 248 by alloc, Mon Nov 26 11:02:28 2007 UTC

# Line 14 | Line 14 | type
14      check_reg_dat: TCheckBox;
15      check_reg_oldb: TCheckBox;
16      check_reg_opf: TCheckBox;
17 +    check_reg_oni: TCheckBox;
18      procedure btn_cancelClick(Sender: TObject);
19      procedure btn_okClick(Sender: TObject);
20      procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
# Line 39 | Line 40 | function ExtensionRegistered(ext: String
40   var
41    ftr: TFileTypeRegistration;
42   begin
43 +  Result := True;
44    ftr := TFileTypeRegistration.Create;
45    if (ftr <> nil) then
46    begin
# Line 60 | Line 62 | function TForm_Settings.RegisterExtensio
62   var
63    ftr:     TFileTypeRegistration;
64    temps:   String;
63 –  warnmsg: String;
65   begin
66    Result := -1;
67    ftr := TFileTypeRegistration.Create;
# Line 117 | Line 118 | begin
118    end else
119      RegisterExtension('.dat', 2, False);
120  
121 +  if check_reg_oni.Checked then
122 +  begin
123 +    if ExtensionRegistered('.oni', temps) then
124 +    begin
125 +      if temps <> 'ONI.oni' then
126 +        if MessageBox(Self.Handle, PChar('.oni-files already registered to "' +
127 +              temps+'". Reregister?'), PChar('Reregister?'),
128 +              MB_YESNO + MB_ICONQUESTION) = ID_YES then
129 +          RegisterExtension('.oni', 2, True);
130 +    end else
131 +      RegisterExtension('.oni', 2, True);
132 +  end else
133 +    RegisterExtension('.oni', 2, False);
134 +
135    if check_reg_oldb.Checked then
136    begin
137      if ExtensionRegistered('.oldb', temps) then
# Line 170 | Line 185 | begin
185    else
186      check_reg_dat.Checked := False;
187  
188 +  if ExtensionRegistered('.oni', temps) then
189 +    check_reg_dat.Checked := temps = 'ONI.oni'
190 +  else
191 +    check_reg_dat.Checked := False;
192 +
193    if ExtensionRegistered('.oldb', temps) then
194      check_reg_oldb.Checked := temps = 'ONI.oldb'
195    else

Diff Legend

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