index 1f297ec217b0a6f7ba490f50f63a858f876d053b..8a77b180abf987c647abd3e97d36d7b7b9ae0c2c 100644 (file)
--- a/src/editor/f_options.pas
+++ b/src/editor/f_options.pas
ExtCtrls, ComCtrls, Registry;
type
+
+ { TOptionsForm }
+
TOptionsForm = class (TForm)
bOK: TButton;
bCancel: TButton;
cbCheckerboard: TCheckBox;
+ cbCompress: TCheckBox;
+ cbBackup: TCheckBox;
ColorDialog: TColorDialog;
GroupBox1: TGroupBox;
// Общие настройки:
implementation
uses
- f_main, StdConvs, CONFIG, g_language;
+ f_main, StdConvs, CONFIG, g_language, g_resources;
{$R *.lfm}
sBackColor.Brush.Color := BackColor;
sPreviewColor.Brush.Color := PreviewColor;
cbCheckerboard.Checked := UseCheckerboard;
+ cbCompress.Checked := Compress;
+ cbBackup.Checked := Backup;
if Scale = 2 then
cbScale.ItemIndex := 1
else
BackColor := sBackColor.Brush.Color;
PreviewColor := sPreviewColor.Brush.Color;
UseCheckerboard := cbCheckerboard.Checked;
+ Compress := cbCompress.Checked;
+ Backup := cbBackup.Checked;
if cbScale.ItemIndex = 1 then
Scale := 2
config.WriteInt('Editor', 'Scale', cbScale.ItemIndex);
config.WriteInt('Editor', 'RecentCount', re);
config.WriteStr('Editor', 'Language', gLanguage);
+ config.WriteBool('Editor', 'Compress', Compress);
+ config.WriteBool('Editor', 'Backup', Backup);
if RecentCount <> re then
begin