Page 1 of 1

Setear TImage recorriendo ArrayBrowse (Solucionado)

Posted: Wed May 20, 2020 7:49 pm
by ryder1912
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.

Re: Setear TImage recorriendo ArrayBrowse

Posted: Thu May 21, 2020 7:38 am
by JavierCantarero
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

Re: Setear TImage recorriendo ArrayBrowse (Solucionado)

Posted: Thu May 21, 2020 10:49 pm
by ryder1912
Gracias. Les dejo el metodo. Saludos.

Code: Select all

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