farbverlauf in %

[lbccaleb]

Danke, aber mein Problem wurde bereits gelöst!

Ich habe genau das, was ich wollte, es soll genauso sein, bin also super zufrieden^^

PS ja, habe mir den Eintrag in der CodeLib angesehen, ist aber nicht das was ich wollte, denn daß wollte ich:

Zitat von lbccaleb:

Joa danke, genau das wars was ich brauchte...
Danke..

Umgewandelt noch in eine Funktion (Math in Uses aufnehmen):

Delphi-Quellcode:

function GetColor(Prozent: integer): COLORREF;
  begin
    Result := RGB(255 * Min(100 - Prozent, 50) div 50, 255 * Min(Prozent, 50) div 50, 0);
  end;