Barra de Progress en Carga de Imagen

[Casimiro Noteví]

¿Qué tiene que ver una cosa con otra?
Preguntas por una barra de progreso.

[shoulder]

Cierto que pregunto por una barra de progreso, pero la ignora, probe como un ejemplo escribir en onprogress del Image1 un mensaje para ver que pasaba pero nunca pasa por ahi por eso es que no me carga el Progressbar.

Gracias.

[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