Barra de Progress en Carga de Imagen

[shoulder]

El tpdfimage es una clase para pdfs dentro de una TImage (The class TPDFImage registers as a graphics class for PDF files with TPicture. With this class you can open a PDF
in the same way you do with other graphics in delphi. There are advanced features available for selecting the page to load and to change the resolution / zoom factor.). El use es itfPDFImage y funciona muy bien. El tema que se carga el archivo pdf en Timage.

Este es el codigo :

Código Delphi [-]

 Image1.Picture.loadFromFile(archivo);
 TPDFImage(Image1.Picture.Graphic).LastPage;
 Label2.Caption:='Página Actual : ' + IntToStr(TPDFImage(Image1.Picture.Graphic).CurrentPage);
 Label1.Caption:='Páginas : ' + IntToStr(TPDFImage(Image1.Picture.Graphic).Pagecount);
 Scrollbar1.SetFocus;

Pero el archivo como no es un jpeg es un pdf, por alguna razon el Image1.onprogress lo ignora.