Polygone zeichnen

Aus RAD Studio
Wechseln zu: Navigation, Suche

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);
}

Siehe auch