Farbwert zerlegen |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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;
var
R,G,B: Integer;
begin
R := GetRValue(Form1.Color);
G := GetGValue(Form1.Color);
B := GetBValue(Form1.Color);
end;