paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 20:12:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: fixed clipping in stretchDraw.issue #26004

Browse Source 
git-svn-id: trunk@44693 -
This commit is contained in:
zeljko 2014-04-12 06:28:07 +00:00
parent 2da14ac740
commit fccbfe2973
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/qt/qtwinapi.inc
View File

@ -6462,6 +6462,7 @@ var
dx, dy: integer;
OldRop: Integer;
OldBkColor: TColorRef;
RestoreClip: Boolean;
begin
{$ifdef VerboseQtWinAPI}
WriteLn('[WinAPI StretchMaskBlt]',
@ -6601,7 +6602,16 @@ begin
if Rop <> SRCCOPY then
DstQDC.Rop2 := Integer(Rop);
try
RestoreClip := False;
if (SrcRect.Left < DstRect.Left) or (SrcRect.Top < DstRect.Top) and
DstQDC.getClipping and DstQDC.getClipRegion.containsRect(SrcRect) then
begin
RestoreClip := True;
DstQDC.setClipping(False);
end;
DstQDC.drawImage(@DstRect, Image, @SrcRect, QMask, @MaskRect);
if RestoreClip then
DstQDC.setClipping(True);
finally
if Rop <> SRCCOPY then
DstQDC.Rop2 := OldRop;