TFPImgProgressEvent

type TFPImgProgressEvent = procedure(

  Sender: TObject;

  Stage: TFPImgProgressStage;

  PercentDone: Byte;

  RedrawNow: Boolean;

  const R: TRect;

  const Msg: AnsiString;

  var Continue: Boolean

) of object;