Einzelnen Beitrag anzeigen

Dax
(Gast)

n/a Beiträge
 
#2

Re: Farbwert verdunkeln bzw. aufhellen

  Alt 31. Jan 2005, 13:44
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
  Mit Zitat antworten Zitat