Changeset 59 for trunk/UCore.pas

Timestamp:

Dec 3, 2014, 9:09:42 PM (10 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/UCore.pas (modified) (7 diffs)

trunk/UCore.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, UApplicationInfo, ULastOpenedList,
-  UCoolTranslator, UTarget, URegistry, Registry;
+  UCoolTranslator, UTarget, URegistry, Registry, XMLConf, Graphics, UScaleDPI;
 
 type
@@ -21 +21 @@
   private
   public
+    ScaleDPI: TScaleDPI;
     Modified: Boolean;
     ProjectFileName: string;
@@ -31 +32 @@
 var
   Core: TCore;
+
 
 implementation
@@ -44 +46 @@
 procedure TCore.DataModuleCreate(Sender: TObject);
 begin
+  ScaleDPI := TScaleDPI.Create;
   Targets := TTargetList.Create;
   Targets.Add(TTargetInterpretter.Create);
@@ -57 +60 @@
   SaveToRegistry(HKEY(ApplicationInfo.RegistryRoot), ApplicationInfo.RegistryKey);
   Targets.Free;
+  ScaleDPI.Free;
 end;
 
@@ -71 +75 @@
       CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(ReadStringWithDefault('LanguageCode', ''))
       else CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode('');
+    ScaleDPI.DPI := Point(ReadIntegerWithDefault('DPIX', 96),
+      ReadIntegerWithDefault('DPIY', 96));
+    ScaleDPI.AutoDetect := ReadBoolWithDefault('DPIAuto', True);
   finally
     Free;
@@ -87 +94 @@
     OpenKey(Key, True);
     WriteBool('OpenProjectOnStart', OpenProjectOnStart);
+    WriteBool('DPIAuto', ScaleDPI.AutoDetect);
+    WriteInteger('DPIX', ScaleDPI.DPI.X);
+    WriteInteger('DPIY', ScaleDPI.DPI.Y);
     if Assigned(CoolTranslator1.Language) and (CoolTranslator1.Language.Code <> '') then
       WriteString('LanguageCode', CoolTranslator1.Language.Code)