FillRectangleHatch

procedure FillRectangleHatch(

  Canv: TFPCustomCanvas;

  x1: Integer;

  y1: Integer;

  x2: Integer;

  y2: Integer;

  aStyle: TFPBrushStyle;

  aWidth: Integer;

  aOriginX: Integer;

  aOriginY: Integer;

  const c: TFPColor

);