Changeset 91 for trunk/UCore.pas

Timestamp:

Dec 4, 2014, 10:18:13 PM (10 years ago)

Author:

chronos

Message:

• Added: Partial support for high DPI screens. Disabled.

File:

• trunk/UCore.pas (modified) (7 diffs)

trunk/UCore.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, XMLConf, FileUtil, ActnList, Controls, Dialogs, Forms,
-  UGame, UApplicationInfo, UPersistentForm, UCoolTranslator;
+  UGame, UApplicationInfo, UPersistentForm, UScaleDPI, UCoolTranslator;
 
 type
@@ -31 +31 @@
     PersistentForm: TPersistentForm;
     SaveDialog1: TSaveDialog;
+    ScaleDPI1: TScaleDPI;
     XMLConfig1: TXMLConfig;
     procedure AAboutExecute(Sender: TObject);
@@ -46 +47 @@
   private
     FInitialized: Boolean;
+    StoredDimension: TControlDimension;
     procedure DoOnMove(CellFrom, CellTo: TCell; var CountOnce,
       CountRepeat: Integer; Update: Boolean; var Confirm: Boolean);
@@ -157 +159 @@
   AutoSaveEnabled := XMLConfig1.GetValue('AutoSave', True);
   CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(XMLConfig1.GetValue('Language', ''));
+  ScaleDPI1.DPI := Point(XMLConfig1.GetValue('DPIX', 96), XMLConfig1.GetValue('DPIY', 96));
+  ScaleDPI1.AutoDetect := XMLConfig1.GetValue('DPIAuto', True);
 end;
 
@@ -166 +170 @@
   XMLConfig1.SetValue('AnimationSpeed', AnimationSpeed);
   XMLConfig1.SetValue('AutoSave', AutoSaveEnabled);
+  XMLConfig1.SetValue('DPIX', ScaleDPI1.DPI.X);
+  XMLConfig1.SetValue('DPIY', ScaleDPI1.DPI.Y);
+  XMLConfig1.SetValue('DPIAuto', ScaleDPI1.AutoDetect);
 end;
 
@@ -291 +298 @@
   Game.OnWin := DoOnWin;
   Game.OnNewTurn := GameNewTurnExecute;
+  StoredDimension := TControlDimension.Create;
 end;
 
 procedure TCore.DataModuleDestroy(Sender: TObject);
 begin
+  StoredDimension.Free;;
   Game.SaveConfig(XMLConfig1, 'Game');
   SaveConfig;
@@ -314 +323 @@
   Game.Running := True;
   FormMain.AZoomAll.Execute;
+  {with Core.ScaleDPI1 do begin
+    //ApplyToAll(DesignDPI);
+    FormNew.Show;
+    for I := 0 to Screen.FormCount - 1 do begin
+      StoreDimensions(Screen.Forms[I], StoredDimension);
+      ScaleDimensions(Screen.Forms[I], StoredDimension);
+    end;
+    FormNew.Hide;
+    ScaleImageList(Core.ImageListSmall, DesignDPI);
+    ScaleImageList(Core.ImageListLarge, DesignDPI);
+  end;}
 end;