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;