Hallo!
So ganz spontan fällt mir eine einfache aber nicht unbedingt optimale Variante ein... Zerlege die Ausgangsfarbe in ihre Rot/Grün/Blau-Bestandteile, z.B.
Code:
red:=GetRValue(ColorToRGB(Color));
Erhöhe bzw. verringere alle drei ausgelesenen Werte um jeweils den gleichen Betrag und weise das Ergebnis dem Funktions-Result zu:
Code:
Result :=
RGB(red,green,blue);
Dabei unbedingt darauf achten, dass 0 <= Farbwert <= 255 gilt. Vielleicht reicht Dir die Variante ja?!
Denny