Changeset 87 for trunk/Forms/FormMain.pas

Timestamp:

Jun 7, 2024, 12:59:18 PM (3 months ago)

Author:

chronos

Message:

• Added: Use also numeric keyboard for movement.
• Modified: Moved Settings menu under Tools menu.

File:

• trunk/Forms/FormMain.pas (modified) (1 diff)

trunk/Forms/FormMain.pas

@@ -96 +96 @@
   KeyRight = 39;
   KeyDown = 40;
+  KeyNumPadLeft = 100;
+  KeyNumPadUp = 104;
+  KeyNumPadRight = 102;
+  KeyNumPadDown = 98;
 begin
   if Core.Core.Game.Running then begin
     case Key of
-      KeyLeft: AddToMoveBuffer(drLeft);
-      KeyUp: AddToMoveBuffer(drUp);
-      KeyRight: AddToMoveBuffer(drRight);
-      KeyDown: AddToMoveBuffer(drDown);
+      KeyLeft, KeyNumPadLeft: AddToMoveBuffer(drLeft);
+      KeyUp, KeyNumPadUp: AddToMoveBuffer(drUp);
+      KeyRight, KeyNumPadRight: AddToMoveBuffer(drRight);
+      KeyDown, KeyNumPadDown: AddToMoveBuffer(drDown);
     end;
     //ProcessMoveBuffer;