ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/releases/0.33a/Settings.pas

Comparing:
oup/current/Settings.pas (file contents), Revision 53 by alloc, Sat Dec 23 23:36:07 2006 UTC vs.
oup/releases/0.33a/Settings.pas (file contents), Revision 76 by alloc, Thu Jan 11 23:38:49 2007 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)