farbverlauf in %

[himitsu]

Mathematik?

z.B.:

Delphi-Quellcode:

Farbe := (Trunc(255 / 100 * Prozent) * (clRed and $fefefe)) 
  or (Trunc(255 / 100 * (100 - Prozent) * (clLime and $fefefe));

Farbe := (255 * Prozent div 100 * (clRed and $fefefe)) 
  or (255 * (100 - Prozent) div 100 * (clLime and $fefefe));