|
Registriert seit: 10. Sep 2004
Ort: Dülmen
464 Beiträge
Delphi 7 Professional
|
Re: RGB werte einer Farbe ermitteln
16. Aug 2005, 10:24
Delphi-Quellcode:
procedure RGBToByte(Color: TColor; var R, G, B: Byte);
begin
R := Byte(Color);
Color := Color shr 8;
G := Byte(Color);
Color := Color shr 8;
B := Byte(Color);
end;
Stefan
"Geht nicht!" ist keine Fehlerbeschreibung und "Hab ich schon versucht!" keine Antwort!
Hey, it compiles! Ship it!
|