Hola amigos;
tengo el siguiente problema al tratar de adaptar esta vista tomada de este hilo: https://www.b4x.com/android/forum/t...listview-cross-platform-customlistview.84501/
lo que mas me llamo la atención es poder re-dimensionar las imágenes para que se acomoden felizmente al image donde las cargo. el problema es que para utilizar esta clase pide que la imagen este guardada en el dispositivo, pero yo lo que hago es cargarlas desde la web.
codigo para redimencionar imagenes:
las imágenes las cargo con un servicio ImageDownloader
alguna ayuda? alguien ya le paso esto?
las imagenes que adjunto el LadoA es el redimencionado el B no
tengo el siguiente problema al tratar de adaptar esta vista tomada de este hilo: https://www.b4x.com/android/forum/t...listview-cross-platform-customlistview.84501/
lo que mas me llamo la atención es poder re-dimensionar las imágenes para que se acomoden felizmente al image donde las cargo. el problema es que para utilizar esta clase pide que la imagen este guardada en el dispositivo, pero yo lo que hago es cargarlas desde la web.
codigo para redimencionar imagenes:
B4X:
Img1.SetBitmap(xui.LoadBitmapResize(File.DirAssets, Image, Img1.Width, Img1.Height, True))
las imágenes las cargo con un servicio ImageDownloader
B4X:
Sub Download (ImageViewsMap As Map)
For i = 0 To ImageViewsMap.Size - 1
tasks.Put(ImageViewsMap.GetKeyAt(i), ImageViewsMap.GetValueAt(i))
Dim link As String = ImageViewsMap.GetValueAt(i)
If cache.ContainsKey(link) Then
Dim iv As ImageView = ImageViewsMap.GetKeyAt(i)
iv.SetBackgroundImage(cache.Get(link))
Else If ongoingTasks.ContainsKey(link) = False Then
ongoingTasks.Put(link, "")
Dim j As HttpJob
j.Initialize(link, Me)
j.Download(link)
End If
Next
End Sub
Sub JobDone(Job As HttpJob)
ongoingTasks.Remove(Job.JobName)
If Job.Success Then
Dim bmp As Bitmap = Job.GetBitmap
cache.Put(Job.JobName, bmp)
If tasks.IsInitialized Then
For i = 0 To tasks.Size - 1
Dim link As String = tasks.GetValueAt(i)
If link = Job.JobName Then
'guardo temporal
Dim iv As B4XView = tasks.GetKeyAt(i)
Dim B As Bitmap = bmp
Dim o As OutputStream
o=File.OpenOutput(File.DirDefaultExternal,"/cache/temp.jpg",False)
B.WriteToStream(o,100,"JPEG")
o.Close
'cargo imagen guardada
iv.SetBitmap(xui.LoadBitmapResize(File.DirDefaultExternal,"/cache/temp.jpg", iv.Width, iv.Height, True))
'Sleep(1)
End If
Next
End If
Else
End If
Job.Release
End Sub
alguna ayuda? alguien ya le paso esto?
las imagenes que adjunto el LadoA es el redimencionado el B no