modifique el ejemplo TVisor, y lo uso en una aplicacion pero, lo llamo desde
una imagen que presento y le hago un zoom, y al salir del TVisor, la imagen
previa de donde fue llamado, desaparece.
por que?
METHOD Image1Click( oSender ) CLASS TProductos
With Object TVisor():New()
:oImage:oPicture := oSender:oPicture
:ShowModal()
End
RETURN Nil
Gracias
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
picture in picture
-
zeasoftware
- Mensajes: 1831
- Registrado: Mar Oct 11, 2005 9:53 am
picture in picture
Ramón Zea
Móvil: 01-993-231-62-29
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoftware/
Móvil: 01-993-231-62-29
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoftware/
picture in picture
Ramón,
> modifique el ejemplo TVisor, y lo uso en una aplicacion pero, lo llamo
> desde una imagen que presento y le hago un zoom, y al salir del TVisor, la
> imagen previa de donde fue llamado, desaparece.
> por que?
>
>
> METHOD Image1Click( oSender ) CLASS TProductos
> With Object TVisor():New()
> :oImage:oPicture := oSender:oPicture
Este es el problema. Aquí estás asignando directamente tu imagen a la imagen
del control TImage del visor, y cuando ese formulario se destruye también se
destruyen todos los recursos que utiliza, incluida la imagen.
Puedes usar un truco muy sencillo: asignar el nombre de la imagen para que
el control TImage la vuelva a cargar. Sería así:
:oImage:oPicture := oSender:oPicture:cName
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info
> modifique el ejemplo TVisor, y lo uso en una aplicacion pero, lo llamo
> desde una imagen que presento y le hago un zoom, y al salir del TVisor, la
> imagen previa de donde fue llamado, desaparece.
> por que?
>
>
> METHOD Image1Click( oSender ) CLASS TProductos
> With Object TVisor():New()
> :oImage:oPicture := oSender:oPicture
Este es el problema. Aquí estás asignando directamente tu imagen a la imagen
del control TImage del visor, y cuando ese formulario se destruye también se
destruyen todos los recursos que utiliza, incluida la imagen.
Puedes usar un truco muy sencillo: asignar el nombre de la imagen para que
el control TImage la vuelva a cargar. Sería así:
:oImage:oPicture := oSender:oPicture:cName
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info