Changeset 505 for trunk/LocalPlayer/Battle.pas

Timestamp:

Dec 24, 2023, 11:24:57 PM (11 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

trunk/LocalPlayer/Battle.pas

@@ -112 +112 @@
     VLightGradient(ca, xm - 8, ym + 8 + LABaseDamage, LADamage - LABaseDamage,
       FanaticColor);
-  BitBltCanvas(ca, xm - 12, ym - 12, 24, 24,
-    HGrSystem.Mask.Canvas, 26, 146, SRCAND);
-  BitBltCanvas(ca, xm - 12, ym - 12, 24, 24,
-    HGrSystem.Data.Canvas, 26, 146, SRCPAINT);
+  Sprite(ca, HGrSystem, xm - 12, ym - 12, 24, 24, 26, 146);
 
   LabelText := Format('%d', [Forecast.AStr]);
@@ -139 +136 @@
     BitBltCanvas(ca, xm + 9 + LDDamage - 7, ym - 6, 14, 17,
       HGrSystem.Mask.Canvas, 51, 153, SRCAND);
-    BitBltCanvas(ca, xm + 8 + LDDamage - 7, ym - 7, 14, 17,
-      HGrSystem.Mask.Canvas, 51, 153, SRCAND);
-    BitBltCanvas(ca, xm + 8 + LDDamage - 7, ym - 7, 14, 17,
-      HGrSystem.Data.Canvas, 51, 153, SRCPAINT);
+    Sprite(ca, HGrSystem, xm + 8 + LDDamage - 7, ym - 7, 14, 17, 51, 153);
   end;
   LabelText := Format('%d', [DDamage]);
@@ -159 +153 @@
     BitBltCanvas(ca, xm - 6, ym + 9 + LADamage - 7, 14, 17,
       HGrSystem.Mask.Canvas, 51, 153, SRCAND);
-    BitBltCanvas(ca, xm - 7, ym + 8 + LADamage - 7, 14, 17,
-      HGrSystem.Mask.Canvas, 51, 153, SRCAND);
-    BitBltCanvas(ca, xm - 7, ym + 8 + LADamage - 7, 14, 17,
-      HGrSystem.Data.Canvas, 51, 153, SRCPAINT);
+    Sprite(ca, HGrSystem, xm - 7, ym + 8 + LADamage - 7, 14, 17, 51, 153);
   end;
   LabelText := Format('%d', [MyUn[uix].Health - Forecast.EndHealthAtt]);