Xailer & OZ Software

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?

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?
>