Changeset 41 for trunk/LocalPlayer

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk/LocalPlayer

Files:

• MessgEx.pas (modified) (2 diffs)
• Select.pas (modified) (1 diff)

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);

trunk/LocalPlayer/Select.pas

@@ -821 +821 @@
         LoweredTextOut(Canvas, -1, MainTexture, xScreen + 10,
           ClientHeight - 29, s);
-        BitBlt(ScienceNationDot.Canvas.Handle, 0, 0, 17, 17, Canvas.Handle,
+        BitBltCanvas(ScienceNationDot.Canvas, 0, 0, 17, 17, Canvas,
           xScreen - 10, ClientHeight - 27, SRCCOPY);
         ImageOp_BCC(ScienceNationDot, Templates, 0, 0, 114, 211, 17, 17,