Changeset 261 for trunk/LocalPlayer/Term.pas

Timestamp:

Jun 11, 2020, 12:40:26 AM (4 years ago)

Author:

chronos

Message:

• Added: Partial support for key bindings configuration.

File:

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

trunk/LocalPlayer/Term.pas

@@ -481 +481 @@
   Directories, IsoEngine, CityScreen, Draft, MessgEx, Select, CityType, Help,
   UnitStat, Log, Diagram, NatStat, Wonders, Enhance, Nego, UPixelPointer, Sound,
-  Battle, Rates, TechTree, Registry, Global;
+  Battle, Rates, TechTree, Registry, Global, UKeyBindings;
 
 {$R *.lfm}
@@ -6453 +6453 @@
   dx, dy: integer;
   time0, time1: TDateTime;
-begin
+  ShortCut: TShortCut;
+begin
+  ShortCut := KeyToShortCut(Key, Shift);
+
   if GameMode = cMovie then
   begin
@@ -6493 +6496 @@
         'R':
           MenuClick(mRandomMap);
-      end
-    else if Shift = [] then
-      case char(Key) of
-        char(VK_F1):
-          MenuClick(mHelp);
       end;
-    exit;
-  end;
+    if ShortCut = BHelp.ShortCut then MenuClick(mHelp);
+    Exit;
+  end;
+
+  if ShortCut = BEndTurn.ShortCut then EndTurn
+  else if ShortCut = BHelp.ShortCut then MenuClick(mHelp)
+  else if ShortCut = BUnitStat.ShortCut then MenuClick_Check(StatPopup, mUnitStat)
+  else if ShortCut = BCityStat.ShortCut then MenuClick_Check(StatPopup, mCityStat)
+  else if ShortCut = BScienceStat.ShortCut then MenuClick_Check(StatPopup, mScienceStat)
+  else if ShortCut = BEUnitStat.ShortCut then MenuClick_Check(StatPopup, mEUnitStat)
+  else if ShortCut = BDiagram.ShortCut then MenuClick_Check(StatPopup, mDiagram)
+  else if ShortCut = BWonders.ShortCut then MenuClick_Check(StatPopup, mWonders)
+  else if ShortCut = BShips.ShortCut then MenuClick_Check(StatPopup, mShips)
+  else if ShortCut = BNations.ShortCut then MenuClick_Check(StatPopup, mNations)
+  else if ShortCut = BEmpire.ShortCut then MenuClick_Check(StatPopup, mEmpire);
 
   if Shift = [ssAlt] then
@@ -6547 +6558 @@
   else if Shift = [] then
     case char(Key) of
-      char(VK_F1):
-        MenuClick(mHelp);
-      char(VK_F2):
-        MenuClick_Check(StatPopup, mUnitStat);
-      char(VK_F3):
-        MenuClick_Check(StatPopup, mCityStat);
-      char(VK_F4):
-        MenuClick_Check(StatPopup, mScienceStat);
-      char(VK_F5):
-        MenuClick_Check(StatPopup, mEUnitStat);
-      char(VK_F6):
-        MenuClick_Check(StatPopup, mDiagram);
-      char(VK_F7):
-        MenuClick_Check(StatPopup, mWonders);
-      char(VK_F8):
-        MenuClick_Check(StatPopup, mShips);
-      char(VK_F9):
-        MenuClick_Check(StatPopup, mNations);
-      char(VK_F10):
-        MenuClick_Check(StatPopup, mEmpire);
-      char(VK_ADD):
-        EndTurn;
       '1':
         MapBtnClick(MapBtn0);