フリーソフト

TColor

[BCB] TColorからR,G,B値への変換

赤(R)、緑(G)、青(B)を取得するには、それぞれ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;