Changeset 337 for trunk/LocalPlayer/Term.pas

Timestamp:

Apr 1, 2021, 9:30:25 AM (4 years ago)

Author:

chronos

Message:

• Fixed: Incorrect drawing of city names under units. MapOptions need to be global variable for all TIsoMap instances.

File:

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

trunk/LocalPlayer/Term.pas

@@ -1259 +1259 @@
 begin
   MiniMap.MapOptions := MapOptionChecked;
-  MainMap.MapOptions := MapOptionChecked;
+  MapOptions := MapOptionChecked;
   if ClientMode = cEditMap then
-    MainMap.MapOptions := MainMap.MapOptions + [moEditMode];
+    MapOptions := MapOptions + [moEditMode];
   if mLocCodes.Checked then
-    MainMap.MapOptions := MainMap.MapOptions + [moLocCodes];
+    MapOptions := MapOptions + [moLocCodes];
 end;
 
@@ -3521 +3521 @@
   Buffer := TBitmap.Create;
   Buffer.PixelFormat := pf24bit;
-  if 2 * lxmax > 3 * xSizeBig then
-    Buffer.width := 2 * lxmax
-  else
-    Buffer.width := 3 * xSizeBig;
-  if lymax > 3 * ySizeBig then
-    Buffer.height := lymax
-  else
-    Buffer.height := 3 * ySizeBig;
+  if 2 * lxmax > 3 * xSizeBig then Buffer.width := 2 * lxmax
+    else Buffer.width := 3 * xSizeBig;
+  if lymax > 3 * ySizeBig then Buffer.height := lymax
+    else Buffer.height := 3 * ySizeBig;
   Buffer.Canvas.Font.Assign(UniFont[ftSmall]);
   for i := 0 to nPl - 1 do
@@ -5071 +5067 @@
           // if MoveHintToLoc>=0 then
           // ShowMoveHint(MoveHintToLoc, true);
-        end
+        end;
       end
       else if TurnComplete and not supervising then
@@ -6391 +6387 @@
 begin
   MainMap.pDebugMap := p;
-  MainMap.MapOptions := MainMap.MapOptions - [moLocCodes];
+  MapOptions := MapOptions - [moLocCodes];
   mLocCodes.Checked := false;
   MapValid := false;