Auf canvas wird nicht gezeichnet

[Chuqa]

Hallo, und zwar hab ich folgenden Code:

Code:

procedure drehen;
begin
  with Form1.PaintBox2 do
        SetViewportOrgEx(Form1.PaintBox2.Canvas.Handle,20,20,nil);
  trans2d(0,0);
  Form1.PaintBox2.Canvas.MoveTo(Round(x),Round(y));
  trans2d(100,0);
  Form1.PaintBox2.Canvas.LineTo(Round(x),Round(y));
  trans2d(90,10);
  Form1.PaintBox2.Canvas.LineTo(Round(x),Round(y));
  trans2d(100,0);
  Form1.PaintBox2.Canvas.MoveTo(Round(x),Round(y));
  trans2d(90,-10);
  Form1.PaintBox2.Canvas.LineTo(Round(x),Round(y));
end;

procedure trans2d(dx,dy:Single);
var sinus,cosinus:Single;
begin
  sinus:=sin(alpha);
  cosinus:=cos(alpha);
  x:=x0+dx*cosinus-dy*sinus;
  y:=y0+dx*sinus+dy*cosinus;
end;

allerdings wird dabei nicht gezeichnet. Woran liegt das? Wenn ich die Nullpunktverschiebung rauslasse wird gezeichnet!

Gruß Chuqa

[Chuqa]

Kann das sein, dass das an der Drehung des ersten Punktes also des Ursprungs liegt? Denn wenn wich die Zeile

Code:

trans2d(0,0)

rausnehmen und stattdessen für den ersten Punkt

Code:

Form1.PaintBox2.Canvas.MoveTo(0,0);

schreibe klappt es auch wunderbar. Aber warum?

Gruß Chuqa

[Harald]

Hallo,

Du rechnest da was mit dem Winkel alpha aus - wo kommt der denn her?

Gruß
Harald

[Chuqa]

Den hatt ich als Konstante global vereinbart. Hat den Wert Pi/4 gehabt. Inzwischen kommt der Wert allerdings von einem SpinEdtit. Wie gesagt, wenn ich ich die Drehung des ersten Punktes rauslasse, funktioniert alles wunderbar. Kann es sein, dass durch die Drehung des Ursprungs das gesamte koordinatensystem um eben diese Pi/4 gedreht wird?

Gruß Chuqa

[Harald]

Eigentlich verschiebst Du ja nix beim ersten Aufruf - Du rufst tran2d mit (0, 0) auf ... da kommt dann wieder x0, y0 raus - oder?

Gruß
Harald

[Chuqa]

Ja im Prinzip schon, aber wenn ich den Eintrag drin lasse, erscheint in der PaintBox dann nichts. Wenn ich den Koordinatenursprung dann umsetze z.B.

Code:

with Form1.PaintBox2 do
        SetViewportOrgEx(Canvas.Handle,0,10,nil);

dann ist die Zeichnung zwar verschoben, aber nicht mehr komplett. wenn ich dann die y-Koordinate noch weiter erhöhe, wandert das Pfeil langsam aus der Paintbox hinaus bis er schließlich bei ca. 50 gar nicht mehr zu sehen ist.

Gruß Chuqa