ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/Settings.pas

Comparing oup/current/Settings.pas (file contents):
Revision 247 by alloc, Sun May 27 20:03:41 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 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)