Farbwert verdunkeln bzw. aufhellen

[Dax]

Aufhellen beziehungsweise Abdunkeln ist leichter, als manche denken
Das Prinzip ist folgendes: Zu jeder Komponente (Rot, Grün, Blau) der Farbe wird ein Wert hinzugefüg oder abgezogen. Hier mal ein Beispielcode:

Delphi-Quellcode:

function Darken(C: TColor): TColor;
var T: TColor;
begin
  T := ColorToRGB(C);
  Result := ((T and $FF) + $01) or ((T and $FF00) + $0100) or ((T and $FF0000) +$010000);
end;

Keine Funktionalität garantiert