From d0eafc69e3031e4f85b39c0c1d19c33a198c35de Mon Sep 17 00:00:00 2001
From: dmitry <dmitry@lazarus-ide.org>
Date: Sun, 14 Jun 2009 20:42:20 +0000
Subject: [PATCH] Carbon implementation SelectClipRGN

git-svn-id: trunk@20626 -
---
 lcl/interfaces/carbon/carbonwinapi.inc | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/carbon/carbonwinapi.inc b/lcl/interfaces/carbon/carbonwinapi.inc
index ecb37f0c8d..ac1c7dcb05 100644
--- a/lcl/interfaces/carbon/carbonwinapi.inc
+++ b/lcl/interfaces/carbon/carbonwinapi.inc
@@ -2827,7 +2827,11 @@ end;
 
 function TCarbonWidgetSet.SelectClipRGN(DC: hDC; RGN: HRGN): Longint;
 begin
-  Result:=inherited SelectClipRGN(DC, RGN);
+  Result := 0;
+  if (DC = 0) or (RGN = 0) then Exit;
+
+  TCarbonRegion(RGN).Apply( TCarbonContext(DC) );
+  Result := 0;
 end;
 
 {------------------------------------------------------------------------------