Changeset 107 for trunk/UCore.pas

Timestamp:

Feb 17, 2016, 1:17:21 PM (8 years ago)

Author:

chronos

Message:

• Added: Form constraintes which are also scaled for High DPI.

File:

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

trunk/UCore.pas

@@ -59 +59 @@
     procedure SaveConfig;
     procedure CommandLineParams;
+    procedure ScaleDPI;
   public
     Game: TGame;
@@ -196 +197 @@
 end;
 
+procedure TCore.ScaleDPI;
+var
+  I: Integer;
+begin
+  {$ifdef DEBUG}
+  with Core.ScaleDPI1 do begin
+    //DesignDPI := Point(144, 144);
+    if (DesignDPI.X <> DPI.X) or (DesignDPI.Y <> DPI.Y) then begin
+      //ApplyToAll(DesignDPI);
+      FormNew.Show;
+      FormNew.Hide;
+      for I := 0 to Screen.FormCount - 1 do begin
+        StoreDimensions(Screen.Forms[I], StoredDimension);
+        ScaleDimensions(Screen.Forms[I], StoredDimension);
+      end;
+      ScaleImageList(Core.ImageListSmall, DesignDPI);
+      ScaleImageList(Core.ImageListLarge, DesignDPI);
+    end;
+  end;
+  {$endif}
+end;
+
 procedure TCore.UpdateActions;
 begin
@@ -351 +374 @@
 
   CommandLineParams;
-
-  {$IFDEF DEBUG}
-  {with Core.ScaleDPI1 do
-  if (DesignDPI.X <> DPI.X) or (DesignDPI.Y <> DPI.Y) then begin
-    //ApplyToAll(DesignDPI);
-    FormNew.Show;
-    FormNew.Hide;
-    for I := 0 to Screen.FormCount - 1 do begin
-      StoreDimensions(Screen.Forms[I], StoredDimension);
-      ScaleDimensions(Screen.Forms[I], StoredDimension);
-    end;
-    ScaleImageList(Core.ImageListSmall, DesignDPI);
-    ScaleImageList(Core.ImageListLarge, DesignDPI);
-  end;
-  }
-  {$ENDIF}
+  ScaleDPI;
 
   if Game.FileName = '' then begin