'Dichiarato in Global
type Item (Name as String, Bmp as Bitmap)
Dim L as list
Sub AddItem(Name as String, Bmp as Bitmap)
Dim NewItem as Item
NewItem.Name=Name
NewItem.Bmp=Bmp ' Genera Errore
L.Add(NewItem)
End Sub
Sub AddItem2(Name as String, Bmp as Bitmap)
Dim NewItem as Item
NewItem.Name=Name
Dim B2 as Bitmap
Dim Can as Canvas
Dim Rec1 as Rec
B2.InitializeMutable(40dip,40dip)
Can.Initialize2(B2)
Rec1.Initialize(0,0,40dip,40dip)
Can.DrawBitmap(Bmp,Rec1)
NewItem.Bmp=Can.Bitmap ' funziona
L.Add(NewItem)
End Sub
Sub DrawAll
Dim P as Panel
P.Initialize("")
Activity.AddView(P,0dip,0dip,40dip,100%y)
For I=0 L.Size-1
Dim MyItem as Item = L.Get(I)
Dim Bm as ImageView
P.AddView(Bm,0dip,i * 40dip, 40dip,40dip)
Bm.SetBackgroundImage(MyItem.Bmp) ' Va in errore
Next
End Sub