Changeset 485

Timestamp:

Dec 8, 2023, 12:28:23 PM (11 months ago)

Author:

chronos

Message:

• Fixed: Map scrolling with mouse to right and bottom sides in high DPI.

File:

• trunk/LocalPlayer/Term.pas (modified) (3 diffs)

trunk/LocalPlayer/Term.pas

@@ -4742 +4742 @@
       MainMap.SetPaintBounds(0, 0, UsedOffscreenWidth, UsedOffscreenHeight);
     MapValid := False;
-    OffscreenUser := self;
+    OffscreenUser := Self;
   end;
 
@@ -5644 +5644 @@
           EOT.SetButtonIndexFast(eotBlinkOn);
       end;
-    end
-    else
-    begin
+    end else begin
       if Application.Active and not mScrollOff.Checked then
       begin
@@ -5653 +5651 @@
         dx := 0;
         dy := 0;
-        if Mouse.CursorPos.Y < Screen.height - PanelHeight then
+        if Mouse.CursorPos.Y < Screen.Height - PanelHeight then
           if Mouse.CursorPos.X = 0 then
             dx := -ScrollSpeed // scroll left
-          else if Mouse.CursorPos.X = Screen.width - 1 then
+          else if Mouse.CursorPos.X >= Screen.Width - 1 then
             dx := ScrollSpeed; // scroll right
         if Mouse.CursorPos.Y = 0 then
           dy := -ScrollSpeed // scroll up
-        else if (Mouse.CursorPos.Y = Screen.height - 1) and
-          (Mouse.CursorPos.X >= TerrainBtn.Left + TerrainBtn.width) and
+        else if (Mouse.CursorPos.Y >= Screen.Height - 1) and
+          (Mouse.CursorPos.X >= TerrainBtn.Left + TerrainBtn.Width) and
           (Mouse.CursorPos.X < xRightPanel + 10 - 8) then
           dy := ScrollSpeed; // scroll down