Changeset 615 for trunk/LocalPlayer/Term.pas

Timestamp:

Sep 14, 2024, 6:20:50 PM (6 days ago)

Author:

chronos

Message:

• Added: Allow to scroll map with Ctrl+arrows/num keys.

File:

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

trunk/LocalPlayer/Term.pas

@@ -13 +13 @@
   Protocol, Tribes, PVSB, ClientTools, ScreenTools, BaseWin, Messg, ButtonBase,
   LCLIntf, LCLType, Menus, SysUtils, Classes, DrawDlg, Types, Math,
-  DateUtils, Platform, ButtonB, ButtonC, EOTButton, Area,
+  DateUtils, Platform, ButtonB, ButtonC, EOTButton, Area, Help,
   GraphicSet, MiniMap, IsoEngine, Wonders, TechTree, Enhance, Nego, CityType,
   Diagram, CityScreen, Rates, Battle, NatStat, UnitStat, Draft, Select, MessgEx,
-  Help,
   {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.Menus, Dpi.ExtCtrls,
   Dpi.PixelPointer, Dpi.Common, System.UITypes{$ELSE}
@@ -244 +243 @@
       Shift: TShiftState; X, Y: Integer);
     procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure mDisbandOrUtilizeClick(Sender: TObject);
     procedure FormResize(Sender: TObject);
@@ -270 +270 @@
     procedure mNamesClick(Sender: TObject);
     procedure MapBtnClick(Sender: TObject);
-    procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure CreateUnitClick(Sender: TObject);
     procedure mSoundOffClick(Sender: TObject);
@@ -7120 +7119 @@
   end;
 
+  procedure DoMoveMap(X, Y: Integer);
+  var
+    ScrollSpeed: Integer;
+  begin
+    if mScrollFast.Checked then ScrollSpeed := 2
+      else ScrollSpeed := 1;
+    if (X <> 0) or (Y <> 0) then begin
+      Scroll(X * ScrollSpeed, Y * ScrollSpeed);
+    end;
+  end;
+
 var
   Time0, Time1: TDateTime;
@@ -7241 +7251 @@
       InitPopup(TerrainPopup);
       if mEnhance.Visible and mEnhance.Enabled then mEnhance.Click
-        else mEnhanceDef.Click
+        else mEnhanceDef.Click;
     end
     else if BGoOn.Test(ShortCut) then MenuClick_Check(UnitPopup, mGoOn)
@@ -7267 +7277 @@
     else if BRecover.Test(ShortCut) then MenuClick_Check(UnitPopup, mRecover)
     else if BUtilize.Test(ShortCut) then MenuClick_Check(UnitPopup, mUtilize)
-    else if BMoveLeftDown.Test(ShortCut) then DoMoveUnit(-1, 1)
-    else if BMoveDown.Test(ShortCut) then DoMoveUnit(0, 2)
-    else if BMoveRightDown.Test(ShortCut) then DoMoveUnit(1, 1)
-    else if BMoveLeft.Test(ShortCut) then DoMoveUnit(-2, 0)
-    else if BMoveRight.Test(ShortCut) then DoMoveUnit(2, 0)
-    else if BMoveLeftUp.Test(ShortCut) then DoMoveUnit(-1, -1)
-    else if BMoveUp.Test(ShortCut) then  DoMoveUnit(0, -2)
-    else if BMoveRightUp.Test(ShortCut) then DoMoveUnit(1, -1);
+    // Unit move
+    else if BUnitMoveLeftDown.Test(ShortCut) then DoMoveUnit(-1, 1)
+    else if BUnitMoveDown.Test(ShortCut) then DoMoveUnit(0, 2)
+    else if BUnitMoveRightDown.Test(ShortCut) then DoMoveUnit(1, 1)
+    else if BUnitMoveLeft.Test(ShortCut) then DoMoveUnit(-2, 0)
+    else if BUnitMoveRight.Test(ShortCut) then DoMoveUnit(2, 0)
+    else if BUnitMoveLeftUp.Test(ShortCut) then DoMoveUnit(-1, -1)
+    else if BUnitMoveUp.Test(ShortCut) then  DoMoveUnit(0, -2)
+    else if BUnitMoveRightUp.Test(ShortCut) then DoMoveUnit(1, -1)
+    // Map move
+    else if BMapMoveLeftDown.Test(ShortCut) then DoMoveMap(-1, 1)
+    else if BMapMoveDown.Test(ShortCut) then DoMoveMap(0, 2)
+    else if BMapMoveRightDown.Test(ShortCut) then DoMoveMap(1, 1)
+    else if BMapMoveLeft.Test(ShortCut) then DoMoveMap(-2, 0)
+    else if BMapMoveRight.Test(ShortCut) then DoMoveMap(2, 0)
+    else if BMapMoveLeftUp.Test(ShortCut) then DoMoveMap(-1, -1)
+    else if BMapMoveUp.Test(ShortCut) then DoMoveMap(0, -2)
+    else if BMapMoveRightUp.Test(ShortCut) then DoMoveMap(1, -1);
   end;
 end;