From f02f832da758bbd7b0040e02f886e102b9d4eedd Mon Sep 17 00:00:00 2001
From: dmitry <dmitry@lazarus-ide.org>
Date: Fri, 29 Aug 2014 05:44:16 +0000
Subject: [PATCH] cocoa: added explicit typecast of TColor to ColorRef to
 prevent range check error

git-svn-id: trunk@46087 -
---
 lcl/interfaces/cocoa/cocoagdiobjects.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/cocoa/cocoagdiobjects.pas b/lcl/interfaces/cocoa/cocoagdiobjects.pas
index 3094f8dc96..c5faad1f60 100644
--- a/lcl/interfaces/cocoa/cocoagdiobjects.pas
+++ b/lcl/interfaces/cocoa/cocoagdiobjects.pas
@@ -1574,7 +1574,7 @@ begin
     cg := CGContext;
     if not Assigned(cg) then Exit;
 
-    fillbrush:=TCocoaBrush.Create(ColorToNSColor(AColor));
+    fillbrush:=TCocoaBrush.Create(ColorToNSColor(ColorRef(AColor)));
     fillbrush.Apply(self);
 
     r.origin.x:=x;