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 109 by alloc, Wed Feb 21 03:12:33 2007 UTC vs.
Revision 248 by alloc, Mon Nov 26 11:02:28 2007 UTC

# Line 6 | Line 6 | uses
6  
7   type
8    TForm_Settings = class(TForm)
9 –    check_filesashex: TCheckBox;
9      btn_ok:     TButton;
10      btn_cancel: TButton;
11      label_charset: TLabel;
# Line 15 | 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 40 | 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 61 | Line 62 | function TForm_Settings.RegisterExtensio
62   var
63    ftr:     TFileTypeRegistration;
64    temps:   String;
64 –  warnmsg: String;
65   begin
66    Result := -1;
67    ftr := TFileTypeRegistration.Create;
# Line 97 | Line 97 | procedure TForm_Settings.btn_okClick(Sen
97   var
98    temps: String;
99   begin
100 –  AppSettings.FilenumbersAsHex := check_filesashex.Checked;
100    AppSettings.CharSet := StrToInt(
101      MidStr(combo_charset.Items.Strings[combo_charset.ItemIndex], Pos(
102      ' ', combo_charset.Items.Strings[combo_charset.ItemIndex]) + 3, Length(
# Line 119 | 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 172 | 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
# Line 182 | Line 200 | begin
200    else
201      check_reg_opf.Checked := False;
202  
185 –  check_filesashex.Checked := AppSettings.FilenumbersAsHex;
203    check_hideunused.Checked := AppSettings.HideUnusedData;
204  
205    for i := 0 to combo_charset.Items.Count - 1 do

Diff Legend

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