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

trunk/Back.pas

@@ -65 +65 @@
 begin
   if Assigned(Img) then
-    BitBlt(Canvas.Handle, Screen.Width - Img.Width - (Screen.Width - 800) *
+    BitBltCanvas(Canvas, Screen.Width - Img.Width - (Screen.Width - 800) *
       3 div 8, (Screen.Height - 600) div 3, Img.Width, Img.Height,
-      Img.Canvas.Handle, 0, 0, SRCCOPY);
+      Img.Canvas, 0, 0);
 end;