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???