Convert TColor to COLORREF

Question

Has delphi a RTL function to Convert a TColor to COLORREF, if not how i can convert a TColor to COLORREF?

Answer 1

Check the Graphics.ColorToRGB function.

Converts a TColor value into an RGB representation of the color.

Call ColorToRGB to obtain an RGB representation of a color for using with Windows API calls. ColorToRGB strips away the information that is stored in the highest order bits about which palette to use for colors that are not always available.