From 7be110eac064b3744fecafa3a2983a3318e1282f Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Wed, 9 Mar 2011 12:33:24 +0000
Subject: [PATCH] LCL: Changed ColorToRGB return type to Delphi compatible
 Longint

git-svn-id: trunk@29759 -
---
 lcl/graphics.pp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lcl/graphics.pp b/lcl/graphics.pp
index f6f057fd6f..24946bdc2e 100644
--- a/lcl/graphics.pp
+++ b/lcl/graphics.pp
@@ -1880,7 +1880,7 @@ function ColorToIdent(Color: Longint; var Ident: String): Boolean;
 function IdentToColor(const Ident: string; var Color: Longint): Boolean;
 function ColorIndex(Color: Longint; var Index: Integer): Boolean;
 function SysColorToSysColorIndex(Color: TColor): integer;
-function ColorToRGB(Color: TColor): TColorRef;
+function ColorToRGB(Color: TColor): Longint;
 function ColorToString(Color: TColor): AnsiString;
 function StringToColor(const S: shortstring): TColor;
 procedure GetColorValues(Proc: TGetColorStringProc);
@@ -2456,7 +2456,7 @@ begin
   end;
 end;
 
-function ColorToRGB(Color: TColor): TColorRef;
+function ColorToRGB(Color: TColor): Longint;
 var
   i: integer;
 begin
@@ -2464,7 +2464,7 @@ begin
   if i <> -1 then
     Result := GetSysColor(i)
   else
-    Result := TColorRef(Color);
+    Result := Color;
   Result := Result and $FFFFFF;
 end;