Buenos Dias
Estoy diseñando un visor de ficheros de imagen .
Defino el control TImage y su correspondiente objeto
Defino el objeto Picture ,pero no consigo que al verse este en el control
Timage se ajuste al espacio reservado para el.
Este es el codigo que uso
METHOD Refresca ( oSender ) CLASS TS_CATALOGO
::oLabel5:cText := transform((::cBase)->ART_PI1,"@e 999,999,999.99")
::oLabel6:cText := (::cBase)->ART_NOM
::oLabel7:cText := (::cBase)->ART_TREF
WITH OBJECT ::oImagen:=TPicture():New() //oSender
:cName := ::PATHIMG+rtrim((::cBase)->ART_COD)+".jpg"
:nWidth := ::oImage1:nWidth
:nHeight := ::oImage1:nHeight
:lScalable := .t.
:Create()
:Load(::PATHIMG+rtrim((::cBase)->ART_COD)+".jpg")
END
::oImage1:SetPicture(::oImagen)
::oImage1:Adjust(.t.)
retu nil
¿Que hago mal?
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.
Control TImage autoajustable
-
ignacio
- Site Admin
- Mensajes: 9463
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Control TImage autoajustable
Juan Jose,
Precisamente tiene un ejemplo de un visor de imagenes en samplesvisor.
Echele un vistazo, espero que le aclara sus dudas. En caso negativo le
rogaría que nos mandase un pequeño ejemplo o modifique el ejemplo Visor
mostrando el problema.
Un saludo,
"Juan José García" <correo@jjgsoft.biz> escribió en el mensaje
news:438aeec9$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Buenos Dias
> Estoy diseñando un visor de ficheros de imagen .
> Defino el control TImage y su correspondiente objeto
> Defino el objeto Picture ,pero no consigo que al verse este en el control
> Timage se ajuste al espacio reservado para el.
> Este es el codigo que uso
> METHOD Refresca ( oSender ) CLASS TS_CATALOGO
> ::oLabel5:cText := transform((::cBase)->ART_PI1,"@e 999,999,999.99")
> ::oLabel6:cText := (::cBase)->ART_NOM
> ::oLabel7:cText := (::cBase)->ART_TREF
>
> WITH OBJECT ::oImagen:=TPicture():New() //oSender
> :cName := ::PATHIMG+rtrim((::cBase)->ART_COD)+".jpg"
> :nWidth := ::oImage1:nWidth
> :nHeight := ::oImage1:nHeight
> :lScalable := .t.
> :Create()
> :Load(::PATHIMG+rtrim((::cBase)->ART_COD)+".jpg")
> END
> ::oImage1:SetPicture(::oImagen)
> ::oImage1:Adjust(.t.)
> retu nil
>
> ¿Que hago mal?
>
Precisamente tiene un ejemplo de un visor de imagenes en samplesvisor.
Echele un vistazo, espero que le aclara sus dudas. En caso negativo le
rogaría que nos mandase un pequeño ejemplo o modifique el ejemplo Visor
mostrando el problema.
Un saludo,
"Juan José García" <correo@jjgsoft.biz> escribió en el mensaje
news:438aeec9$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Buenos Dias
> Estoy diseñando un visor de ficheros de imagen .
> Defino el control TImage y su correspondiente objeto
> Defino el objeto Picture ,pero no consigo que al verse este en el control
> Timage se ajuste al espacio reservado para el.
> Este es el codigo que uso
> METHOD Refresca ( oSender ) CLASS TS_CATALOGO
> ::oLabel5:cText := transform((::cBase)->ART_PI1,"@e 999,999,999.99")
> ::oLabel6:cText := (::cBase)->ART_NOM
> ::oLabel7:cText := (::cBase)->ART_TREF
>
> WITH OBJECT ::oImagen:=TPicture():New() //oSender
> :cName := ::PATHIMG+rtrim((::cBase)->ART_COD)+".jpg"
> :nWidth := ::oImage1:nWidth
> :nHeight := ::oImage1:nHeight
> :lScalable := .t.
> :Create()
> :Load(::PATHIMG+rtrim((::cBase)->ART_COD)+".jpg")
> END
> ::oImage1:SetPicture(::oImagen)
> ::oImage1:Adjust(.t.)
> retu nil
>
> ¿Que hago mal?
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com