TFPJPEGProgressManager

type TFPJPEGProgressManager = record

  pub: jpeg_progress_mgr;

  instance: TObject;

  last_pass: Integer;

  last_pct: Integer;

  last_time: Integer;

  last_scanline: Integer;

end;