Zitat von
lbccaleb:
... habe genau das, was ich wollte, es soll genauso sein, bin also super zufrieden^^
Nun die Funktion GetColor() macht doch nichts anderes als:
farbe := ColorsBetween([clRed, clYellow, TColor($00FF00)], prozent / 100.0);
Wenn du irgendwann mal die Farben Rot, Gelb und Grün ändern möchtest, dann bist du doch mit der ColorsBetween()-Funktion viel besser bedient.
Ausserdem liefert GetColor() stufige Farben, weil der Farbraum nicht komplett abgedeckt wird.
Mit ColorsBetween() bekommt man einen völlig gleichmässigen Farbverlauf.
Siehe Anhang - der untere Farbverlauf hat Stufen, der obere nicht.