Changeset 530 for trunk/LocalPlayer/Rates.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/Rates.pas (modified) (2 diffs)

trunk/LocalPlayer/Rates.pas

@@ -93 +93 @@
     GlowFrame(Offscreen, ClientWidth div 2 - xSizeBig div 2, 52, xSizeBig,
       ySizeBig, Tribe[Me].Color);
-    BitBltCanvas(Offscreen.Canvas, ClientWidth div 2 - xSizeBig div 2, 52,
-      xSizeBig, ySizeBig, BigImp.Canvas, (woLiberty mod 7) * xSizeBig,
+    BitBltBitmap(Offscreen, ClientWidth div 2 - xSizeBig div 2, 52,
+      xSizeBig, ySizeBig, BigImp, (woLiberty mod 7) * xSizeBig,
       (woLiberty div 7 + SystemIconLines) * ySizeBig);
   end
@@ -120 +120 @@
     begin
       for I := 0 to current div 8 - 1 do
-        BitBltCanvas(Offscreen.Canvas, X + Max - 8 - I * 8, Y, 8, 7,
-          HGrSystem.Data.Canvas, 104, 9 + 8 * 2);
-      BitBltCanvas(Offscreen.Canvas, X + Max - current, Y, current - 8 * (current div 8), 7,
-        HGrSystem.Data.Canvas, 104, 9 + 8 * 2);
+        BitBltBitmap(Offscreen, X + Max - 8 - I * 8, Y, 8, 7,
+          HGrSystem.Data, 104, 9 + 8 * 2);
+      BitBltBitmap(Offscreen, X + Max - current, Y, current - 8 * (current div 8), 7,
+        HGrSystem.Data, 104, 9 + 8 * 2);
       Brush.Color := $000000;
       FillRect(Rect(X, Y, X + Max - current, Y + 7));