Changeset 193 for branches/highdpi/LocalPlayer/Term.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/Term.pas (modified) (5 diffs)

branches/highdpi/LocalPlayer/Term.pas

@@ -2503 +2503 @@
           SetMainTextureByAge(-1);
         Tribes.Init;
-        HelpDlg.UserLeft := (Screen.width - HelpDlg.width) div 2;
-        HelpDlg.UserTop := (Screen.height - HelpDlg.height) div 2;
+        HelpDlg.UserLeft := (DpiScreen.width - HelpDlg.width) div 2;
+        HelpDlg.UserTop := (DpiScreen.height - HelpDlg.height) div 2;
         HelpDlg.Difficulty := 0;
         if Command = cStartCredits then
@@ -2566 +2566 @@
         ListDlg.UserLeft := 8;
         ListDlg.UserTop := TopBarHeight + 8;
-        HelpDlg.UserLeft := Screen.width - HelpDlg.width - 8;
+        HelpDlg.UserLeft := DpiScreen.width - HelpDlg.width - 8;
         HelpDlg.UserTop := TopBarHeight + 8;
         UnitStatDlg.UserLeft := 397;
         UnitStatDlg.UserTop := TopBarHeight + 64;
-        DiaDlg.UserLeft := (Screen.width - DiaDlg.width) div 2;
-        DiaDlg.UserTop := (Screen.height - DiaDlg.height) div 2;
-        NatStatDlg.UserLeft := Screen.width - NatStatDlg.width - 8;
-        NatStatDlg.UserTop := Screen.height - PanelHeight -
+        DiaDlg.UserLeft := (DpiScreen.width - DiaDlg.width) div 2;
+        DiaDlg.UserTop := (DpiScreen.height - DiaDlg.height) div 2;
+        NatStatDlg.UserLeft := DpiScreen.width - NatStatDlg.width - 8;
+        NatStatDlg.UserTop := DpiScreen.height - PanelHeight -
           NatStatDlg.height - 8;
         if NatStatDlg.UserTop < 8 then
@@ -3908 +3908 @@
       UnitStatDlg.Close;
   end;
-  for i := 0 to Screen.FormCount - 1 do
+  for i := 0 to DpiScreen.FormCount - 1 do
     if DpiScreen.Forms[i].Visible and (DpiScreen.Forms[i] is TBufferedDrawDlg) then
       DpiScreen.Forms[i].Enabled := false;
@@ -5102 +5102 @@
         dx := 0;
         dy := 0;
-        if Mouse.CursorPos.y < Screen.height - PanelHeight then
+        if Mouse.CursorPos.y < DpiScreen.height - PanelHeight then
           if Mouse.CursorPos.x = 0 then
             dx := -speed // scroll left
-          else if Mouse.CursorPos.x = Screen.width - 1 then
+          else if Mouse.CursorPos.x = DpiScreen.width - 1 then
             dx := speed; // scroll right
         if Mouse.CursorPos.y = 0 then
           dy := -speed // scroll up
-        else if (Mouse.CursorPos.y = Screen.height - 1) and
+        else if (Mouse.CursorPos.y = DpiScreen.height - 1) and
           (Mouse.CursorPos.x >= TerrainBtn.Left + TerrainBtn.width) and
           (Mouse.CursorPos.x < xRightPanel + 10 - 8) then
@@ -5469 +5469 @@
       if BattleDlg.Left < 0 then
         BattleDlg.Left := 0
-      else if BattleDlg.Left + BattleDlg.width > Screen.width then
-        BattleDlg.Left := Screen.width - BattleDlg.width;
+      else if BattleDlg.Left + BattleDlg.width > DpiScreen.width then
+        BattleDlg.Left := DpiScreen.width - BattleDlg.width;
       BattleDlg.Top := y - BattleDlg.height div 2;
       if BattleDlg.Top < 0 then
         BattleDlg.Top := 0
-      else if BattleDlg.Top + BattleDlg.height > Screen.height then
-        BattleDlg.Top := Screen.height - BattleDlg.height;
+      else if BattleDlg.Top + BattleDlg.height > DpiScreen.height then
+        BattleDlg.Top := DpiScreen.height - BattleDlg.height;
       BattleDlg.IsSuicideQuery := false;
       BattleDlg.Show;