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

trunk/LocalPlayer/UnitStat.pas

@@ -101 +101 @@
   if MainTexture.Age <> AgePrepared then begin
     AgePrepared := MainTexture.Age;
-    BitBltCanvas(Back.Canvas, 0, 0, wCommon, hOwnModel,
-      MainTexture.Image.Canvas, (MainTexture.Width - wCommon) div 2,
+    BitBltBitmap(Back, 0, 0, wCommon, hOwnModel,
+      MainTexture.Image, (MainTexture.Width - wCommon) div 2,
       (MainTexture.Height - hOwnModel) div 2);
-    BitBltCanvas(Back.Canvas, wCommon, 0, wCommon, hEnemyModel,
-      MainTexture.Image.Canvas, (MainTexture.Width - wCommon) div 2,
+    BitBltBitmap(Back, wCommon, 0, wCommon, hEnemyModel,
+      MainTexture.Image, (MainTexture.Width - wCommon) div 2,
       (MainTexture.Height - hEnemyModel) div 2);
-    BitBltCanvas(Back.Canvas, 2 * wCommon, 0, wCommon, hEnemyUnit,
-      MainTexture.Image.Canvas, (MainTexture.Width - wCommon) div 2,
+    BitBltBitmap(Back, 2 * wCommon, 0, wCommon, hEnemyUnit,
+      MainTexture.Image, (MainTexture.Width - wCommon) div 2,
       (MainTexture.Height - hEnemyUnit) div 2);
-    BitBltCanvas(Back.Canvas, 3 * wCommon, 0, wCommon, hEnemyCityDefense,
-      MainTexture.Image.Canvas, (MainTexture.Width - wCommon) div 2,
+    BitBltBitmap(Back, 3 * wCommon, 0, wCommon, hEnemyCityDefense,
+      MainTexture.Image, (MainTexture.Width - wCommon) div 2,
       (MainTexture.Height - hEnemyCityDefense) div 2);
-    BitBltCanvas(Back.Canvas, 4 * wCommon, 0, wCommon, hEnemyCity,
-      MainTexture.Image.Canvas, (MainTexture.Width - wCommon) div 2,
+    BitBltBitmap(Back, 4 * wCommon, 0, wCommon, hEnemyCity,
+      MainTexture.Image, (MainTexture.Width - wCommon) div 2,
       (MainTexture.Height - hEnemyCity) div 2);
     ImageOp_B(Back, Template, 0, 0, 0, 0, 5 * wCommon, hMax);
@@ -378 +378 @@
   case Kind of
     dkOwnModel: begin
-      BitBltCanvas(Offscreen.Canvas, 0, 0, wCommon, hOwnModel,
-        Back.Canvas, 0, 0);
+      BitBltBitmap(Offscreen, 0, 0, wCommon, hOwnModel, Back, 0, 0);
       yView := 13;
       yTotal := 92;
     end;
     dkEnemyModel: begin
-      BitBltCanvas(Offscreen.Canvas, 0, 0, wCommon, hEnemyModel,
-        Back.Canvas, wCommon, 0);
+      BitBltBitmap(Offscreen, 0, 0, wCommon, hEnemyModel, Back, wCommon, 0);
       yView := 13;
       yTotal := 92;
     end;
     dkEnemyUnit, dkOwnUnit: begin
-      BitBltCanvas(Offscreen.Canvas, 0, 0, wCommon, hEnemyUnit,
-        Back.Canvas, 2 * wCommon, 0);
+      BitBltBitmap(Offscreen, 0, 0, wCommon, hEnemyUnit, Back, 2 * wCommon, 0);
       yView := 13;
       yTotal := 123;
     end;
     dkEnemyCityDefense: begin
-      BitBltCanvas(Offscreen.Canvas, 0, 0, wCommon, hEnemyCityDefense,
-        Back.Canvas, 3 * wCommon, 0);
+      BitBltBitmap(Offscreen, 0, 0, wCommon, hEnemyCityDefense, Back, 3 * wCommon, 0);
       yView := 171;
       yTotal := 231;
     end;
     dkEnemyCity: begin
-      BitBltCanvas(Offscreen.Canvas, 0, 0, wCommon, hEnemyCity,
-        Back.Canvas, 4 * wCommon, 0);
+      BitBltBitmap(Offscreen, 0, 0, wCommon, hEnemyCity, Back, 4 * wCommon, 0);
       yView := 171;
       yTotal := 231;
@@ -430 +425 @@
           yImp + ySizeSmall, MainTexture.ColorBevelLight,
           MainTexture.ColorBevelShade);
-        BitBltCanvas(Offscreen.Canvas, X, yImp, xSizeSmall, ySizeSmall,
-          SmallImp.Canvas, J mod 7 * xSizeSmall,
+        BitBltBitmap(Offscreen, X, yImp, xSizeSmall, ySizeSmall,
+          SmallImp, J mod 7 * xSizeSmall,
           (J + SystemIconLines * 7) div 7 * ySizeSmall);
         Inc(X, xSizeSmall + 4);
@@ -549 +544 @@
                     * (yyt * 3 + 1));
               end;
-          BitBltCanvas(Offscreen.Canvas, xView, yView + 16, 64, 32,
-            Buffer.Canvas, 1, 0);
+          BitBltBitmap(Offscreen, xView, yView + 16, 64, 32, Buffer, 1, 0);
 
           // show unit, experience and health