Changeset 212 for branches/highdpi/LocalPlayer/Term.pas

Timestamp:

May 9, 2020, 9:35:25 PM (5 years ago)

Author:

chronos

Message:

• Fixed: Better High DPI scaling on highdpi branch.

File:

• branches/highdpi/LocalPlayer/Term.pas (modified) (3 diffs)

branches/highdpi/LocalPlayer/Term.pas

@@ -532 +532 @@
   SmallScreen, GameOK, MapValid, skipped, idle: boolean;
 
-  SaveOption: array [0 .. nSaveOption - 1] of integer;
-  MiniColors: array [0 .. 11, 0 .. 1] of TColor;
+  SaveOption: array [0..nSaveOption - 1] of integer;
+  MiniColors: array [0..fTerrain, 0..1] of TColor;
   MainMap: TIsoMap;
   CurrentMoveInfo: record AfterMovePaintRadius, AfterAttackExpeller: integer;
@@ -4077 +4077 @@
   MiniPixel := PixelPointer(Mini);
   PrevMiniPixel := PixelPointer(Mini);
-  for y := 0 to G.ly - 1 do
-  begin
-    for x := 0 to G.lx - 1 do
-      if MyMap[x + G.lx * y] and fTerrain <> fUNKNOWN then
-      begin
-        Loc := x + G.lx * y;
+  for y := 0 to ScaleToVcl(G.ly) - 1 do
+  begin
+    for x := 0 to ScaleToVcl(G.lx) - 1 do
+      if MyMap[ScaleFromVcl(x) + G.lx * ScaleFromVcl(y)] and fTerrain <> fUNKNOWN then
+      begin
+        Loc := ScaleFromVcl(x) + G.lx * ScaleFromVcl(y);
         for i := 0 to 1 do
         begin
-          xm := ((x - xwMini) * 2 + i + y and 1 - hw + G.lx * 5) mod (G.lx * 2);
+          xm := ((x - ScaleToVcl(xwMini)) * 2 + i + y and 1 - ScaleToVcl(hw) +
+            ScaleToVcl(G.lx) * 5) mod (ScaleToVcl(G.lx) * 2);
           MiniPixel.SetXY(xm, y);
           cm := MiniColors[MyMap[Loc] and fTerrain, i];
@@ -5079 +5080 @@
         dx := 0;
         dy := 0;
-        if Mouse.CursorPos.y < DpiScreen.height - PanelHeight then
-          if Mouse.CursorPos.x = 0 then
+        if DpiMouse.CursorPos.y < DpiScreen.height - PanelHeight then
+          if DpiMouse.CursorPos.x = 0 then
             dx := -speed // scroll left
-          else if Mouse.CursorPos.x = DpiScreen.width - 1 then
+          else if DpiMouse.CursorPos.x = DpiScreen.width - 1 then
             dx := speed; // scroll right
-        if Mouse.CursorPos.y = 0 then
+        if DpiMouse.CursorPos.y = 0 then
           dy := -speed // scroll up
-        else if (Mouse.CursorPos.y = DpiScreen.height - 1) and
-          (Mouse.CursorPos.x >= TerrainBtn.Left + TerrainBtn.width) and
-          (Mouse.CursorPos.x < xRightPanel + 10 - 8) then
+        else if (DpiMouse.CursorPos.y = DpiScreen.height - 1) and
+          (DpiMouse.CursorPos.x >= TerrainBtn.Left + TerrainBtn.width) and
+          (DpiMouse.CursorPos.x < xRightPanel + 10 - 8) then
           dy := speed; // scroll down
         if (dx <> 0) or (dy <> 0) then