paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 06:29:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add ColorToRGB class var to TColorRec

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-11-01 23:30:26 +01:00
parent df67c18f7d
commit f253ca856f
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

@ -32,6 +32,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
@ -982,4 +983,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.