Changeset 531 for trunk/LocalPlayer/UnitStat.pas

Timestamp:

Mar 27, 2024, 12:31:14 PM (6 weeks ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

trunk/LocalPlayer/UnitStat.pas

@@ -293 +293 @@
   end;
 
-  procedure FeatureBar(dst: TBitmap; X, Y: Integer; const mi: TModelInfo;
+  procedure FeatureBar(Dst: TBitmap; X, Y: Integer; const mi: TModelInfo;
     T: TTexture);
   var
-    I, W, dx, num: Integer;
+    I, W, dx, Num: Integer;
     S: string;
   begin
-    DarkGradient(dst.Canvas, X - 6, Y + 1, 180, 1);
-    with dst.Canvas do
+    DarkGradient(Dst.Canvas, X - 6, Y + 1, 180, 1);
+    with Dst.Canvas do
       if mi.Kind >= $10 then
       begin
@@ -315 +315 @@
         for I := 3 to nFeature - 1 do
         begin
-          num := 0;
+          Num := 0;
           case I of
             mcSeaTrans:
               if mi.Domain = dSea then
-                num := mi.TTrans;
+                Num := mi.TTrans;
             mcCarrier:
               if mi.Domain = dSea then
-                num := mi.ATrans_Fuel;
+                Num := mi.ATrans_Fuel;
             mcBombs:
-              num := mi.Bombs;
+              Num := mi.Bombs;
             mcFuel:
               if mi.Domain = dAir then
-                num := mi.ATrans_Fuel;
+                Num := mi.ATrans_Fuel;
             mcAirTrans:
               if mi.Domain = dAir then
-                num := mi.TTrans;
+                Num := mi.TTrans;
             mcFirstNonCap .. nFeature - 1:
               if mi.Cap and (1 shl (I - mcFirstNonCap)) <> 0 then
-                num := 1;
+                Num := 1;
           end;
-          if (num > 0) and
+          if (Num > 0) and
             ((I <> mcSE) or (mi.Cap and (1 shl (mcNP - mcFirstNonCap)) = 0))
           then
           begin
-            if num > 1 then
+            if Num > 1 then
             begin
-              S := IntToStr(num);
+              S := IntToStr(Num);
               W := TextWidth(S);
               Brush.Color := $FFFFFF;
@@ -352 +352 @@
             FrameRect(Rect(X - 3 + dx, Y + 2, X + 11 + dx, Y + 16));
             Brush.Style := TBrushStyle.bsClear;
-            Sprite(dst, HGrSystem, X - 1 + dx, Y + 4, 10, 10,
+            Sprite(Dst, HGrSystem, X - 1 + dx, Y + 4, 10, 10,
               66 + I mod 11 * 11, 137 + I div 11 * 11);
             Inc(dx, 15);
@@ -360 +360 @@
   end;
 
-  procedure NumberBarS(dst: TBitmap; X, Y: Integer; Cap, S: string; T: TTexture);
-  begin
-    DLine(dst.Canvas, X - 2, X + 170, Y + 16, T.ColorBevelShade, T.ColorBevelLight);
-    LoweredTextOut(dst.Canvas, -1, T, X - 2, Y, Cap);
-    RisedTextout(dst.Canvas, X + 170 - BiColorTextWidth(dst.Canvas, S), Y, S);
+  procedure NumberBarS(Dst: TBitmap; X, Y: Integer; Cap, S: string; T: TTexture);
+  begin
+    DLine(Dst.Canvas, X - 2, X + 170, Y + 16, T.ColorBevelShade, T.ColorBevelLight);
+    LoweredTextOut(Dst.Canvas, -1, T, X - 2, Y, Cap);
+    RisedTextout(Dst.Canvas, X + 170 - BiColorTextWidth(Dst.Canvas, S), Y, S);
   end;