[Delphi] TColor 와 R,G,B 전환하기

 

var

R, G, B: Integer; 

aColor, SelectColor: TColor;

 

begin 

// 일단 TColor 를 랜덤하게 세팅 (이미 이걸로 RGB->TColor 완성..-_-) 

aColor:=PaletteRGB(Random(255), Random(255), Random(255)); 

 

// TColor -> RGB 

R:=GetRValue(aColor);

G:=GetGValue(aColor); 

B:=GetBValue(aColor); 

  

// RGB -> TColor 

SelectColor:=RGB(R,G,B); 

// 맨 처음 문장처럼 PaletteRGB(R,G,B) 를 써도 무방하다. 

end; 

 

 

 

예를 들어 TLabel 의 폰트의 색깔은 TColor 인데 Edit 박스 3개를 이용하여 R,G,B 값을 각각 받아들여 폰트의 색깔을 바꾸려고 한다면, 아래와 같이 하면 된다.

 

Label1.Font.Color:=RGB(StrToInt(EditR.Text), StrToInt(EditG.Text), StrToInt(EditB.Text));