Changeset 225


Ignore:
Timestamp:
May 14, 2020, 5:18:14 PM (18 months ago)
Author:
chronos
Message:
  • Fixed: Slow drawing of actions on Start windows main tab. Use Windows.BitBlt instead of LCLIntf.BitBlt.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Packages/CevoComponents/ScreenTools.pas

    r211 r225  
    796796  SrcCanvas: TCanvas; XSrc, YSrc: Integer; Rop: DWORD = SRCCOPY): Boolean;
    797797begin
     798  {$IFDEF WINDOWS}
     799  // LCLIntf.BitBlt is slower than direct Windows BitBlt
     800  Result := Windows.BitBlt(DestCanvas.Handle, X, Y, Width, Height, SrcCanvas.Handle, XSrc, YSrc, Rop);
     801  {$ELSE}
    798802  Result := BitBlt(DestCanvas.Handle, X, Y, Width, Height, SrcCanvas.Handle, XSrc, YSrc, Rop);
     803  {$ENDIF}
    799804end;
    800805
Note: See TracChangeset for help on using the changeset viewer.