Source position: extgraphics.pas line 82
procedure InitPolygon(
Canvas: TCanvas;
PaintRect: TRect;
RadAngle: Extended;
InitShapeProc: TInitShapeProc
);