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