From a8f9fab54f6fcac1f83ac4888046c3e182b35b8e Mon Sep 17 00:00:00 2001
From: dmitry <dmitry@lazarus-ide.org>
Date: Thu, 20 May 2010 21:00:52 +0000
Subject: [PATCH] carbon: fix masked image drawin. bug #16498

git-svn-id: trunk@25554 -
---
 lcl/interfaces/carbon/carboncanvas.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/carbon/carboncanvas.pp b/lcl/interfaces/carbon/carboncanvas.pp
index ff1992882d..9df43e1aa3 100644
--- a/lcl/interfaces/carbon/carboncanvas.pp
+++ b/lcl/interfaces/carbon/carboncanvas.pp
@@ -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);