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

Qt: fixed masked image drawing under MacOSX

Browse Source 
git-svn-id: trunk@34111 -
This commit is contained in:
zeljko 2011-12-11 18:23:00 +00:00
parent 6714382934
commit bdb4d0c6b9
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/interfaces/qt/qtobjects.pas
View File

@ -3417,10 +3417,23 @@ begin
AMask := QBitmap_create(ATemp);
try
QPixmap_setMask(APixmap, AMask);
{$IFDEF DARWIN}
ScaledMask := QImage_create();
QPixmap_toImage(APixmap, ScaledMask);
if ScaledImage <> nil then
QPainter_drawImage(Widget, PRect(@LocalRect), image, @NewRect, flags)
else
QPainter_drawImage(Widget, PRect(@LocalRect), image, sourceRect, flags);
QImage_destroy(ScaledMask);
{$ELSE}
if ScaledImage <> nil then
QPainter_drawPixmap(Widget, PRect(@LocalRect), APixmap, @NewRect)
else
QPainter_drawPixmap(Widget, PRect(@LocalRect), APixmap, sourceRect);
{$ENDIF}
finally
QBitmap_destroy(AMask);
end;