Source position: ellipses.pp line 29
procedure FillEllipseHashDiagonal(
Canv: TFPCustomCanvas;
const Bounds: TRect;
width: Integer;
const c: TFPColor
);