Changeset 59 for trunk/Forms/UFormOptions.pas

Timestamp:

Dec 3, 2014, 9:09:42 PM (9 years ago)

Author:

chronos

Message:

• Added: Support for high DPI screens. If not detected automatically correctly then user can specify desired values.
• Updated: Common package to newer version.

File:

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

trunk/Forms/UFormOptions.pas

@@ -1 +1 @@
 unit UFormOptions;
 
-{$mode objfpc}{$H+}
+{$mode delphi}{$H+}
 
 interface
@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  Spin, ComCtrls, UTargetInterpretter;
+  Spin, UTargetInterpretter;
 
 type
@@ -17 +17 @@
     ButtonCancel: TButton;
     CheckBox1: TCheckBox;
+    CheckBoxDPIAuto: TCheckBox;
     ComboBoxLanguage: TComboBox;
     Label1: TLabel;
     Label2: TLabel;
     Label3: TLabel;
+    LabelDPI: TLabel;
+    LabelX: TLabel;
+    SpinEditDPIX: TSpinEdit;
+    SpinEditDPIY: TSpinEdit;
     SpinEditCellSize: TSpinEdit;
     SpinEditMemorySize: TSpinEdit;
     procedure ButtonOkClick(Sender: TObject);
+    procedure CheckBoxDPIAutoChange(Sender: TObject);
     procedure FormShow(Sender: TObject);
   private
     { private declarations }
   public
+    procedure UpdateInterface;
+    procedure Load;
+    procedure Save;
     procedure LoadFromInterpretter(Interpretter: TTargetInterpretter);
     procedure SaveToInterpretter(Interpretter: TTargetInterpretter);
@@ -52 +61 @@
 end;
 
+procedure TOptionsForm.UpdateInterface;
+begin
+  SpinEditDPIX.Enabled := not CheckBoxDPIAuto.Checked;
+  SpinEditDPIY.Enabled := not CheckBoxDPIAuto.Checked;
+  LabelDPI.Enabled := not CheckBoxDPIAuto.Checked;
+  LabelX.Enabled := not CheckBoxDPIAuto.Checked;
+  if CheckBoxDPIAuto.Checked then begin
+    SpinEditDPIX.Value := ScreenInfo.PixelsPerInchX;
+    SpinEditDPIY.Value := ScreenInfo.PixelsPerInchY;
+  end;
+end;
+
+procedure TOptionsForm.Load;
+begin
+  SpinEditDPIX.Value := Core.ScaleDPI.DPI.X;
+  SpinEditDPIY.Value := Core.ScaleDPI.DPI.Y;
+  CheckBoxDPIAuto.Checked := Core.ScaleDPI.AutoDetect;
+  UpdateInterface;
+end;
+
+procedure TOptionsForm.Save;
+begin
+  Core.ScaleDPI.DPI.X := SpinEditDPIX.Value;
+  Core.ScaleDPI.DPI.Y := SpinEditDPIY.Value;
+  Core.ScaleDPI.AutoDetect := CheckBoxDPIAuto.Checked;
+end;
+
 procedure TOptionsForm.ButtonOkClick(Sender: TObject);
 begin
@@ -57 +93 @@
     Core.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
   Core.OpenProjectOnStart := CheckBox1.Checked;
+end;
+
+procedure TOptionsForm.CheckBoxDPIAutoChange(Sender: TObject);
+begin
+  UpdateInterface;
 end;