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