paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-26 12:09:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add ColorToRGB class var to TColorRec

Browse Source 
(cherry picked from commit f253ca856f)
This commit is contained in:
Michaël Van Canneyt 2023-11-01 23:30:26 +01:00 committed by marcoonthegit
parent c85439dab0
commit d3288ef976
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/rtl-objpas/src/inc/system.uitypes.pp
View File

@ -31,6 +31,7 @@ Type
TImageIndex = type Integer; TImageIndex = type Integer;
TColorRec = record TColorRec = record
class var ColorToRGB: function (Color: TColor): Longint;
class operator := (AColor : TColor): TColorRec; inline; class operator := (AColor : TColor): TColorRec; inline;
class operator := (AColor : TColorRec): TColor; inline; class operator := (AColor : TColorRec): TColor; inline;
const const
@ -981,4 +982,11 @@ begin
CR.B:=CC(B); CR.B:=CC(B);
end; end;
function DefaultColorToRGB(Color: TColor): Longint;
begin
Result:=Color;
end;
initialization
TColorRec.ColorToRGB:=@DefaultColorToRGB;
end. end.