Changeset 193 for branches/highdpi/LocalPlayer/MessgEx.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/MessgEx.pas (modified) (1 diff)

branches/highdpi/LocalPlayer/MessgEx.pas

@@ -177 +177 @@
     0:
       begin
-        Left := (Screen.Width - ClientWidth) div 2;
-        Top := (Screen.Height - ClientHeight) div 2 - MapCenterUp;
+        Left := (DpiScreen.Width - ClientWidth) div 2;
+        Top := (DpiScreen.Height - ClientHeight) div 2 - MapCenterUp;
       end;
     1:
       begin
-        Left := (Screen.Width - ClientWidth) div 4;
-        Top := (Screen.Height - ClientHeight) * 2 div 3 - MapCenterUp;
+        Left := (DpiScreen.Width - ClientWidth) div 4;
+        Top := (DpiScreen.Height - ClientHeight) * 2 div 3 - MapCenterUp;
       end;
     -1:
       begin
-        Left := (Screen.Width - ClientWidth) div 4;
-        Top := (Screen.Height - ClientHeight) div 3 - MapCenterUp;
+        Left := (DpiScreen.Width - ClientWidth) div 4;
+        Top := (DpiScreen.Height - ClientHeight) div 3 - MapCenterUp;
       end;
   end;