Polygone zeichnen
Nach oben zu Formen zeichnen
Um ein Polygon mit einer beliebigen Anzahl von Seiten auf einer Zeichenfläche zu platzieren, rufen Sie die Methode Polygon der Zeichenfläche auf.
Polygon übernimmt als einzigen Parameter ein Array von Punkten und verbindet diese Punkte mithilfe des Stiftes. Der letzte Punkt wird anschließend mit dem ersten Punkt verbunden, um das Polygon zu schließen. Nach dem Zeichnen der Linien füllt Polygon die Fläche innerhalb des Polygons mit dem Pinsel aus.
Der folgende Code zeichnet z. B. ein rechtes Dreieck in der unteren linken Hälfte eines Formulars:
Delphi
procedure TForm1.FormPaint(Sender: TObject);
var
vertices: array[0..2] of TPoint;
begin
vertices[0] := Point(10, 10);
vertices[1] := Point(10, ClientHeight - 10);
vertices[2] := Point(ClientWidth - 10, ClientHeight - 10);
Canvas.Polygon(vertices);
end
C++
void __fastcall TForm1::FormPaint(TObject *Sender) {
TPoint vertices[3];
vertices[0] = Point(10, 10);
vertices[1] = Point(10, ClientHeight - 10);
vertices[2] = Point(ClientWidth - 10, ClientHeight - 10);
Canvas->Polygon(vertices, 2);
}