Changeset 188 for trunk/LocalPlayer/Draft.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/Draft.pas (modified) (1 diff)

trunk/LocalPlayer/Draft.pas

@@ -239 +239 @@
   // assemble background from 2 texture tiles
   begin
-    bitblt(Back.Canvas.Handle, 0, 0, ClientWidth, 64,
-      MainTexture.Image.Canvas.Handle, (wMainTexture - ClientWidth) div 2,
-      hMainTexture - 64, SRCCOPY);
-    bitblt(Back.Canvas.Handle, 0, 64, ClientWidth, ClientHeight - 64,
-      MainTexture.Image.Canvas.Handle, (wMainTexture - ClientWidth) div 2,
-      0, SRCCOPY);
+    bitbltCanvas(Back.Canvas, 0, 0, ClientWidth, 64,
+      MainTexture.Image.Canvas, (wMainTexture - ClientWidth) div 2,
+      hMainTexture - 64);
+    bitbltCanvas(Back.Canvas, 0, 64, ClientWidth, ClientHeight - 64,
+      MainTexture.Image.Canvas, (wMainTexture - ClientWidth) div 2,
+      0);
   end
   else
-    bitblt(Back.Canvas.Handle, 0, 0, ClientWidth, ClientHeight,
-      MainTexture.Image.Canvas.Handle, (wMainTexture - ClientWidth) div 2,
-      (hMainTexture - ClientHeight) div 2, SRCCOPY);
+    bitbltCanvas(Back.Canvas, 0, 0, ClientWidth, ClientHeight,
+      MainTexture.Image.Canvas, (wMainTexture - ClientWidth) div 2,
+      (hMainTexture - ClientHeight) div 2);
   ImageOp_B(Back, Template, 0, 0, 0, 0, Template.Width, 64);
   ImageOp_B(Back, Template, 0, 64, 0, 64 + Cut, Template.Width,
     Template.Height - 64 - Cut);
 
-  bitblt(offscreen.Canvas.Handle, 0, 0, ClientWidth, ClientHeight,
-    Back.Canvas.Handle, 0, 0, SRCCOPY);
+  bitbltCanvas(offscreen.Canvas, 0, 0, ClientWidth, ClientHeight,
+    Back.Canvas, 0, 0);
 
   offscreen.Canvas.Font.Assign(UniFont[ftCaption]);