把颜色转换成RGB 3个值分别输出代码,Delphi代码库,德仔网

代码语言

代码分类

【Delphi】把颜色转换成RGB 3个值分别输出

作者:jellyvice / 发布于2013/12/3/ 678

procedure ExtractRGB(const Color: Graphics.TColor; out Red, Green, Blue: Byte);
var
 RGB: Windows.TColorRef; // RGB equivalent of given Colour
begin
 RGB := Graphics.ColorToRGB(Color); // ensures system Colours are converted
 Red := Windows.GetRValue(RGB);
 Green := Windows.GetGValue(RGB);
 Blue := Windows.GetBValue(RGB);
end;

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

　　

试试其它关键字

　颜色转换成RGB　

同语言下

可能有用的

jellyvice贡献的其它代码(28)