Changeset 313 for trunk/LocalPlayer/Help.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/Help.pas (modified) (5 diffs)

trunk/LocalPlayer/Help.pas

@@ -401 +401 @@
       ca.FrameRect(rect(x+1,i*24+1,x+24-1,i*24+24-1));
       ca.Brush.Style:=bsClear; }
-    BitBltCanvas(ca, x, y - 4, 24, 24, GrExt[HGrSystem].Data.Canvas, 1,
+    BitBltCanvas(ca, x, y - 4, 24, 24, HGrSystem.Data.Canvas, 1,
       146);
     BiColorTextOut(ca, $FFFFFF, $7F007F, x + 10 - ca.Textwidth(s[1]) div 2,
@@ -569 +569 @@
                 j and $FF]);
               PaintLogo(OffScreen.Canvas, (InnerWidth - 122) div 2, i * 24 + 1,
-                GrExt[HGrSystem].Data.Canvas.Pixels[95, 1], $000000);
+                HGrSystem.Data.Canvas.Pixels[95, 1], $000000);
               Font.Assign(UniFont[ftSmall]);
               BiColorTextOut(OffScreen.Canvas, $000000, $7F007F,
@@ -602 +602 @@
               case HelpLineInfo.Picpix of
                 0:
-                  FrameImage(OffScreen.Canvas, GrExt[HGrSystem2].Data,
+                  FrameImage(OffScreen.Canvas, HGrSystem2.Data,
                     12 + x0[i], -7 + i * 24, 56, 40, 137, 127);
                 1:
@@ -637 +637 @@
               ScreenTools.Frame(OffScreen.Canvas, 8 - 1 + x0[i], 2 - 1 + i * 24,
                 8 + 36 + x0[i], 2 + 20 + i * 24, $000000, $000000);
-              Dump(OffScreen, HGrSystem, 8 + x0[i], 2 + i * 24, 36, 20,
+              Dump(OffScreen, HGrSystem,  8 + x0[i], 2 + i * 24, 36, 20,
                 75 + HelpLineInfo.Picpix * 37, 295);
               x0[i] := x0[i] + (8 + 8 + 36);
@@ -658 +658 @@
               j := AdvValue[HelpLineInfo.Picpix] div 1000;
               BitBltCanvas(OffScreen.Canvas, x0[i] + 4, 4 + i * 24, 14, 14,
-                GrExt[HGrSystem].Mask.Canvas, 127 + j * 15, 85, SRCAND);
+                HGrSystem.Mask.Canvas, 127 + j * 15, 85, SRCAND);
               Sprite(OffScreen, HGrSystem, x0[i] + 3, 3 + i * 24, 14, 14,
                 127 + j * 15, 85);