delphi – 将TColor转换为COLORREF

delphi有一个RTL函数将TColor转换为 COLORREF,如果不是我怎么能将TColor转换为COLORREF？

解决方法

检查 Graphics.ColorToRGB功能.

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.