Sub DA_GetLayout(Position As Int, ItemID As Long, ItemTag As String) As Panel
Dim p As Panel
p.Initialize("")
Dim iv As ImageView
iv.Initialize("iv")
iv.Gravity = Gravity.Fill
p.AddView(iv, 1dip, 1dip, (pnlGrid.Width/NumCols)-2dip, (pnlGrid.Width/NumCols)-2dip)
Return p
End Sub
Sub DA_GetContent(Position As Int, ItemID As Long, ItemTag As String, ContentPanel As Panel) As Panel
Try 'change to capture the exception
Dim iv1 As ImageView = ContentPanel.GetView(0)
ContentPanel.Color = Colors.White
Dim Bitmap1 As Bitmap
Bitmap1.InitializeSample(File.DirAssets, GridItems.Get(ItemID), 200, 200)
iv1.Bitmap = Bitmap1
iv1.Visible = True
Catch
ToastMessageShow(LastException.Message & " - " & ItemID, False)
Log(LastException)
Log("ItemID: " & ItemID)
End Try
Return ContentPanel
End Sub