Textfarbe faden

[glkgereon]

achso, ich hab mir noch mal wort für wort alles durchgelesen, jetzt hab ichs verstanden...

also, ich würds so machen:

Delphi-Quellcode:

{also, ich gehe von dieser farbe aus 212,208,200, 
und davon, das dass ein rgb, und kein grb ist, sonst muss man es halt umstellen...}

repeat
blau:=blau+1;//symbolisch
until blau=rot;

repeat
gruen:=gruen+1;
until gruen=rot;

//bis hier wird sichergestellt, das es ein echtes grau ist, dann dies:

for rot:=rot downto 0 do 
     begin
     gruen:=rot;
     blau:=rot;
     sleep(100);//oder halt mehr, oder weniger....
     end;

//so, das wärs