[BCB] TColorからＲ，Ｇ，Ｂ値への変換

赤（Ｒ）、緑（Ｇ）、青（Ｂ）を取得するには、それぞれGetRValue、GetGValue、GetBValueを使う。

（例）
byte R=GetRValue(clBlue);

[BCB,Delphi] RGBとHLSの変換

#include <GraphUtil.hpp>

void __fastcall ColorRGBToHLS(unsigned clrRGB, Word &Hue, Word &Luminance, Word &Saturation);

unsigned __fastcall ColorHLSToRGB(Word Hue, Word Luminance, Word Saturation);

[BCB] TColorをRGB値に変換する

TColorをR,G,Bの値に分解する関数です。

void TColor2RGB(TColor Color, Byte &R, Byte &G, Byte &B)
{
　int RGB=ColorToRGB(Color);

　R=RGB&0xFF;
　G=(RGB>>8)&0xFF;
　B=(RGB>>16)&0xFF;
}

[Delphi] TColorにRGB値を代入する

var
　Color : TColor;
begin
　//RGBの引数はR,G,Bの順番
　Color:=RGB(255,0,0);
end;