Changeset 41 for trunk/LocalPlayer/MessgEx.pas

Timestamp:

Jan 9, 2017, 9:41:20 PM (7 years ago)

Author:

chronos

Message:

Fixed: Problem with reading Form canvas during OnPaint event using BitBlt. Chnaged to read using StreatchDraw as workaround.

File:

• trunk/LocalPlayer/MessgEx.pas (modified) (2 diffs)

trunk/LocalPlayer/MessgEx.pas

@@ -298 +298 @@
 
   // paint
-  BitBlt(LogoBuffer.Canvas.Handle, 0, 0, wb, hb, ca.Handle, x, y, SRCCOPY);
+  BitBltCanvas(LogoBuffer.Canvas, 0, 0, wb, hb, ca, x, y, SRCCOPY);
 
   if IconIndex >= 0 then
@@ -436 +436 @@
     mikEnemyShipComplete:
       begin
-        BitBlt(Buffer.Canvas.Handle, 0, 0, 140, 120, Canvas.Handle,
+        BitBltCanvas(Buffer.Canvas, 0, 0, 140, 120, Canvas,
           (ClientWidth - 140) div 2, 24, SRCCOPY);
         ImageOp_BCC(Buffer, Templates, 0, 0, 1, 279, 140, 120, 0, $FFFFFF);