Changeset 225 for trunk/Packages/CevoComponents/ScreenTools.pas

Timestamp:

May 14, 2020, 5:18:14 PM (5 years ago)

Author:

chronos

Message:

• Fixed: Slow drawing of actions on Start windows main tab. Use Windows.BitBlt instead of LCLIntf.BitBlt.

File:

• trunk/Packages/CevoComponents/ScreenTools.pas (modified) (1 diff)

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -796 +796 @@
   SrcCanvas: TCanvas; XSrc, YSrc: Integer; Rop: DWORD = SRCCOPY): Boolean;
 begin
+  {$IFDEF WINDOWS}
+  // LCLIntf.BitBlt is slower than direct Windows BitBlt
+  Result := Windows.BitBlt(DestCanvas.Handle, X, Y, Width, Height, SrcCanvas.Handle, XSrc, YSrc, Rop);
+  {$ELSE}
   Result := BitBlt(DestCanvas.Handle, X, Y, Width, Height, SrcCanvas.Handle, XSrc, YSrc, Rop);
+  {$ENDIF}
 end;