Dann übernimm einfach nur den Wert der dieser Farbkonastanten,
oder trag die Berechnungen in die
RGB-Funktion ein?
Delphi-Quellcode:
Farbe :=
{red}(255 * Prozent
div 100)
or (255 * (100 - Prozent)
div 100 * $0100);
Farbe :=
RGB(255 * Prozent
div 100, 255 * (100 - Prozent)
div 100, 0);