Changeset 619 for trunk/LocalPlayer/Term.pas

Timestamp:

Sep 15, 2024, 2:22:57 PM (2 months ago)

Author:

chronos

Message:

• Modified: Map scrolling with mouse on window borders instead of screen borders to support mouse scrolling in windowed mode and on multiple monitors.

File:

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

trunk/LocalPlayer/Term.pas

@@ -5553 +5553 @@
 var
   dx, dy, ScrollSpeed: Integer;
+  MousePos: TPoint;
+const
+  ScrollWidth = 5;
 begin
   if Idle and (Me >= 0) and (GameMode <> cMovie) then
@@ -5576 +5579 @@
         dx := 0;
         dy := 0;
-        if Mouse.CursorPos.Y < Screen.Height - PanelHeight then
-          if Mouse.CursorPos.X = 0 then
+        MousePos := ScreenToClient(Mouse.CursorPos);
+        if MousePos.Y < Height - PanelHeight then
+          if MousePos.X <= ScrollWidth then
             dx := -ScrollSpeed // scroll left
-          else if Mouse.CursorPos.X >= Screen.Width - 1 then
+          else if MousePos.X >= Width - ScrollWidth - 1 then
             dx := ScrollSpeed; // scroll right
-        if Mouse.CursorPos.Y = 0 then
+        if MousePos.Y <= ScrollWidth then
           dy := -ScrollSpeed // scroll up
-        else if (Mouse.CursorPos.Y >= Screen.Height - 1) and
-          (Mouse.CursorPos.X >= TerrainBtn.Left + TerrainBtn.Width) and
-          (Mouse.CursorPos.X < xRightPanel + 10 - 8) then
+        else if (MousePos.Y >= Height - ScrollWidth - 1) and
+          (MousePos.X >= TerrainBtn.Left + TerrainBtn.Width) and
+          (MousePos.X < xRightPanel + 10 - 8) then
           dy := ScrollSpeed; // scroll down
         if (dx <> 0) or (dy <> 0) then