Farbe verdunkeln / aufhellen

[Steffen]

Hallo!

Ich habe ein kleines "Umsetzungsproblem" mit TColor...

Ich erhalte in einer Funktion als Übergabeparameter eine Farbe, also vom Typ TColor. Diese Farbe möchte ich nun abdunkeln bzw. aufhellen und dann als funktionsergebnis zurückliefern.

Delphi-Quellcode:

Function XY(Color : TColor) : TColor;
begin
  ???
end;

Mir fehlt momentan irgendwie der richtige Ansatz.

Kann mir jemand weiterhelfen?

Gruss,
Steffen

[DennyC]

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

[Steffen]

Danke Denny!

Das ist schon mal eine gute, wenn auch nicht optimale, Idee.

Ich werde gleich mal ein wenig damit "herum spielen"...

Gruss,
Steffen