Changeset 362 for trunk/LocalPlayer/UnitStat.pas

Timestamp:

Apr 12, 2021, 10:18:18 AM (4 years ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/LocalPlayer/UnitStat.pas (modified) (14 diffs)

trunk/LocalPlayer/UnitStat.pas

@@ -150 +150 @@
         dec(ecixShow);
       assert(ecixShow >= 0);
-    end
+    end;
   end;
   case Kind of
@@ -296 +296 @@
       result := (PPicture.HGr = PTestPicture.HGr) and
         (PPicture.pix = PTestPicture.pix) and
-        (ModelHash(mox^) = ModelHash(MyRO.EnemyModel[emix]))
+        (ModelHash(mox^) = ModelHash(MyRO.EnemyModel[emix]));
     end
     else
       result := (MyRO.EnemyModel[emix].owner = mox.owner) and
-        (MyRO.EnemyModel[emix].mix = mox.mix)
+        (MyRO.EnemyModel[emix].mix = mox.mix);
   end;
 
@@ -435 +435 @@
       begin
         case i of
-          0:
-            j := imWalls;
-          1:
-            j := imCoastalFort;
-          2:
-            j := imMissileBat;
-          3:
-            j := imBunker
+          0: j := imWalls;
+          1: j := imCoastalFort;
+          2: j := imMissileBat;
+          3: j := imBunker
         end;
         Frame(offscreen.Canvas, x - 1, yImp - 1, x + xSizeSmall,
@@ -450 +446 @@
           SmallImp.Canvas, j mod 7 * xSizeSmall,
           (j + SystemIconLines * 7) div 7 * ySizeSmall);
-        inc(x, xSizeSmall + 4)
+        inc(x, xSizeSmall + 4);
       end;
   end;
@@ -467 +463 @@
             if IsToCount(MyRO.EnemyUn[MyRO.nEnemyUn + uix].emix) then
               inc(Available);
-        end
+        end;
       end
     else // no supervisor -- can only count stack top units
@@ -510 +506 @@
     begin
       MakeUnitInfo(me, MyUn[uixShow], ui);
-      MakeModelInfo(me, MyUn[uixShow].mix, MyModel[MyUn[uixShow].mix], mi)
+      MakeModelInfo(me, MyUn[uixShow].mix, MyModel[MyUn[uixShow].mix], mi);
     end
     else
@@ -516 +512 @@
       mi := mox^;
       if Kind in [dkEnemyUnit, dkEnemyCityDefense] then
-        ui := MyRO.EnemyUn[euixShow]
+        ui := MyRO.EnemyUn[euixShow];
     end;
 
@@ -539 +535 @@
           begin
             x := 1 + 2 * (xxt * 2 + 1);
-            y := 1 + yyt + 2 * (yyt * 3 + 1)
+            y := 1 + yyt + 2 * (yyt * 3 + 1);
           end
           else
           begin
             x := integer(MyMap[Loc] and fTerrain) * (xxt * 2 + 1) + 1;
-            y := 1 + yyt
+            y := 1 + yyt;
           end;
           for j := -1 to 1 do
@@ -592 +588 @@
               (ClientWidth - BiColorTextWidth(offscreen.Canvas, s)) div 2,
               yView + 80, s);
-          end
+          end;
         end
       else
@@ -673 +669 @@
           ConscriptsBtn.ButtonIndex := 29;
           ConscriptsBtn.Hint := Phrases.Lookup('BTN_ALLOWCONSCRIPTS');
-        end
+        end;
       end
       else if Kind = dkEnemyModel then
@@ -683 +679 @@
           NumberBar(offscreen, xTotal, yTotal + StatDown,
             Phrases.Lookup('UNITKNOWN'), Available, MainTexture);
-      end
+      end;
     end;
   end;
@@ -703 +699 @@
 procedure TUnitStatDlg.ModelBoxChange(Sender: TObject);
 begin
-  SmartUpdateContent
+  SmartUpdateContent;
 end;
 
@@ -718 +714 @@
     SwitchBtn.ButtonIndex := 11;
     SwitchBtn.Hint := Phrases.Lookup('BTN_NONOBSOLETE');
-  end
+  end;
 end;
 
@@ -733 +729 @@
     ConscriptsBtn.ButtonIndex := 29;
     ConscriptsBtn.Hint := Phrases.Lookup('BTN_ALLOWCONSCRIPTS');
-  end
+  end;
 end;
 
 procedure TUnitStatDlg.HelpBtnClick(Sender: TObject);
 begin
-  HelpDlg.ShowNewContent(wmPersistent, hkModel, 0)
+  HelpDlg.ShowNewContent(wmPersistent, hkModel, 0);
 end;