Changeset 88 for trunk/Forms/UFormOptions.pas

Timestamp:

Aug 29, 2017, 10:33:39 PM (7 years ago)

Author:

chronos

Message:

• Modified: Enabled DPI scaling.
• Modified: Moved ImageListMain to Core unit and introduced Core Init method.

File:

• trunk/Forms/UFormOptions.pas (modified) (2 diffs)

trunk/Forms/UFormOptions.pas

@@ -75 +75 @@
 procedure TOptionsForm.Load;
 begin
-  SpinEditDPIX.Value := Core.ScaleDPI.DPI.X;
-  SpinEditDPIY.Value := Core.ScaleDPI.DPI.Y;
-  CheckBoxDPIAuto.Checked := Core.ScaleDPI.AutoDetect;
+  SpinEditDPIX.Value := Core.ScaleDPI1.DPI.X;
+  SpinEditDPIY.Value := Core.ScaleDPI1.DPI.Y;
+  CheckBoxDPIAuto.Checked := Core.ScaleDPI1.AutoDetect;
   ComboBoxOptimizatipn.ItemIndex := Integer(Core.OptimizationLevel);
   SpinEditCellSize.Value := Core.CellSize;
@@ -86 +86 @@
 procedure TOptionsForm.Save;
 begin
-  Core.ScaleDPI.DPI := Point(SpinEditDPIX.Value, SpinEditDPIY.Value);
-  Core.ScaleDPI.AutoDetect := CheckBoxDPIAuto.Checked;
+  Core.ScaleDPI1.DPI := Point(SpinEditDPIX.Value, SpinEditDPIY.Value);
+  Core.ScaleDPI1.AutoDetect := CheckBoxDPIAuto.Checked;
   Core.OptimizationLevel := TCompilerOptimization(ComboBoxOptimizatipn.ItemIndex);
   Core.CellSize := SpinEditCellSize.Value;