Salve, ci risiamo ho provato a convertire un piccolo esempio con le B4XPages sperando di riuscirci ma continuava a darmi errori strani che preferisco allegare il file. L'esempio è una variante, estratto dal CardList che è un po' datato ma funziona bene allego link originale Card List. Spero che qualcuno possa darci un occhio e allegare il progetto convertito, mi serve sempre da studio, in realtà vorrei provare a inserirlo in un drawer, creando un menu con immagini e testo. Esempio il comando Activity.AddMenuItem3 non esiste su B4XPages come si sostitisce..
questo invece è il pezzo più importante da convertire...
AddMenuItem3:
Activity.AddMenuItem3("", "refresh", xui.LoadBitmapResize(File.DirAssets, "ic_cached_white_24dp.png", 32dip, 32dip, True), True)
Activity.AddMenuItem3("", "done", xui.LoadBitmapResize(File.DirAssets, "ic_done_white_24dp.png", 32dip, 32dip, True), True)
questo invece è il pezzo più importante da convertire...
Activity:
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("1")
Activity.AddMenuItem3("", "refresh", xui.LoadBitmapResize(File.DirAssets, "ic_cached_white_24dp.png", 32dip, 32dip, True), True)
Activity.AddMenuItem3("", "done", xui.LoadBitmapResize(File.DirAssets, "ic_done_white_24dp.png", 32dip, 32dip, True), True)
Dim bitmaps As List = Array("pexels-photo-446811.jpeg", "pexels-photo-571195.jpeg", "pexels-photo-736212.jpeg", "pexels-photo-592798.jpeg")
For i = 1 To 15
CLV1.Add(CreateItem(CLV1.AsView.Width, $"Item #${i}"$, bitmaps.Get(Rnd(1,5)-1)), "")
Next
End Sub
Private Sub CreateItem(Width As Int, Title As String, Image As String) As Panel
Dim p As B4XView = xui.CreatePanel("")
Dim height As Int = 90dip
If GetDeviceLayoutValues.ApproximateScreenSize < 4.5 Then height = 310dip
p.SetLayoutAnimated(0, 0, 0, Width, height)
p.LoadLayout("Card1")
lblTitle.Text = Title
ImageView1.SetBitmap(xui.LoadBitmapResize(File.DirAssets, Image, ImageView1.Width, ImageView1.Height, True))
Return p
End Sub