Changeset 617 for trunk/LocalPlayer/Term.pas

Timestamp:

Sep 15, 2024, 1:31:30 PM (2 months ago)

Author:

chronos

Message:

• Fixed: City screen rename right mouse click didn't work on Windows due to window title are. Change to behave the same way as on Linux.
• Fixed: Allow full screen switching in editor and movie mode.
• Modified: Precalculate scaling coefficients also for from native values conversions for faster speed.

File:

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

trunk/LocalPlayer/Term.pas

@@ -7092 +7092 @@
   ShortCut := KeyToShortCut(Key, Shift);
 
+  if BFullScreen.Test(ShortCut) then begin
+    FullScreen := not FullScreen;
+    SetFullScreen(FullScreen);
+  end;
+
   if GameMode = cMovie then begin
     if BScienceStat.Test(ShortCut) then MenuClick_Check(StatPopup, mScienceStat)
@@ -7107 +7112 @@
     else if BFillMap.Test(ShortCut) then mFillMap.Click
     else if BHelp.Test(ShortCut) then mHelp.Click;
-    (*if Shift = [ssCtrl] then
-      case Char(Key) of
-         'A':
-          begin // auto symmetry
-          Server($7F0,Me,0,nil^);
-          MapValid:=False;
-          PaintAll;
-          end;
-          'B':
-          begin // land mass
-          dy:=0;
-          for dx:=G.lx to G.lx*(G.ly-1)-1 do
-          if MyMap[dx] and fTerrain>=fGrass then Inc(dy);
-          dy:=dy
-          end;
-      end;
-    *)
     Exit;
   end;
 
   if BEndTurn.Test(ShortCut) then EndTurn
-  else if BFullScreen.Test(ShortCut) then begin
-    FullScreen := not FullScreen;
-    SetFullScreen(FullScreen);
-  end
   else if BHelp.Test(ShortCut) then mHelp.Click
   else if BUnitStat.Test(ShortCut) then MenuClick_Check(StatPopup, mUnitStat)