Changeset 617 for trunk/LocalPlayer

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.

Location:

trunk/LocalPlayer

Files:

• CityScreen.pas (modified) (2 diffs)
• Term.pas (modified) (2 diffs)

trunk/LocalPlayer/CityScreen.pas

@@ -1188 +1188 @@
         with MainScreen.MessgExDlg do
         begin
-          { MessgText:=Phrases.Lookup('OUTOFCONTROL');
-            if C.Project and cpImp=0 then
-            MessgText:=Format(MessgText,[Tribe[cOwner].ModelName[C.Project and cpIndex]])
-            else MessgText:=Format(MessgText,[Phrases.Lookup('IMPROVEMENTS',C.Project and cpIndex)]); }
+          { MessgText := Phrases.Lookup('OUTOFCONTROL');
+            if C.Project and cpImp = 0 then
+            MessgText := Format(MessgText, [Tribe[cOwner].ModelName[C.Project and cpIndex]])
+            else MessgText := Format(MessgText, [Phrases.Lookup('IMPROVEMENTS',
+              C.Project and cpIndex)]);
+          }
           MessgText := Phrases.Lookup('NOCHANGEINANARCHY');
           Kind := mkOk;
@@ -1201 +1203 @@
         begin
           ProdHint := False;
-          SmartUpdateContent
+          SmartUpdateContent;
         end;
         ChooseProject;

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)