Changeset 188 for trunk/LocalPlayer/UnitStat.pas

Timestamp:

May 6, 2020, 11:21:12 PM (4 years ago)

Author:

chronos

Message:

• Modified: Simplified code by replacing BitBlt which uses always handles by BitBltCanvas which uses directly TCanvas objects. Used default ROP SRCCOPY.

File:

• trunk/LocalPlayer/UnitStat.pas (modified) (8 diffs)

trunk/LocalPlayer/UnitStat.pas

@@ -97 +97 @@
   begin
     AgePrepared := MainTextureAge;
-    bitblt(Back.Canvas.Handle, 0, 0, wCommon, hOwnModel,
-      MainTexture.Image.Canvas.Handle, (wMainTexture - wCommon) div 2,
-      (hMainTexture - hOwnModel) div 2, SRCCOPY);
-    bitblt(Back.Canvas.Handle, wCommon, 0, wCommon, hEnemyModel,
-      MainTexture.Image.Canvas.Handle, (wMainTexture - wCommon) div 2,
-      (hMainTexture - hEnemyModel) div 2, SRCCOPY);
-    bitblt(Back.Canvas.Handle, 2 * wCommon, 0, wCommon, hEnemyUnit,
-      MainTexture.Image.Canvas.Handle, (wMainTexture - wCommon) div 2,
-      (hMainTexture - hEnemyUnit) div 2, SRCCOPY);
-    bitblt(Back.Canvas.Handle, 3 * wCommon, 0, wCommon, hEnemyCityDefense,
-      MainTexture.Image.Canvas.Handle, (wMainTexture - wCommon) div 2,
-      (hMainTexture - hEnemyCityDefense) div 2, SRCCOPY);
-    bitblt(Back.Canvas.Handle, 4 * wCommon, 0, wCommon, hEnemyCity,
-      MainTexture.Image.Canvas.Handle, (wMainTexture - wCommon) div 2,
-      (hMainTexture - hEnemyCity) div 2, SRCCOPY);
+    BitBltCanvas(Back.Canvas, 0, 0, wCommon, hOwnModel,
+      MainTexture.Image.Canvas, (wMainTexture - wCommon) div 2,
+      (hMainTexture - hOwnModel) div 2);
+    BitBltCanvas(Back.Canvas, wCommon, 0, wCommon, hEnemyModel,
+      MainTexture.Image.Canvas, (wMainTexture - wCommon) div 2,
+      (hMainTexture - hEnemyModel) div 2);
+    BitBltCanvas(Back.Canvas, 2 * wCommon, 0, wCommon, hEnemyUnit,
+      MainTexture.Image.Canvas, (wMainTexture - wCommon) div 2,
+      (hMainTexture - hEnemyUnit) div 2);
+    BitBltCanvas(Back.Canvas, 3 * wCommon, 0, wCommon, hEnemyCityDefense,
+      MainTexture.Image.Canvas, (wMainTexture - wCommon) div 2,
+      (hMainTexture - hEnemyCityDefense) div 2);
+    BitBltCanvas(Back.Canvas, 4 * wCommon, 0, wCommon, hEnemyCity,
+      MainTexture.Image.Canvas, (wMainTexture - wCommon) div 2,
+      (hMainTexture - hEnemyCity) div 2);
     ImageOp_B(Back, Template, 0, 0, 0, 0, 5 * wCommon, hMax);
   end
@@ -387 +387 @@
     dkOwnModel:
       begin
-        bitblt(offscreen.Canvas.Handle, 0, 0, wCommon, hOwnModel,
-          Back.Canvas.Handle, 0, 0, SRCCOPY);
+        BitBltCanvas(offscreen.Canvas, 0, 0, wCommon, hOwnModel,
+          Back.Canvas, 0, 0);
         yView := 13;
         yTotal := 92;
@@ -394 +394 @@
     dkEnemyModel:
       begin
-        bitblt(offscreen.Canvas.Handle, 0, 0, wCommon, hEnemyModel,
-          Back.Canvas.Handle, wCommon, 0, SRCCOPY);
+        BitBltCanvas(offscreen.Canvas, 0, 0, wCommon, hEnemyModel,
+          Back.Canvas, wCommon, 0);
         yView := 13;
         yTotal := 92;
@@ -401 +401 @@
     dkEnemyUnit, dkOwnUnit:
       begin
-        bitblt(offscreen.Canvas.Handle, 0, 0, wCommon, hEnemyUnit,
-          Back.Canvas.Handle, 2 * wCommon, 0, SRCCOPY);
+        BitBltCanvas(offscreen.Canvas, 0, 0, wCommon, hEnemyUnit,
+          Back.Canvas, 2 * wCommon, 0);
         yView := 13;
         yTotal := 123;
@@ -408 +408 @@
     dkEnemyCityDefense:
       begin
-        bitblt(offscreen.Canvas.Handle, 0, 0, wCommon, hEnemyCityDefense,
-          Back.Canvas.Handle, 3 * wCommon, 0, SRCCOPY);
+        BitBltCanvas(offscreen.Canvas, 0, 0, wCommon, hEnemyCityDefense,
+          Back.Canvas, 3 * wCommon, 0);
         yView := 171;
         yTotal := 231;
@@ -415 +415 @@
     dkEnemyCity:
       begin
-        bitblt(offscreen.Canvas.Handle, 0, 0, wCommon, hEnemyCity,
-          Back.Canvas.Handle, 4 * wCommon, 0, SRCCOPY);
+        BitBltCanvas(offscreen.Canvas, 0, 0, wCommon, hEnemyCity,
+          Back.Canvas, 4 * wCommon, 0);
       end;
   end;
@@ -445 +445 @@
           yImp + ySizeSmall, MainTexture.clBevelLight,
           MainTexture.clBevelShade);
-        bitblt(offscreen.Canvas.Handle, x, yImp, xSizeSmall, ySizeSmall,
-          SmallImp.Canvas.Handle, j mod 7 * xSizeSmall,
-          (j + SystemIconLines * 7) div 7 * ySizeSmall, SRCCOPY);
+        bitbltCanvas(offscreen.Canvas, x, yImp, xSizeSmall, ySizeSmall,
+          SmallImp.Canvas, j mod 7 * xSizeSmall,
+          (j + SystemIconLines * 7) div 7 * ySizeSmall);
         inc(x, xSizeSmall + 4)
       end;
@@ -564 +564 @@
                     * (yyt * 3 + 1));
               end;
-          bitblt(offscreen.Canvas.Handle, xView, yView + 16, 64, 32,
-            Buffer.Canvas.Handle, 1, 0, SRCCOPY);
+          bitbltCanvas(offscreen.Canvas, xView, yView + 16, 64, 32,
+            Buffer.Canvas, 1, 0);
 
           // show unit, experience and health