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

trunk/LocalPlayer/TechTree.pas

@@ -108 +108 @@
         -BlackBorder - yOffset, Paper);
   end;
-  BitBlt(Canvas.Handle, max(BlackBorder, BlackBorder + xOffset),
+  BitBltCanvas(Canvas, max(BlackBorder, BlackBorder + xOffset),
     max(BlackBorder, BlackBorder + yOffset),
     min(Image.width, min(Image.width + xOffset,
@@ -114 +114 @@
     ), min(Image.height, min(Image.height + yOffset,
     min(ClientHeight - 2 * BlackBorder, ClientHeight - 2 * BlackBorder -
-    yOffset))), Image.Canvas.Handle, max(0, -xOffset),
-    max(0, -yOffset), SRCCOPY);
+    yOffset))), Image.Canvas, max(0, -xOffset),
+    max(0, -yOffset));
 end;