Changeset 530 for trunk/LocalPlayer/Select.pas

Timestamp:

Feb 24, 2024, 8:04:26 PM (3 months ago)

Author:

chronos

Message:

• Modified: Use BitBltBitmap instead of BitBltCanvas if possible.

File:

• trunk/LocalPlayer/Select.pas (modified) (4 diffs)

trunk/LocalPlayer/Select.pas

@@ -206 +206 @@
       if pix and cpType = 0 then
         if (pix and cpIndex = imPalace) and (MyRO.Government <> gAnarchy) then
-          BitBltCanvas(Offscreen.Canvas, X + 16, Y + (16 - 1), xSizeSmall,
-            ySizeSmall, SmallImp.Canvas, (MyRO.Government - 1) *
+          BitBltBitmap(Offscreen, X + 16, Y + (16 - 1), xSizeSmall,
+            ySizeSmall, SmallImp, (MyRO.Government - 1) *
             xSizeSmall, ySizeSmall)
         else
-          BitBltCanvas(Offscreen.Canvas, X + 16, Y + (16 - 1), xSizeSmall,
-            ySizeSmall, SmallImp.Canvas, pix and cpIndex mod 7 *
+          BitBltBitmap(Offscreen, X + 16, Y + (16 - 1), xSizeSmall,
+            ySizeSmall, SmallImp, pix and cpIndex mod 7 *
             xSizeSmall, (pix and cpIndex + SystemIconLines * 7) div 7 *
             ySizeSmall)
       else
-        BitBltCanvas(Offscreen.Canvas, X + 16, Y + (16 - 1), xSizeSmall,
-          ySizeSmall, SmallImp.Canvas, (3 + pix and cpIndex) *
+        BitBltBitmap(Offscreen, X + 16, Y + (16 - 1), xSizeSmall,
+          ySizeSmall, SmallImp, (3 + pix and cpIndex) *
           xSizeSmall, 0);
     end;
@@ -578 +578 @@
                   MainTexture.ColorBevelLight, MainTexture.ColorBevelShade);
                 if AdvIcon[lix] < 84 then
-                  BitBltCanvas(Offscreen.Canvas, (8 + 16), y0, xSizeSmall,
-                    ySizeSmall, SmallImp.Canvas,
+                  BitBltBitmap(Offscreen, (8 + 16), y0, xSizeSmall,
+                    ySizeSmall, SmallImp,
                     (AdvIcon[lix] + SystemIconLines * 7) mod 7 * xSizeSmall,
                     (AdvIcon[lix] + SystemIconLines * 7) div 7 *
@@ -588 +588 @@
                     295 + (AdvIcon[lix] - 84) div 8 * 21);
                 J := AdvValue[lix] div 1000;
-                BitBltCanvas(Offscreen.Canvas, (8 + 16 - 4), y0 + 2, 14, 14,
-                  HGrSystem.Mask.Canvas, 127 + J * 15,
+                BitBltBitmap(Offscreen, (8 + 16 - 4), y0 + 2, 14, 14,
+                  HGrSystem.Mask, 127 + J * 15,
                   85, SRCAND);
                 Sprite(Offscreen, HGrSystem, (8 + 16 - 5), y0 + 1, 14, 14,
@@ -683 +683 @@
               8 + 16 + xSizeSmall, y0 - 15 + (16 - 1 + ySizeSmall),
               MainTexture.ColorBevelLight, MainTexture.ColorBevelShade);
-            BitBltCanvas(Offscreen.Canvas, 8 + 16, y0 - 15 + (16 - 1),
-              xSizeSmall, ySizeSmall, SmallImp.Canvas,
-              (lix - 1) * xSizeSmall, ySizeSmall);
+            BitBltBitmap(Offscreen, 8 + 16, y0 - 15 + (16 - 1),
+              xSizeSmall, ySizeSmall, SmallImp, (lix - 1) * xSizeSmall, ySizeSmall);
           end;
         end;