X-Git-Url: https://deadsoftware.ru/gitweb?p=d2df-editor.git;a=blobdiff_plain;f=src%2Feditor%2Ff_options.pas;h=1f297ec217b0a6f7ba490f50f63a858f876d053b;hp=926479ebc984fce733836e7dcf4efe914178050b;hb=797ba76501e5360f4d02d6aade613dc529a24213;hpb=a00a3d61ed426b67fed0fce818471fb84c462aac diff --git a/src/editor/f_options.pas b/src/editor/f_options.pas index 926479e..1f297ec 100644 --- a/src/editor/f_options.pas +++ b/src/editor/f_options.pas @@ -13,6 +13,7 @@ type TOptionsForm = class (TForm) bOK: TButton; bCancel: TButton; + cbCheckerboard: TCheckBox; ColorDialog: TColorDialog; GroupBox1: TGroupBox; // Общие настройки: @@ -115,6 +116,7 @@ begin eDotStepTwo.Text := IntToStr(DotStepTwo); sBackColor.Brush.Color := BackColor; sPreviewColor.Brush.Color := PreviewColor; + cbCheckerboard.Checked := UseCheckerboard; if Scale = 2 then cbScale.ItemIndex := 1 else @@ -184,6 +186,7 @@ begin DrawPanelSize := cbShowSize.Checked; BackColor := sBackColor.Brush.Color; PreviewColor := sPreviewColor.Brush.Color; + UseCheckerboard := cbCheckerboard.Checked; if cbScale.ItemIndex = 1 then Scale := 2 @@ -207,6 +210,7 @@ begin config.WriteBool('Editor', 'DrawPanelSize', DrawPanelSize); config.WriteInt('Editor', 'BackColor', BackColor); config.WriteInt('Editor', 'PreviewColor', PreviewColor); + config.WriteBool('Editor', 'UseCheckerboard', UseCheckerboard); config.WriteInt('Editor', 'Scale', cbScale.ItemIndex); config.WriteInt('Editor', 'RecentCount', re); config.WriteStr('Editor', 'Language', gLanguage);