paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 10:39:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: another fix for StretchMaskBlt.related to issue #26004

Browse Source 
git-svn-id: trunk@45140 -
This commit is contained in:
zeljko 2014-05-21 17:33:45 +00:00
parent 3b3f5bb5ad
commit 05b4e9635e
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6484,6 +6484,7 @@ var
OldRop: Integer;
OldBkColor: TColorRef;
RestoreClip: Boolean;
AClipRect: TRect;
begin
{$ifdef VerboseQtWinAPI}
WriteLn('[WinAPI StretchMaskBlt]',
@ -6627,7 +6628,11 @@ begin
if (SrcRect.Left < DstRect.Left) or (SrcRect.Top < DstRect.Top) and
DstQDC.getClipping and DstQDC.getClipRegion.containsRect(SrcRect) then
begin
if DstQDC.getClipRegion.containsPoint(DstRect.Left, DstRect.Top) then
AClipRect := DstQDC.getClipRegion.getBoundingRect;
OffsetRect(AClipRect, -AClipRect.Left, -AClipRect.Top);
if (DstRect.Right - DstRect.Left <= AClipRect.Right) and
(DstRect.Bottom - DstRect.Top <= AClipRect.Bottom) and
DstQDC.getClipRegion.containsPoint(DstRect.Left, DstRect.Top) then
begin
RestoreClip := True;
DstQDC.setClipping(False);