Changeset 145 for trunk/Forms/UFormSettings.pas

Timestamp:

Nov 12, 2017, 1:47:20 PM (6 years ago)

Author:

chronos

Message:

• Modified: Do not create settings form on application start but just if form is opened.
• Fixed: Removed various compilation warnings.

File:

• trunk/Forms/UFormSettings.pas (modified) (4 diffs)

trunk/Forms/UFormSettings.pas

@@ -16 +16 @@
     ButtonOk: TButton;
     ButtonCancel: TButton;
-    CheckBox1: TCheckBox;
+    CheckBoxAutoSaveTurn: TCheckBox;
     CheckBox2: TCheckBox;
     CheckBoxDevelMode: TCheckBox;
@@ -62 +62 @@
 begin
   PageControl1.TabIndex := 0;
+  Core.CoolTranslator1.TranslateComponentRecursive(Self);
 end;
 
@@ -83 +84 @@
   SpinEditX.Value := Core.ScaleDPI1.DPI.X;
   SpinEditY.Value := Core.ScaleDPI1.DPI.Y;
+  CheckBoxAutoSaveTurn.Checked := Core.AutoSaveEnabled;
 end;
 
@@ -93 +95 @@
   Core.ScaleDPI1.AutoDetect := CheckBox2.Checked;
   Core.ScaleDPI1.DPI := Point(SpinEditX.Value, SpinEditY.Value);
+  Core.AutoSaveEnabled := CheckBoxAutoSaveTurn.Checked;
 end;