Rechtwinkeliges Dreieck zeichnen

[BlueStarHH]

Danke, mit eurer Hilfe habe ich es geschafft:

Delphi-Quellcode:

{**
  Zeichnet ein rechtwinkliges Dreieck mit Alpha 45°, Beta=45° und waagerechter
  Hypotenuse.

  @param Canvas Zeichenfläche.
  @param TopLeft Startpunkt der Hypotenuse.
  @param Width Breite der Hypotenuse.
  @param SpikeTop Spitze ober- oder unterhalb der Hypotenuse zeichnen?
  @return Position der Spitze.
*}

function DrawTriangle90(Canvas: TCanvas; TopLeft: TPoint; Width: Integer;
  SpikeTop: Boolean): TPoint;
var
  H, Direction: Integer;
begin

  if SpikeTop then
    Direction := -1
  else
    Direction := 1;

  H := Width div 2;
  Result := Point(TopLeft.X + H, TopLeft.Y + H * Direction);
  Canvas.Polygon([TopLeft, Point(TopLeft.X + Width, TopLeft.Y), Result]);
end;

Beispiel:
  DrawTriangle90(PaintBox1.Canvas, Point(50, 60), 30, True);