Thema: Delphi Rechteck drehen?

Einzelnen Beitrag anzeigen

Flare

Registriert seit: 26. Jan 2006
Ort: Leipzig
529 Beiträge
 
Delphi 7 Professional
 
#1

Rechteck drehen?

  Alt 5. Apr 2006, 20:23
Hey ho!

Ich habe hier desen Quelltext:
Delphi-Quellcode:
procedure drawrect(p1,p2,p3,p4: TPoint);
begin
  Form.Canvas.MoveTo(p1.X, p1.Y);
  Form.Canvas.LineTo(p2.X, p2.Y);
  Form.Canvas.LineTo(p3.X, p3.Y);
  Form.Canvas.LineTo(p4.X, p4.Y);
  Form.Canvas.LineTo(p1.X, p1.Y);
end;

procedure draw();
var p1,p2,p3,p4: TPoint;
begin
  p1.X := round(position.X + 10*cos(2*Pi/360*-(winkel+45)));
  p1.Y := round(position.Y + 20*sin(2*Pi/360*-(winkel+45)));
  p2.X := round(position.X + 10*cos(2*Pi/360*-(winkel+90+45)));
  p2.Y := round(position.Y + 20*sin(2*Pi/360*-(winkel+90+45)));
  p3.X := round(position.X + 10*cos(2*Pi/360*-(winkel+180+45)));
  p3.Y := round(position.Y + 20*sin(2*Pi/360*-(winkel+180+45)));
  p4.X := round(position.X + 10*cos(2*Pi/360*-(winkel+270+45)));
  p4.Y := round(position.Y + 20*sin(2*Pi/360*-(winkel+270+45)));
  drawrect(p1,p2,p3,p4);
end;
und möchte damit ein Rechteck gedreht darstellen lassen. Nur irgendwie macht der das nicht ganz so wie ich möchte.
Über Canvas.Rectangle geht es nicht, da die Seiten ja schräg sein sollen, was dort ja nicht geht.
Kennt jemand eine Lösung für diese (scheinbar einfache aber für mich doch schwere) Drehung?


Flare
Willy Scheibel
  Mit Zitat antworten Zitat