Changeset 313 for trunk/LocalPlayer/Rates.pas

Timestamp:

Mar 17, 2021, 11:11:55 AM (4 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/Rates.pas (modified) (1 diff)

trunk/LocalPlayer/Rates.pas

@@ -123 +123 @@
       for i := 0 to current div 8 - 1 do
         BitBltCanvas(Offscreen.Canvas, x + max - 8 - i * 8, y, 8, 7,
-          GrExt[HGrSystem].Data.Canvas, 104, 9 + 8 * 2);
+          HGrSystem.Data.Canvas, 104, 9 + 8 * 2);
       BitBltCanvas(Offscreen.Canvas, x + max - current, y, current - 8 * (current div 8), 7,
-        GrExt[HGrSystem].Data.Canvas, 104, 9 + 8 * 2);
+        HGrSystem.Data.Canvas, 104, 9 + 8 * 2);
       Brush.Color := $000000;
       FillRect(Rect(x, y, x + max - current, y + 7));