Changeset 536 for trunk/LocalPlayer/UnitStat.pas

Timestamp:

Apr 15, 2024, 8:59:23 PM (4 weeks ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

trunk/LocalPlayer/UnitStat.pas

@@ -305 +305 @@
         S := Phrases.Lookup('UNITSPECIAL');
         Font.Color := $000000;
-        Textout(X - 1, Y + 1, S);
+        TextOut(X - 1, Y + 1, S);
         Font.Color := $B0B0B0;
-        Textout(X - 2, Y, S);
+        TextOut(X - 2, Y, S);
       end
       else
@@ -346 +346 @@
               FillRect(Rect(X - 3 + dx, Y + 2, X + W - 1 + dx, Y + 16));
               Brush.Style := TBrushStyle.bsClear;
-              Textout(X - 3 + dx + 1, Y, S);
+              TextOut(X - 3 + dx + 1, Y, S);
               Inc(dx, W + 1);
             end;
@@ -364 +364 @@
     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);
+    RisedTextOut(Dst.Canvas, X + 170 - BiColorTextWidth(Dst.Canvas, S), Y, S);
   end;
 
@@ -559 +559 @@
             LightGradient(Offscreen.Canvas, xView - 45, yView + 24, 38,
               (ColorOfHealth(Health) and $FEFEFE shr 2) * 3);
-            RisedTextout(Offscreen.Canvas, xView - 45 + 20 -
+            RisedTextOut(Offscreen.Canvas, xView - 45 + 20 -
               BiColorTextWidth(Offscreen.Canvas, S) div 2, yView + 23, S);
           end;
@@ -579 +579 @@
 
       DarkGradient(Offscreen.Canvas, xTotal - 6, yTotal + 1, 180, 2);
-      RisedTextout(Offscreen.Canvas, xTotal - 2, yTotal,
+      RisedTextOut(Offscreen.Canvas, xTotal - 2, yTotal,
         Phrases.Lookup('UNITSTRENGTH'));
       S := IntToStr(mi.Attack) + '/' + IntToStr(mi.Defense);
-      RisedTextout(Offscreen.Canvas,
+      RisedTextOut(Offscreen.Canvas,
         xTotal + 170 - BiColorTextWidth(Offscreen.Canvas, S), yTotal, S);
       FeatureBar(Offscreen, xTotal, yTotal + 19, mi, MainTexture);
@@ -595 +595 @@
       else
         S := IntToStr(mi.cost * BuildCostMod[G.Difficulty[Me]] div 12);
-      RisedTextout(Offscreen.Canvas,
+      RisedTextOut(Offscreen.Canvas,
         xTotal + 159 - BiColorTextWidth(Offscreen.Canvas, S), yTotal + 57, S);
       Sprite(Offscreen, HGrSystem, xTotal + 160, yTotal + 57 + 5, 10,
@@ -614 +614 @@
             MainTexture.ColorTextLight);
           S := TurnToString(MyModel[mixShow].IntroTurn);
-          RisedTextout(Offscreen.Canvas,
+          RisedTextOut(Offscreen.Canvas,
             xTotal + 170 - BiColorTextWidth(Offscreen.Canvas, S),
             (yTotal + StatDown - 19), S);
@@ -673 +673 @@
       yCaption := 79;
   end;
-  RisedTextout(Offscreen.Canvas,
+  RisedTextOut(Offscreen.Canvas,
     (ClientWidth - BiColorTextWidth(Offscreen.Canvas, Caption)) div 2,
     yCaption, Caption);