Source position: fpditherer.pas line 28
type TFPDithererProgressEvent = procedure(
Sender: TObject;
Stage: TFPImgProgressStage;
PercentDone: Byte;
const Msg: AnsiString;
var Continue: Boolean
) of object;