Changeset 87 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk/Forms

Files:

• FormMain.lfm (modified) (3 diffs)
• FormMain.pas (modified) (1 diff)

trunk/Forms/FormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
-  Left = 684
-  Height = 521
-  Top = 307
-  Width = 580
+  Left = 534
+  Height = 993
+  Top = 223
+  Width = 1491
   Caption = '2048'
   DesignTimePPI = 144
@@ -28 +28 @@
         Action = Core.AUndo
       end
-      object MenuItem1: TMenuItem
-        Action = Core.ASettings
-      end
       object MenuItemExit: TMenuItem
         Action = Core.AExit
@@ -45 +42 @@
     object MenuItemTools: TMenuItem
       Caption = 'Tools'
+      object MenuItem1: TMenuItem
+        Action = Core.ASettings
+      end
       object MenuItem4: TMenuItem
         Action = Core.AComputer

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;