From e1f9d84e5e19e9d510e8492c5ccb2febc0e60845 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Wed, 18 Sep 2013 07:49:59 +0000
Subject: [PATCH] carbon: fix linear gradient

git-svn-id: trunk@42851 -
---
 lcl/interfaces/carbon/carbonwinapi.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/carbon/carbonwinapi.inc b/lcl/interfaces/carbon/carbonwinapi.inc
index 5bd0378371..9059c7ca49 100644
--- a/lcl/interfaces/carbon/carbonwinapi.inc
+++ b/lcl/interfaces/carbon/carbonwinapi.inc
@@ -2305,7 +2305,6 @@ var
   Info: PLinearGradientInfo;
   Tmp: TColorComponents;
 begin
-  Result:=nil;
   GetMem(Info, SizeOf(TLinearGradientInfo));
   SwapColors := (BR.Y < TL.Y) and (BR.X < TL.X);
   if BR.X < TL.X then
@@ -2328,6 +2327,7 @@ begin
     Info^.colors[0] := Info^.colors[1];
     Info^.colors[1] := Tmp;
   end;
+  Result:=Info;
 end;
 
 procedure LinearGradientReleaseInfo(info: UnivPtr); mwpascal;