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

Cocoa: Fix transparency bug on TImage

Browse Source 
git-svn-id: trunk@43748 -
This commit is contained in:
freq 2014-01-17 08:47:43 +00:00
parent bd7db234e4
commit b7b6c05eac
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/cocoa/cocoagdiobjects.pas
View File

@ -1806,7 +1806,7 @@ begin
if (Msk <> nil) and (Msk.Image <> nil) then
begin
MskImage := Msk.CreateMaskImage(Bounds(XMsk, YMsk, SrcWidth, SrcHeight));
ImgRect := CGRectMake(0, 0, SrcWidth, SrcHeight);
ImgRect := CGRectMake(x, -y, SrcWidth, SrcHeight);
CGContextSaveGState(CGContext);
CGContextScaleCTM(CGContext, 1, -1);
CGContextTranslateCTM(CGContext, 0, -SrcHeight);