Source position: ellipses.pp line 26
procedure FillEllipsePattern(
Canv: TFPCustomCanvas;
const Bounds: TRect;
Pattern: TBrushPattern;
const c: TFPColor
);