Changeset 313 for trunk/LocalPlayer/Battle.pas

Timestamp:

Mar 17, 2021, 11:11:55 AM (3 years ago)

Author:

chronos

Message:

• Modified: LoadGraphicSet now returns TGrExtDescr reference. Replaced integer index references to GrExt with with direct class reference to TGrExtDescr.

File:

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

trunk/LocalPlayer/Battle.pas

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