Sub sv_ScrollChanged(index As Int)
'Log(index)
Dim fila As Int= (Round((index/altopanel)))+1
Dim ivb As Int = fila*2
Dim iva As Int = ivb-1
For a=0 To 4
If iva+a < totalregistros Then
If iv(iva+a).IsInitialized Then
If iv(iva+a).Visible=False Then cargaimagen(iva+a)
End If
End If
If ivb+a < totalregistros Then
If iv(ivb+a).IsInitialized Then
If iv(ivb+a).Visible=False Then cargaimagen(ivb+a)
End If
End If
Next
End Sub
Sub cargaimagen(indice As Int)
GetPicasso.RunMethodJO("load", Array(imagenurl.Get(indice-1))).RunMethodJO("resize", Array(180, 180)).runmethodjo("skipMemoryCache",Null).RunMethodJO("centerCrop", Null).RunMethodJO("into", Array(iv(indice)))
iv(indice).Visible=True
GetPicasso.RunMethodJO("invalidate", Array(imagenurl.Get(indice-1)))
iv(indice).Bitmap=Null
iv(indice).SetBackgroundImage(Null)
iv(indice).Invalidate
End Sub