Changeset 288 for trunk/UKeyBindings.pas

Timestamp:

Feb 26, 2021, 9:43:24 PM (4 years ago)

Author:

chronos

Message:

• Added: Supported more key bindings.
• Fixed: Wrong default binding for NoOrder (space key).
• Modified: Pushed trunk version to 1.3.0.
• Modified: Update readme.txt with information for development.

File:

• trunk/UKeyBindings.pas (modified) (3 diffs)

trunk/UKeyBindings.pas

@@ -45 +45 @@
   BStay: TKeyBinding;
   BNoOrders: TKeyBinding;
+  BTechTree: TKeyBinding;
+  BWait: TKeyBinding;
+  BJump: TKeyBinding;
 
 
@@ -82 +85 @@
   I: Integer;
   KeyBinding: TKeyBinding;
-  N: Integer;
 begin
   Lines := TStringList.Create;
@@ -138 +140 @@
   BCenterUnit := AddItem('CenterUnit', 'Center', 'C');
   BStay := AddItem('Stay', 'Stay', 'S');
-  BNoOrders := AddItem('NoOrders', 'No orders', ShortCut(VK_SPACE, []));
+  BNoOrders := AddItem('NoOrders', 'No orders', 'Space');
+  BTechTree := AddItem('TechTree', 'Tech tree', 'T');
+  BWait := AddItem('Wait', 'Wait', 'W');
+  BJump := AddItem('Jump', 'Jump 20 turns', 'Ctrl+J');
 end;