Canvas: Rechtwinklige Linien erzeugen

[Bummi]

Delphi-Quellcode:

Type
TPArray=Array of Tpoint;

Function GetIt(P1,P2:TPoint):TPArray;
begin
  SetLength(Result,4);
  Result[0] := P1;
  Result[1].X := P1.X + (P2.X - P1.X) DIV 2;
  Result[1].Y := P1.Y;
  Result[2].X := Result[1].X;
  Result[2].Y := P2.Y;
  Result[3] := P2;
end;

procedure TForm3.Button1Click(Sender: TObject);
var
 P1,P2:TPoint;
begin
    P1 := Point(3,1);
    P2 := Point(20,99);
    Canvas.Polyline(GetIt(P1,P2));
end;