Source position: polygonfilltools.pp line 38
procedure FillPolygonDiagonal(
Canv: TFPCustomCanvas;
const Points: array of TPoint;
Winding: Boolean;
Color: TFPColor;
Width: Integer
);