Sub Globals
Private clv2 As CustomListView
Private xui As XUI
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
Dim NomeAttivita(5) As String
Dim Pre(5) As String
Dim Celeste As Long
Dim Sfondo As Long
NomeAttivita(0)="SCIALPINISMO":NomeAttivita(1)="MOUNTAIN BIKE":NomeAttivita(2)="ESCURSIONISMO":NomeAttivita(3)="BICI DA STRADA"
Pre(0)="uno" & CRLF & "a capo":Pre(1)="alfa":Pre(2)="beta":Pre(3)="ultimo" & CRLF & "a capo"
Celeste=Colors.Blue
For i = 0 To 3
'clv2.Add(CreateListItem($"Item #${i}"$, clv2.AsView.Width, 60dip,1234), $"Item #${i}"$)
clv2.Add(AggiungiAttivitaXUI (i,NomeAttivita(i),Pre(i), Sfondo) , i)
Next
End Sub
Sub AggiungiAttivitaXUI(N As Int, Nome As String, Preferenze As String, Sfondo As Long) As Panel
Dim p As B4XView = xui.CreatePanel("")
P.Color=Sfondo
p.Height=55dip
'--- icona
Dim IV As ImageView
IV.Initialize ("")
Select Case N
Case 0: IV.Bitmap=LoadBitmap(File.DirAssets,"skialp.png")
Case 1: IV.Bitmap=LoadBitmap(File.DirAssets,"trekking.png")
Case 2: IV.Bitmap=LoadBitmap(File.DirAssets,"mtb.png")
Case 3: IV.Bitmap=LoadBitmap(File.DirAssets,"bike.png")
End Select
IV.Gravity=Gravity.fill
P.AddView (IV,5dip,5dip,45dip,45dip)
'--- Nome
Dim Lb As Label
Lb.Initialize("")
If Activity.Height>800 Then
Lb.Gravity = Bit.Or(Gravity.Left, Gravity.CENTER_VERTICAL)
Lb.TextSize = 16
Else
Lb.Gravity = Bit.Or(Gravity.Left, Gravity.top)
Lb.TextSize = 14
End If
Lb.Text = Nome
Lb.Color = Sfondo : Lb.TextColor = Colors.Black : Lb.TextSize = 16 : Lb.Typeface = Typeface.DEFAULT_BOLD
P.AddView(Lb, 63dip, 0dip, 100%x-8dip , 53dip)
'--- tempi
Dim Lb As Label
Lb.Initialize("")
Lb.Text = Preferenze : Lb.Color = Sfondo : Lb.TextColor = Colors.Black : Lb.Typeface = Typeface.DEFAULT
If Activity.Height>800 Then
Lb.Gravity = Bit.Or(Gravity.Left, Gravity.CENTER_VERTICAL)
P.AddView(Lb, 205dip,0dip, 100%x, 53dip)
Lb.TextSize = 11
Else
P.AddView(Lb, 63dip,20dip, 100%x, 53dip)
Lb.Gravity = Bit.Or(Gravity.Left, Gravity.top)
Lb.TextSize = 11
End If
Return P
End Sub