Source position: polygonfilltools.pp line 44
procedure FillPolygonPattern(
Canv: TFPCustomCanvas;
const Points: array of TPoint;
Winding: Boolean;
Color: TFPColor;
Pattern: TBrushPattern
);