Danke für die Antwort!
Hab es jetzt folgendermaßen umgesetzt:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var Ax,Bx,Cx,Ay,By,Cy:integer;
begin
winkel:=strtoint(Edit1.Text);//(45)
Ax := round(cos(radtodeg(winkel)) * A.x - sin(radtodeg(winkel)) * A.y);
Ay := round(sin(radtodeg(winkel)) * A.x + cos(radtodeg(winkel)) * A.y);
A:=Point(Ax,Ay);
Bx := round(cos(radtodeg(winkel)) * B.x - sin(radtodeg(winkel)) * B.y);
By := round(sin(radtodeg(winkel)) * B.x + cos(radtodeg(winkel)) * B.y);
B:=Point(Bx,By);
Cx := round(cos(radtodeg(winkel)) * C.x - sin(radtodeg(winkel)) * C.y);
Cy := round(sin(radtodeg(winkel)) * C.x + cos(radtodeg(winkel)) * C.y);
C:=Point(Cx,Cy);
Image1.Canvas.Polygon([A,B,C]);
end;
Allerdings funktioniert das nicht so wie es soll. Es wird kein Dreieck gezeichnet, und die Werte für z.B. Bx liegen bei -100...
Was mache ich falsch?
Hab auch noch das Test-Projekt als Attachement hinzugefügt, vll. wird dadurch eher klar wie ich mir das vorstelle^^
MfG