Changeset 99 for trunk/UCore.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/UCore.pas (modified) (2 diffs)

trunk/UCore.pas

@@ -355 +355 @@
   CommandLineParams;
 
-  if Game.FileName = '' then begin
-    Game.New;
-    Player := Game.Players.GetFirstHuman;
-    Game.Running := True;
-    FormMain.AZoomAll.Execute;
-  end;
-  {with Core.ScaleDPI1 do begin
+  with Core.ScaleDPI1 do
+  if (DesignDPI.X <> DPI.X) or (DesignDPI.Y <> DPI.Y) then begin
     //ApplyToAll(DesignDPI);
     FormNew.Show;
@@ -371 +366 @@
     ScaleImageList(Core.ImageListSmall, DesignDPI);
     ScaleImageList(Core.ImageListLarge, DesignDPI);
-  end;}
+  end;
+
+  if Game.FileName = '' then begin
+    Game.New;
+    Player := Game.Players.GetFirstHuman;
+    Game.Running := True;
+    FormMain.AZoomAll.Execute;
+  end;
 end;