将TColor转换为COLORREF

Del*_*bie 8 delphi

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

RRU*_*RUZ 13

检查Graphics.ColorToRGB函数.

将TColor值转换为颜色的RGB表示.

调用ColorToRGB以获取颜色的RGB表示形式,以便与Windows API调用一起使用.ColorToRGB剥离了存储在最高位的信息,这些信息关于哪些调色板用于不总是可用的颜色.