Changeset 193 for branches/highdpi/LocalPlayer/TechTree.pas

Timestamp:

May 7, 2020, 7:05:57 PM (5 years ago)

Author:

chronos

Message:

• Modified: Improved code in HighDPI branch.

File:

• branches/highdpi/LocalPlayer/TechTree.pas (modified) (1 diff)

branches/highdpi/LocalPlayer/TechTree.pas

@@ -183 +183 @@
 
   // fit window to image, center image in window, center window to screen
-  width := min(Screen.width - 40, Image.width + LeftBorder + RightBorder + 2 *
+  width := min(DpiScreen.width - 40, Image.width + LeftBorder + RightBorder + 2 *
     BlackBorder);
-  height := min(Screen.height - 40, Image.height + TopBorder + BottomBorder + 2
+  height := min(DpiScreen.height - 40, Image.height + TopBorder + BottomBorder + 2
     * BlackBorder);
-  Left := (Screen.width - width) div 2;
-  Top := (Screen.height - height) div 2;
+  Left := (DpiScreen.width - width) div 2;
+  Top := (DpiScreen.height - height) div 2;
   CloseBtn.Left := width - CloseBtn.width - BlackBorder - 8;
   CloseBtn.Top := BlackBorder + 8;