Registriert seit: 17. Jul 2003
Ort: Aachen
350 Beiträge
Delphi 7 Enterprise
|
Re: Wie kann man eine Farbe langsam ´ändern
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 delay 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 . . .
|