Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("SetAll")
Panel1.SetLayout(0, 0, 100%x, 100%y)
LV1.SetLayout(0, 0, 100%x, 100%y)
LV1.ScrollingBackgroundColor = Colors.Transparent ' need this to avoid the ugly black background when scrolling
Dim lb, lbl1,lbl As Label
lb = LV1.SingleLineLayout.Label
lb.Color = Colors.ARGB(140,90,90,120)
lb.TextColor = Colors.ARGB(240,180,180,20)
LV1.SingleLineLayout.ItemHeight = 30dip ' small height group label
lbl = LV1.TwoLinesAndBitmap.Label
lbl.TextColor = Colors.White
lbl1 = LV1.TwoLinesAndBitmap.SecondLabel
LV1.TwoLinesAndBitmap.SecondLabel.Width = LV1.Width - 50dip
' the above line prevents the text displaying out of view. Allows text to wrap within the view
lbl1.TextColor = Colors.ARGB(240,190,180,0)
If DefCM.GetDevicePhysicalSize < 6 Then ' if phone
LV1.TwoLinesAndBitmap.ItemHeight = 70dip ' set item height and text size
lbl.TextSize = 18
lbl1.TextSize = 14
Else ' if tablet
LV1.TwoLinesAndBitmap.ItemHeight = 80dip
lbl.TextSize = 24
lbl1.TextSize = 18
End If
AddLVItems
End Sub