paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 15:00:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Changed ColorToRGB return type to Delphi compatible Longint

Browse Source 
git-svn-id: trunk@29759 -
This commit is contained in:
juha 2011-03-09 12:33:24 +00:00
parent 0712a1f29d
commit 7be110eac0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/graphics.pp
View File

@ -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;