From fa157758f2c7cab0a51f292044d7874bd00f81f5 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Mon, 26 Dec 2011 02:57:13 +0000
Subject: [PATCH] cocoa: fix compilation

git-svn-id: trunk@34417 -
---
 lcl/interfaces/cocoa/cocoagdiobjects.pas | 2 +-
 lcl/interfaces/cocoa/cocoawinapi.inc     | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lcl/interfaces/cocoa/cocoagdiobjects.pas b/lcl/interfaces/cocoa/cocoagdiobjects.pas
index 9899531d07..e463c2afea 100644
--- a/lcl/interfaces/cocoa/cocoagdiobjects.pas
+++ b/lcl/interfaces/cocoa/cocoagdiobjects.pas
@@ -2380,7 +2380,7 @@ begin
   if FCGPattern <> nil then
   begin
     CGPatternRelease(FCGPattern);
-    FGGPattern := nil;
+    FCGPattern := nil;
   end;
 
   FreeAndNil(FBitmap);
diff --git a/lcl/interfaces/cocoa/cocoawinapi.inc b/lcl/interfaces/cocoa/cocoawinapi.inc
index a409776370..6a4227dac7 100644
--- a/lcl/interfaces/cocoa/cocoawinapi.inc
+++ b/lcl/interfaces/cocoa/cocoawinapi.inc
@@ -1785,9 +1785,9 @@ begin
       Exit;
     Color := ColorToNSColor(PLongArray(lpaRgbValues)^[n]);
     if (FSysColorBrushes[Element] <> 0) then
-      FSysColorBrushes[Element].Color := Color
+      TCocoaBrush(FSysColorBrushes[Element]).Color := Color
     else
-      FSysColorBrushes[Element] := HBrush(TCocoaBrush.Create(SysColorToNSColor(nIndex), True));
+      FSysColorBrushes[Element] := HBrush(TCocoaBrush.Create(Color, True));
   end;
 
   Result := True;