Xailer & OZ Software

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/

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