Winkel mit PaintBox zeichnen!

[Binärbaum]

Man könnte folgende Prozedur verwenden, um zwei Linien in einem bestimmten Winkel zueinander zu zeichnen (ungetestet):

Delphi-Quellcode:

uses Math;
...
procedure Linien_mit_Winkel(x1, y1, x2, y2: Integer; winkel: Double);
var alpha, len, si,co: Double;
begin
  len:= sqrt(sqr(x1-x2)+sqr(y1-y2));
  alpha:= winkel+ arctan((y2-y1)/(x2-x1));
  SinCos(alpha, si, co);
  with Form1.Paintbox1.Canvas do begin
    MoveTo(x2, y2);
    LineTo(x1, y1);
    LineTo( Round(x1+ len*c), Round(y1+ len*s)); 
  end;//with
end;//proc

Zu den Parametern:
x1, y1: Koordinaten des Anfangspunktes der Grundlinie
x2, y2: Koordinaten des Endpunktes der Grundlinie
winkel: Winkel zwischen beiden Linien (im Bogenmaß!)

MfG
Binärbaum