Setear TImage recorriendo ArrayBrowse (Solucionado)
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.
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.