Главная страница | назад





Article #17744: Extracting RGB components of a color.

 Question and Answer Database
FAQ2744D.txt Extracting RGB components of a color.
Category :VCL
Platform :All
Product :All 32 bit
Question:
How do I extract the Red, Green, and Blue components of
a given color?
Answer:
Use the Window API functions GetRValue(), GetGValue(), and
GetBValue().
Example:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Canvas.Pen.Color := clRed;
Memo1.Lines.Add('Red := ' +
IntToStr(GetRValue(Form1.Canvas.Pen.Color)));
Memo1.Lines.Add('Red := ' +
IntToStr(GetGValue(Form1.Canvas.Pen.Color)));
Memo1.Lines.Add('Blue := ' +
IntToStr(GetBValue(Form1.Canvas.Pen.Color)));
end;
7/16/98 4:31:28 PM

Last Modified: 01-SEP-99