Source position: pixtools.pp line 56
procedure FillRectangleImage(
Canv: TFPCustomCanvas;
x1: Integer;
y1: Integer;
x2: Integer;
y2: Integer;
const Image: TFPCustomImage
);