Pixel Schneefall :D

[toshiba]

hey jungs und mädels....

ich hab da so ein problem.

ich muss linien... also canvas.moveto();canvas.lineto() nach unten laufen lassen!
wie mache ich das am besten?????

Delphi-Quellcode:

     var x,x0,y0:integer;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
        x:=random(8)+3;
        x0:=random(1500)+20;
        y0:=random(1500)+20;

  canvas.Pen.color:=clwhite;
  canvas.moveto(x+x0,y0-x);
  canvas.LineTo(x0-x,y0+x);
  canvas.moveto(x0-x,y0-x);
  canvas.LineTo(x0+x,y0+x);
  canvas.moveto(x0,y0-x);
  canvas.LineTo(x0,y0+x);
  canvas.moveto(x0-x,y0);
  canvas.LineTo(x0+x,y0);
  
end;

bis jetzt bewegt isch noch gar nichtss... wer kann mir helfen???