Winkel mit PaintBox zeichnen!

[Flogo]

Wenn du einen Winkel zur Horizontalen (Also mit Winkel = 0 quer über den Bildschirm ) zeichnen willst brauchst du ja die X- und die Y- Koordinate des Zielpunktes. Dazu nimmst du den Sinus bzw Cosinus

Delphi-Quellcode:

  with Image1.Canvas do
  begin
    MoveTo(100, 100);
    LineTo(200, 100);
    Ziel.X := cos(Winkel) * LaengeDerLinie;
    Ziel.Y := sin(Winkel) * LaengeDerLinie;
    LineTo(Ziel.X, Ziel.Y);
  end;