Sub load_contacts
APPSET.mCu.mVisible = True
If Not(cu.IsInitialized) Then
cu.Initialize
End If
' // add the main view panel to the current activity.
If Not(pnlContacts.IsInitialized) Then
pnlContacts.Initialize("")
Activity.AddView(pnlContacts, 0, 0, 100%x, 100%y)
pnlContacts.LoadLayout("contacts")
pnlContacts.BringToFront
lstContacts.TwoLinesAndBitmap.Label.TextColor = Colors.Black
lstContacts.TwoLinesAndBitmap.Label.TextSize = 16
lstContacts.TwoLinesAndBitmap.Label.Typeface = Typeface.DEFAULT_BOLD
lstContacts.TwoLinesAndBitmap.SecondLabel.TextColor = Colors.Black
lstContacts.TwoLinesAndBitmap.SecondLabel.TextSize = 14
lstContacts.TwoLinesAndBitmap.SecondLabel.Typeface = Typeface.DEFAULT
lstContacts.TwoLinesAndBitmap.ImageView.SetLayout(lstContacts.TwoLinesAndBitmap.ItemHeight * .1,lstContacts.TwoLinesAndBitmap.ItemHeight * .1,lstContacts.TwoLinesAndBitmap.ItemHeight * .8 ,lstContacts.TwoLinesAndBitmap.ItemHeight * .8)
lstContacts.FastScrollEnabled = True
' // load the data
refesh_contacts_list
Else
Activity.AddView(pnlContacts, 0, 0, 100%x, 100%y)
pnlContacts.Visible = True
pnlContacts.BringToFront
End If
End Sub