|
Registriert seit: 5. Jun 2007
117 Beiträge
|
Re: Object bewegung (richtungen)
28. Jun 2007, 17:07
var
Form1: TForm1;
x1,y1,winkel: double;
x,y: integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
winkel := 40;
x := 100;
y := 100;
paintbox1.canvas.Pen.Color := clblack;
Paintbox1.Canvas.MoveTo(100,100);
x1 := 100+cos(winkel);
y1 := 100+sin(winkel);
x := round(x1 * 20);
y := round(y1 * 20);
Paintbox1.Canvas.LineTo(x,y);
end;
wieso geht das nicht?
|