Einzelnen Beitrag anzeigen

Chris1986

Registriert seit: 17. Jul 2003
Ort: Aachen
350 Beiträge
 
Delphi 7 Enterprise
 
#8

Re: Wie kann man eine Farbe langsam ´ändern

  Alt 10. Feb 2004, 01:03
Hab gerade das probiert:

Delphi-Quellcode:
procedure TForm1.fade;
var rot,
    gruen: byte;
begin
  gruen := 255;
  for rot := 0 to 255 do
  begin
    Form1.Color := rgb(rot,gruen,0);
    dec(gruen);
    delay(2);
  end;
end;
Funktioniert dank Luckies delaydelay Prozedur prima

[Edit=Christian] Ups, es ist ja ne Prozedur [/Edit]
MfG
Christian
Es gibt nur 10 Typen von Menschen auf der Welt:
Die, die Binärcode verstehen und die, die es nicht tun . . .
  Mit Zitat antworten Zitat