Changeset 486 for trunk/LocalPlayer/IsoEngine.pas

Timestamp:

Dec 8, 2023, 8:25:31 PM (5 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/LocalPlayer/IsoEngine.pas (modified) (3 diffs)

trunk/LocalPlayer/IsoEngine.pas

@@ -193 +193 @@
 begin
   // prepare age 2+3 cities
-  for age := 2 to 3 do
-    for size := 0 to 3 do
+  for Age := 2 to 3 do
+    for Size := 0 to 3 do
       with Pictures[Age, Size] do
         FindPosition(HGrCities, Size * (xxt * 2 + 1), (Age - 2) * (yyt * 3 + 1),
@@ -738 +738 @@
 begin
   Age := GetAge(CityInfo.Owner);
-  if CityInfo.size < 5 then
+  if CityInfo.Size < 5 then
     xGr := 0
-  else if CityInfo.size < 9 then
+  else if CityInfo.Size < 9 then
     xGr := 1
-  else if CityInfo.size < 13 then
+  else if CityInfo.Size < 13 then
     xGr := 2
   else
@@ -793 +793 @@
       yShield := Y - 2 * yyt + cpic.yShield;
     end;
-    S := IntToStr(CityInfo.size);
+    S := IntToStr(CityInfo.Size);
     LabelLength := FOutput.Canvas.TextWidth(S);
     FillRect(xShield, yShield, LabelLength + 4, 16, $000000);