Da ich gerade eine kleine Grafikbearbeitung schreibe, kann ich da auch meinen Senf dazugeben:
statt
edit1.font.color := clgreen kannst du auch schreiben:
edit1.font.color :=
rgb(0, 255, 0) (volles grün)
für rot:
edit1.font.color :=
rgb(255, 0, 0) (volles rot)
Schreib dir dann ne kleine Schleife die den einen Wert erhöht und den anderen erniedrigt.
Ich hoffe das ist genau genug erklärt. Am Rande: die Funktion
RGB(rot, grün, blau) wird in der
OH nicht erläutert!