Changeset 288 for trunk/LocalPlayer/Term.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/LocalPlayer/Term.pas (modified) (9 diffs)

trunk/LocalPlayer/Term.pas

@@ -283 +283 @@
     procedure OnEOT(var Msg: TMessage); message WM_EOT;
     procedure SoundPreload(Check: integer);
+    procedure UpdateKeyShortcuts;
   public
     UsedOffscreenWidth, UsedOffscreenHeight: integer;
@@ -3404 +3405 @@
   i, j: integer;
 begin
+  UpdateKeyShortcuts;
+
   MainFormKeyDown := FormKeyDown;
   BaseWin.CreateOffscreen(Offscreen);
@@ -3617 +3620 @@
   CanClose := Closable;
   if not Closable and idle and (me = 0) and (ClientMode < scContact) then
-    MenuClick(mResign)
+    MenuClick(mResign);
 end;
 
@@ -3630 +3633 @@
 procedure TMainScreen.OnEOT(var Msg: TMessage);
 begin
-  EndTurn
+  EndTurn;
 end;
 
@@ -3638 +3641 @@
   begin
     MessgExDlg.CancelMovie;
-    Server(sBreak, me, 0, nil^)
+    Server(sBreak, me, 0, nil^);
   end
   else if ClientMode < 0 then
@@ -3647 +3650 @@
   begin
     Jump[pTurn] := 0;
-    StartRunning := false
+    StartRunning := false;
   end
   else
-    EndTurn
+    EndTurn;
 end;
 
@@ -6440 +6443 @@
 end;
 
+procedure TMainScreen.UpdateKeyShortcuts;
+begin
+  mHelp.ShortCut := BHelp.ShortCut;
+  mUnitStat.ShortCut := BUnitStat.ShortCut;
+  mCityStat.ShortCut := BCityStat.ShortCut;
+  mScienceStat.ShortCut := BScienceStat.ShortCut;
+  mEUnitStat.ShortCut := BEUnitStat.ShortCut;;
+  mDiagram.ShortCut := BDiagram.ShortCut;
+  mWonders.ShortCut := BWonders.ShortCut;
+  mShips.ShortCut := BShips.ShortCut;
+  mNations.ShortCut := BNations.ShortCut;
+  mEmpire.ShortCut := BEmpire.ShortCut;
+  mResign.ShortCut := BResign.ShortCut;
+  mRandomMap.ShortCut := BRandomMap.ShortCut;
+  mDisband.ShortCut := BDisbandUnit.ShortCut;
+  mFort.ShortCut := BFortify.ShortCut;
+  mCentre.ShortCut := BCenterUnit.ShortCut;
+  mStay.ShortCut := BStay.ShortCut;
+  mNoOrders.ShortCut := BNoOrders.ShortCut;
+  mTechTree.ShortCut := BTechTree.ShortCut;
+  mWait.ShortCut := BWait.ShortCut;
+  mJump.ShortCut := BJump.ShortCut;;
+end;
+
 procedure TMainScreen.FormKeyDown(Sender: TObject; var Key: word;
   Shift: TShiftState);
@@ -6513 +6540 @@
     end
   end else if Shift = [ssCtrl] then begin
+    if ShortCut = BJump.ShortCut then MenuClick(mJump);
     case char(Key) of
-      'J': MenuClick(mJump);
       'K': mShowClick(mDebugMap);
       'L': mShowClick(mLocCodes);
@@ -6542 +6569 @@
       '4': MapBtnClick(MapBtn5);
       '5': MapBtnClick(MapBtn6);
-      'T': MenuClick(mTechTree);
-      'W': MenuClick(mWait);
     end;
+    if ShortCut = BTechTree.ShortCut then MenuClick(mTechTree)
+    else if ShortCut = BWait.ShortCut then MenuClick(mWait);
   end;