ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/Settings.pas

Comparing oup/current/Settings.pas (file contents):
Revision 109 by alloc, Wed Feb 21 03:12:33 2007 UTC vs.
Revision 204 by alloc, Sun May 27 20:03:41 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 40 | Line 39 | function ExtensionRegistered(ext: String
39		var
40		ftr: TFileTypeRegistration;
41		begin
42	+	Result := True;
43		ftr := TFileTypeRegistration.Create;
44		if (ftr <> nil) then
45		begin
#	Line 61 | Line 61 | function TForm_Settings.RegisterExtensio
61		var
62		ftr:     TFileTypeRegistration;
63		temps:   String;
64	–	warnmsg: String;
64		begin
65		Result := -1;
66		ftr := TFileTypeRegistration.Create;
#	Line 97 | Line 96 | procedure TForm_Settings.btn_okClick(Sen
96		var
97		temps: String;
98		begin
100	–	AppSettings.FilenumbersAsHex := check_filesashex.Checked;
99		AppSettings.CharSet := StrToInt(
100		MidStr(combo_charset.Items.Strings[combo_charset.ItemIndex], Pos(
101		' ', combo_charset.Items.Strings[combo_charset.ItemIndex]) + 3, Length(
#	Line 182 | Line 180 | begin
180		else
181		check_reg_opf.Checked := False;
182
185	–	check_filesashex.Checked := AppSettings.FilenumbersAsHex;
183		check_hideunused.Checked := AppSettings.HideUnusedData;
184
185		for i := 0 to combo_charset.Items.Count - 1 do

Diff Legend

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