Es gibt die Functionen
Delphi-Quellcode:
GetRValue(Value:Tcolor):Byte;
GegGValue(Value:Tcolor):Byte;
GetBValue(Value:Tcolor):Byte;
Mit denen kannst du dir die
RGB werte auslesen
das AUsrechen der neuen ist ja wohl hoffentlich nicht dein Problem.
Dann gibts nocht
rgb(r,g,b:Byte):Tcolor;
Für die Rückrichtung.