Changeset 99 for trunk/Forms/UFormSettings.pas

Timestamp:

Dec 26, 2014, 3:04:52 PM (10 years ago)

Author:

chronos

Message:

• Modified: Enabled DPI settings for DEBUG build mode.

File:

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

trunk/Forms/UFormSettings.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  Spin;
+  Spin, ComCtrls;
 
 type
@@ -17 +17 @@
     ButtonCancel: TButton;
     CheckBox1: TCheckBox;
+    CheckBox2: TCheckBox;
     CheckBoxDevelMode: TCheckBox;
     ComboBoxLanguage: TComboBox;
@@ -22 +23 @@
     Label2: TLabel;
     Label3: TLabel;
+    Label4: TLabel;
+    Label5: TLabel;
+    PageControl1: TPageControl;
+    SpinEditX: TSpinEdit;
+    SpinEditY: TSpinEdit;
     SpinEditAnimSpeed: TSpinEdit;
+    TabSheetGeneral: TTabSheet;
+    TabSheetDebug: TTabSheet;
+    procedure CheckBox2Change(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FormShow(Sender: TObject);
   private
     { private declarations }
@@ -42 +53 @@
 { TFormSettings }
 
+procedure TFormSettings.CheckBox2Change(Sender: TObject);
+begin
+  SpinEditX.Enabled := not CheckBox2.Checked;
+  SpinEditY.Enabled := not CheckBox2.Checked;
+end;
+
+procedure TFormSettings.FormCreate(Sender: TObject);
+begin
+  PageControl1.TabIndex := 0;
+end;
+
+procedure TFormSettings.FormShow(Sender: TObject);
+begin
+
+end;
+
 procedure TFormSettings.Load;
 begin
@@ -49 +76 @@
   CheckBoxDevelMode.Checked := Core.DevelMode;
   SpinEditAnimSpeed.Value := Core.AnimationSpeed;
+  CheckBox2.Checked := Core.ScaleDPI1.AutoDetect;
+  SpinEditX.Value := Core.ScaleDPI1.DPI.X;
+  SpinEditY.Value := Core.ScaleDPI1.DPI.Y;
   {$IFDEF DEBUG}
-  CheckBoxDevelMode.Visible := True;
+  TabSheetDebug.Visible := True;
   {$ELSE}
-   CheckBoxDevelMode.Visible := False;
+  TabSheetDebug.Visible := False;
   {$ENDIF}
 end;
@@ -62 +92 @@
   Core.DevelMode := CheckBoxDevelMode.Checked;
   Core.AnimationSpeed := SpinEditAnimSpeed.Value;
+  Core.ScaleDPI1.AutoDetect := CheckBox2.Checked;
+  Core.ScaleDPI1.DPI := Point(SpinEditX.Value, SpinEditY.Value);
 end;