Changeset 41 for trunk/ScreenTools.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/ScreenTools.pas (modified) (7 diffs)

trunk/ScreenTools.pas

@@ -48 +48 @@
 procedure ImageOp_CCC(bmp: TBitmap; x, y, w, h, Color0, Color1,
   Color2: integer);
+function BitBltCanvas(DestCanvas: TCanvas; X, Y, Width, Height: Integer; SrcCanvas: TCanvas;
+  XSrc, YSrc: Integer; Rop: DWORD): Boolean;
 procedure SLine(ca: TCanvas; x0, x1, y: integer; cl: TColor);
 procedure DLine(ca: TCanvas; x0, x1, y: integer; cl0, cl1: TColor);
@@ -192 +194 @@
 
 uses
-  Directories, Sound, ButtonBase, ButtonA, ButtonB,
-
-  Registry;
+  Directories, Sound, Registry;
 
 var
@@ -713 +713 @@
     exit;
 
+  Src.BeginUpdate;
   dst.BeginUpdate;
   for iy := 0 to h - 1 do
@@ -725 +726 @@
       if trans <> $FF then
       begin
-        Value := (DstLine[xDst + ix][0] * trans + (Color2 shr 16 and $FF) * amp2
-          + (Color1 shr 16 and $FF) * amp1) div $FF;
+        Value := (DstLine[xDst + ix][0] * trans + ((Color2 shr 16) and $FF) * amp2
+          + ((Color1 shr 16) and $FF) * amp1) div $FF;
         if Value < 256 then
           DstLine[xDst + ix][0] := Value
         else
           DstLine[xDst + ix][0] := 255;
-        Value := (DstLine[xDst + ix][1] * trans + (Color2 shr 8 and $FF) * amp2
-          + (Color1 shr 8 and $FF) * amp1) div $FF;
+        Value := (DstLine[xDst + ix][1] * trans + ((Color2 shr 8) and $FF) * amp2
+          + ((Color1 shr 8) and $FF) * amp1) div $FF;
         if Value < 256 then
           DstLine[xDst + ix][1] := Value
@@ -746 +747 @@
     end
   end;
+  Src.EndUpdate;
   dst.EndUpdate;
 end;
@@ -802 +804 @@
   BitBlt(dst.Canvas.Handle, xDst, yDst, Width, Height,
     GrExt[HGr].Data.Canvas.Handle, xGr, yGr, SRCPAINT);
+end;
+
+function BitBltCanvas(DestCanvas: TCanvas; X, Y, Width, Height: Integer; SrcCanvas: TCanvas; XSrc,
+  YSrc: Integer; Rop: DWORD): Boolean;
+begin
+  Assert(Rop = SRCCOPY);
+  DestCanvas.CopyRect(Rect(X, X, Width, Height), SrcCanvas,
+    Rect(XSrc, YSrc, XSrc + Width, YSrc + Height));
 end;
 
@@ -1441 +1451 @@
     procedure PaintLogo(ca: TCanvas; x, y, clLight, clShade: integer);
     begin
-      BitBlt(LogoBuffer.Canvas.Handle, 0, 0, wLogo, hLogo, ca.Handle, x,
+      BitBltCanvas(LogoBuffer.Canvas, 0, 0, wLogo, hLogo, ca, x,
         y, SRCCOPY);
       ImageOp_BCC(LogoBuffer, Templates, 0, 0, 1, 1, wLogo, hLogo,