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

carbon: fix masked image drawin. bug #16498

Browse Source 
git-svn-id: trunk@25554 -
This commit is contained in:
dmitry 2010-05-20 21:00:52 +00:00
parent 82f4023793
commit a8f9fab54f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/carbon/carboncanvas.pp
View File

@ -1512,7 +1512,7 @@ begin
CGContextTranslateCTM(LayerContext, 0, -SrcHeight);
SetCGFillping(LayerContext, Width, Height);
if SubMask then CGContextClipToMask(LayerContext, ImgRect, MskImage);
if Assigned(MskImage) then CGContextClipToMask(LayerContext, ImgRect, MskImage);
CGContextDrawImage(LayerContext, ImgRect, Image);
CGContextDrawLayerInRect(CGContext, DstRect, Layer);