Analog dazu kann man Farben heller machen:
Delphi-Quellcode:
function Heller(farbe: TColor; prozent: Byte): TColor;
var c: array [0..2] of Word;
i: Integer;
begin
c[0]:= (farbe and $FF);
c[1]:= (farbe and $FF00) shr 8;
c[2]:= (farbe and $FF0000) shr 16;
for i:= 0 to 2 do begin
c[i]:= (c[i]* (100 + prozent)) div 100;
if c[i]>255 then c[i]:= 255;
end;
Result:= c[0] + (c[1] shl 8) + (c[2] shl 16);
end;
Prozent liegt hier im Bereich von 0 bis 255. Bei einem Wert von 0 erhält man die Farbe selbst, bei 100 ist das Ergebnis eine doppelt so helle Farbe. (ebenfalls ungetestet)
MfG
Binärbaum