--- oup/rewrite/Settings.pas 2007/01/18 17:15:59 93 +++ oup/current/Settings.pas 2007/05/27 20:03:41 204 @@ -6,7 +6,6 @@ uses type TForm_Settings = class(TForm) - check_filesashex: TCheckBox; btn_ok: TButton; btn_cancel: TButton; label_charset: TLabel; @@ -40,6 +39,7 @@ function ExtensionRegistered(ext: String var ftr: TFileTypeRegistration; begin + Result := True; ftr := TFileTypeRegistration.Create; if (ftr <> nil) then begin @@ -61,7 +61,6 @@ function TForm_Settings.RegisterExtensio var ftr: TFileTypeRegistration; temps: String; - warnmsg: String; begin Result := -1; ftr := TFileTypeRegistration.Create; @@ -97,7 +96,6 @@ procedure TForm_Settings.btn_okClick(Sen var temps: String; begin - AppSettings.FilenumbersAsHex := check_filesashex.Checked; AppSettings.CharSet := StrToInt( MidStr(combo_charset.Items.Strings[combo_charset.ItemIndex], Pos( ' ', combo_charset.Items.Strings[combo_charset.ItemIndex]) + 3, Length( @@ -182,7 +180,6 @@ begin else check_reg_opf.Checked := False; - check_filesashex.Checked := AppSettings.FilenumbersAsHex; check_hideunused.Checked := AppSettings.HideUnusedData; for i := 0 to combo_charset.Items.Count - 1 do