Eine Möglichkeit wäre folgende:
Delphi-Quellcode:
Procedure Fade;
var col: TColor;
Begin
for col:= clgreen downto clred do Begin
Form1.Color := col;
Application.Processmessages;
End;
End;
Allerdings solltest du das nicht so übernehmen, da
1. eine riesige Menge Farben dazwischenliegen und das ganze ziemlich Rechenaufwendig wird.
2. auch sämtliche Schatierungen der Zwischenfarben dazugehören. Es würde also von Grün zu grau zu schwarz, vom nächsten Grünton zu grau zu schwarz, usw.
Du könntest alle Farben, die du als Zwischentöne haben möchtest in einem eigenen Typen zusammenfassen und dafür diese Schleife durchlaufen. Vielleicht liegen die Vollfarben auch in bestimmten Abständen voneinander, so dass du den nächsten Vollton errechnen kannst. Weiss aber nicht, ob das stimmt und wie dieser Abstand ist.