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

Qt,Qt5: copy proper mask size in StretchMaskBlt

Browse Source 
git-svn-id: trunk@62877 -
This commit is contained in:
zeljko 2020-04-04 07:40:41 +00:00
parent 14d2b6e153
commit d78f0bd224
2 changed files with 25 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6873,30 +6873,26 @@ var
else
QPixmap_copy(APixmap, ATempPixmap, 0, 0, QPixmap_width(APixmap), QPixmap_height(APixmap));
if AMaskImg <> nil then
begin
// apply mask to pixmap
AScaledPix := nil;
AScaledPix := QPixmap_create();
AMaskPix := QPixmap_create();
QPixmap_fromImage(AMaskPix, AMaskImg);
try
if NeedScaling(DstRect, SrcRect) then
begin
AScaledPix := QPixmap_create();
QPixmap_scaled(AMaskPix, AScaledPix, Width, Height);
ABitmap := QBitmap_Create(AScaledPix);
end else
if (Width <> SrcWidth) or (Height <> SrcHeight) then
begin
AScaledPix := QPixmap_create();
QPixmap_copy(AMaskPix, AScaledPix, 0, 0, Width, Height);
ABitmap := QBitmap_Create(AScaledPix);
end else
ABitmap := QBitmap_Create(AMaskPix);
if IsRectEmpty(MaskRect) then
QPixmap_copy(AMaskPix, AScaledPix, 0, 0, Min(Width, QPixmap_Width(AMaskPix)), Min(Height, QPixmap_Height(AMaskPix)) )
else
QPixmap_copy(AMaskPix, AScaledPix, MaskRect.Left, MaskRect.Top,
MaskRect.Right - MaskRect.Left, MaskRect.Bottom - MaskRect.Top);
ABitmap := QBitmap_Create(AScaledPix);
QPixmap_setMask(ATempPixmap, ABitmap);
QBitmap_Destroy(ABitmap);
if AScaledPix <> nil then
QPixmap_destroy(AScaledPix);
QPixmap_destroy(AScaledPix);
finally
QPixmap_destroy(AMaskPix);
end;
@ -6978,7 +6974,7 @@ begin
QImage_copy(SrcQDC.vImage.Handle, TmpImage, XSrc, YSrc, SrcWidth, SrcHeight);
// #11713, #25590
if (QMask = nil) and (QImage_format(TmpImage) = QImageFormat_RGB32) then
if (QImage_format(TmpImage) = QImageFormat_RGB32) then
begin
Image := QImage_create();
QImage_convertToFormat(TmpImage, Image, QImageFormat_ARGB32);

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

@ -6821,27 +6821,22 @@ var
if AMaskImg <> nil then
begin
// apply mask to pixmap
AScaledPix := nil;
AScaledPix := QPixmap_create();
AMaskPix := QPixmap_create();
QPixmap_fromImage(AMaskPix, AMaskImg);
try
if NeedScaling(DstRect, SrcRect) then
begin
AScaledPix := QPixmap_create();
QPixmap_scaled(AMaskPix, AScaledPix, Width, Height);
ABitmap := QBitmap_Create(AScaledPix);
end else
if (Width <> SrcWidth) or (Height <> SrcHeight) then
begin
AScaledPix := QPixmap_create();
QPixmap_copy(AMaskPix, AScaledPix, 0, 0, Width, Height);
ABitmap := QBitmap_Create(AScaledPix);
end else
ABitmap := QBitmap_Create(AMaskPix);
if IsRectEmpty(MaskRect) then
QPixmap_copy(AMaskPix, AScaledPix, 0, 0, Min(Width, QPixmap_Width(AMaskPix)), Min(Height, QPixmap_Height(AMaskPix)) )
else
QPixmap_copy(AMaskPix, AScaledPix, MaskRect.Left, MaskRect.Top,
MaskRect.Right - MaskRect.Left, MaskRect.Bottom - MaskRect.Top);
ABitmap := QBitmap_Create(AScaledPix);
QPixmap_setMask(ATempPixmap, ABitmap);
QBitmap_Destroy(ABitmap);
if AScaledPix <> nil then
QPixmap_destroy(AScaledPix);
QPixmap_destroy(AScaledPix);
finally
QPixmap_destroy(AMaskPix);
end;
@ -6923,7 +6918,7 @@ begin
QImage_copy(SrcQDC.vImage.Handle, TmpImage, XSrc, YSrc, SrcWidth, SrcHeight);
// #11713, #25590
if (QMask = nil) and (QImage_format(TmpImage) = QImageFormat_RGB32) then
if (QImage_format(TmpImage) = QImageFormat_RGB32) then
begin
Image := QImage_create();
QImage_convertToFormat(TmpImage, Image, QImageFormat_ARGB32);