Changeset 294 for trunk/UClientGUI.pas

Timestamp:

Mar 29, 2019, 8:40:42 AM (6 years ago)

Author:

chronos

Message:

• Modified: Change terrain type ttCity to map cell building with special type stCity.

File:

• trunk/UClientGUI.pas (modified) (4 diffs)

trunk/UClientGUI.pas

@@ -70 +70 @@
 implementation
 
+uses
+  UBuilding;
+
 resourcestring
   SZeroZoomNotAlowed = 'Zero zoom not allowed';
@@ -179 +182 @@
       Pen.Width := 1;
     end else
-    if Cell.Terrain = ttCity then begin
+    if Assigned(Cell.Building) and (Cell.Building.Kind.SpecialType = stCity) then begin
       // Cannot set clear border as it will display shifted on gtk2
       //Pen.Style := psClear;
@@ -441 +444 @@
       for Cell in ControlPlayer.PlayerMap.Cells do begin
         if (Cell.MapCell.Terrain <> ttVoid) and View.IsCellVisible(Cell.MapCell) then begin
-          if Cell.MapCell.Terrain = ttCity then begin
+          if Assigned(Cell.MapCell.Building) and (Cell.MapCell.Building.Kind.SpecialType = stCity) then begin
             // Cannot set clear border as it will display shifted on gtk2
             //Pen.Style := psClear;
@@ -461 +464 @@
         if (MapCell.Terrain <> ttVoid) and View.IsCellVisible(MapCell) then begin
           if View.IsCellVisible(MapCell) and (MapCell.Terrain <> ttVoid) then begin
-            if MapCell.Terrain = ttCity then begin
+            if Assigned(MapCell.Building) and (MapCell.Building.Kind.SpecialType = stCity) then begin
               // Cannot set clear border as it will display shifted on gtk2
               //Pen.Style := psClear;