| 6 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 7 | 
   | 
 type | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 8 | 
   | 
   TForm_Settings = class(TForm) | 
 
 
 
 
 
 
 
 
 
 | 9 | 
 – | 
     check_filesashex: TCheckBox; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 9 | 
   | 
     btn_ok:     TButton; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 10 | 
   | 
     btn_cancel: TButton; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 11 | 
   | 
     label_charset: TLabel; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 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( | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 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 |