Barra de Progress en Carga de Imagen

[Casimiro Noteví]

Debes poner tu código, porque así es imposible ayudar.
¿Qué es un itfPDFImage?

[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.

[ecfisa]

Hola shoulder.

¿ El contenido de la variable "archivo" es el nombre de un archivo .PDF ?

Saludos

[shoulder]

Sisi es un archivo pdf, lo que encontre que dentro de la clase es

Código Delphi [-]
TPDFImage(Image1.Picture.Graphic).OnProgress

Tendria que ver como setearlo pero me da error cuando lo programo.

[ecfisa]

Hola shoulder.

La verdad no sé como podrías implementarlo... Es que en realidad no se trata del evento OnProgress de un TImage sino de otro (un TPDFImage) y desconozco todo sobre ese componente.

Saludos

[shoulder]

Gracias igual Ecfisa, encontre que el onprogress no funciona fuera del formato jpeg y verdaderamente no encontre nada en la red como se hace un progreso o una imagen de espera cuando se carga un pdf.

[Casimiro Noteví]

Pon un icono animado antes y lo quitas después. No es lo mismo, pero "da el pego",

Código Delphi [-]
 iconoanimado.Show;
 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;
 iconoanimado.Hide;