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