Delphi-Quellcode:
var
P : array [0..2] of TPoint;
begin
Canvas.Brush.Color := clred;
Canvas.Pen.Width := 2;
Canvas.Pen.Color := clBlack;
P[0] := Point(300,20);
P[1] := Point(10,300);
P[2] := Point(590,300);
Canvas.Polygon(P);
end;
Delphi-Hilfe :
Zitat:
Die Methode Polygon zeichnet eine Reihe von Linien auf der Zeichenfläche, die die als Parameter übergebenen Punkte der Reihe nach verbinden. Eine Linie vom letzten zum ersten Punkt schließt den Umriß.
procedure Polygon(Points: array ofTPoint);
Beschreibung
Mit dieser Methode könne Sie unter Verwendung des aktuellen Stifts eine in sich geschlossene, vieleckige Form zeichnen. Die Form wird mit dem aktuellen Pinsel gefüllt.
Der Parameter Points ist ein Array mit den Scheitelpunkten des Polygons.