* Add ColorToRGB class var to TColorRec

(cherry picked from commit f253ca856f415d9ab9856f7bca290ef5f3120b2d)

packages/rtl-objpas/src/inc/system.uitypes.pp

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