(A) Mal die Hilfe gelesen
Zitat:
Zeichnet eine Folge von Linien auf der Zeichenfläche. Dazu werden die in Points übergebenen Punkte durch Linien miteinander verbunden. Zuletzt wird die Form durch eine Linie zwischen dem Letzten und dem ersten Punkt geschlossen.
Klasse
TCanvas
Syntax
[Delphi] procedure Polygon(var Points: array of TPoint);
Beschreibung
Mit der Methode Polygon können Sie unter Verwendung des aktuellen Stifts eine in sich geschlossene, vieleckige Form zeichnen. Die fertiggestellte Form wird mit den aktuell für Brush festgelegten Parametern gefüllt.
Der Parameter Points ist ein Array mit den Scheitelpunkten des Polygons.
, also geht es nur so
(B) Tipp: Wandle den array of "Float"-points in ein Array of "Integer"-Points einma komplett um und zeichne dann dein(e) Polygon(e)
(C) verwende statt Trunc
Round(wird genauer)!