Xailer forum

Publicado: **Mié May 20, 2020 7:49 pm**

Buenas a todos. Como hago para actualizar un TImage recorriendo un ArrayBrowse con direcciones de varias imagenes? Cuando voy recorreindo el array tira error.
Hice el procedimiento GetData pero no funciona el LoadFromStream y tampoco LoadFromFile.

METHOD TBrImagenColumn1GetData( oSender, Value, nImage ) CLASS TABMProductos

if ::oTBrImagen:nArrayAt>=1 .and. ::oTBrImagen:nArrayAt<=Len(::oTBrImagen:aArrayData)

// Asingo la Imagen para mostrar
::ImgProd:oPicture := TPicture():LoadFromStream(Value)
::ImgProd:refresh()
endif
RETURN Nil

Bueno, saludos.

Publicado: **Jue May 21, 2020 7:38 am**

Buenas, prueba con OnChange, pero el error te lo está dando el LoadFromStream, yo creo que deberías de usar LoadFromFile, nunca lo use, pero prueba a ver
Saludos

Publicado: **Jue May 21, 2020 10:49 pm**

Gracias. Les dejo el metodo. Saludos.

Código: Seleccionar todo

METHOD TBrImagenChange( oSender, lBookMarkChanged ) CLASS TABMProductos
local cArchivo:=''

 if ::oTBrImagen:nArrayAt>=1 .and. ::oTBrImagen:nArrayAt<=Len(::oTBrImagen:aArrayData)

   cArchivo:=::oTBrImagen:aArrayData[::oTBrImagen:nArrayAt][1]
   cArchivo:=AllTrim(cArchivo)
      if File(cArchivo) 
         // ::ImgProd:lAutoFit:=.T.
         ::ImgProd:oPicture:=tPicture():LoadFromFile(cArchivo)
         ::ImgProd:Refresh()
      endif
      
 endif
RETURN Nil

Xailer forum

Setear TImage recorriendo ArrayBrowse (Solucionado)

Setear TImage recorriendo ArrayBrowse (Solucionado)

Re: Setear TImage recorriendo ArrayBrowse

Re: Setear TImage recorriendo ArrayBrowse (Solucionado)