Home » Tipps & Tricks » Grafik » Sonstiges » Farbwert zerlegen

Farbwert zerlegen

Farben sind in Delphi nach folgendem Schema aufgebaut:

$xxBBGGRR

Mit folgenden Funktionen bekommt man die einzelnen Rot-,Grün- und Blauwerte als Integer zurück.

procedure TForm1.Button1Click(Sender: TObject);
var
  R,G,B: Integer;
begin
  R := GetRValue(Form1.Color);
  G := GetGValue(Form1.Color);
  B := GetBValue(Form1.Color);
end;