paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-27 00:03:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt5: fix mask size if exceeds destination pixmap

Browse Source 
git-svn-id: trunk@62913 -
This commit is contained in:
zeljko 2020-04-08 12:11:47 +00:00
parent bb082ce6f3
commit 274cab383e
1 changed files with 8 additions and 2 deletions

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

@ -6821,9 +6821,15 @@ var
AMaskPix := QPixmap_create();
QPixmap_fromImage(AMaskPix, AMaskImg);
try
if IsRectEmpty(MaskRect) or (MaskRect.Size <> DstRect.Size) then
QPixmap_scaled(AMaskPix, AScaledPix, Width, Height)
else
begin
if (QPixmap_width(ATempPixmap) < (DstRect.Right - DstRect.Left)) or
(QPixmap_Height(ATempPixmap) < (DstRect.Bottom - DstRect.Top)) then
QPixmap_scaled(AMaskPix, AScaledPix, QPixmap_width(ATempPixmap), QPixmap_height(ATempPixmap))
else
QPixmap_scaled(AMaskPix, AScaledPix, Width, Height);
end else
QPixmap_copy(AMaskPix, AScaledPix, MaskRect.Left, MaskRect.Top,
MaskRect.Right - MaskRect.Left, MaskRect.Bottom - MaskRect.Top);