Auf einem Canvas ein Dreieck zeichnen und drehen können

[gitta]

Herlichen Dank für die Antwort.

Sorry aber ich habs immer noch nicht verstanden (
Erkennt ihr den Fehler?

Code:

procedure TForm1.TrackBar1Change(Sender: TObject);
var
  A,B,C :TPoint;
  x,y:integer;
  Winkel,alpha:Double;
  Hoeche,Breite,Seitenlaenge:double;
  tanWinkel, Betta:Double;

begin
  Winkel := TrackBar1.position;
  x:=100;
  y:=100;
  Hoeche := 35;
  Breite := 15;
  Seitenlaenge := sqrt(sqr(Hoeche)+sqr(Breite/2));

 with form1 do
 begin
   Form1.refresh;
   A := Point(x,y);

   B.x:=trunc(A.x-(Seitenlaenge)*sin(Winkel/180*PI));
   B.y:=trunc(A.y-(Seitenlaenge)*cos(Winkel/180*PI));

   C.x:=trunc(A.x+(Seitenlaenge)*sin(Winkel/180*PI));
   C.y:=trunc(A.y+(Seitenlaenge)*cos(Winkel/180*PI));

   canvas.Polygon([C,A,B]);
 end;{with}

end;

Gruß Gitta.