Mega Code Archive

 

Categories / Delphi / VCL

 

Extracting rgb components of a color

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;