Private tvMembers As TableView
Dim tc As TableCell=tvMembers.AddSingleLine("")
tc.CustomView=Createitem2(tvMembers,sMemberName,sMemberNumber,255,255,255,255,30,Colors.Black)
tc.Tag=sMemberNumber
Private Sub Createitem2(tvTableview As TableView, sLine1Value As String,sLine2Value As String, iAlpha As Int, iRed As Int, iGreen As Int, iBlue As Int,iFontSize As Int,iFontColor As Int) As Panel
Dim oPanel As Panel
Dim lblLine1Data As Label
Dim lblLine2Data As Label
Dim iOffset As Int=0
oPanel.Initialize("2ItemPanel")
lblLine1Data.Initialize("line1data")
lblLine1Data.Text=sLine1Value
lblLine1Data.Tag=sLine1Value
lblLine1Data.color=Colors.ARGB(iAlpha,iRed,iGreen,iBlue)
lblLine1Data.Font=Font.CreateNew(iFontSize)
lblLine1Data.TextColor=iFontColor
iOffset=tvTableview.RowHeight/2
oPanel.Width=100%x
oPanel.Height=tvTableview.RowHeight
oPanel.AddView(lblLine1Data,0,0,100%x,tvTableview.RowHeight/2)
'Line 2
lblLine2Data.Initialize("line2data")
lblLine2Data.Text=sLine2Value
lblLine2Data.Tag=sLine2Value
lblLine2Data.color=Colors.ARGB(iAlpha,iRed,iGreen,iBlue)
lblLine2Data.Font=Font.CreateNew(iFontSize)
lblLine2Data.TextColor=iFontColor
oPanel.AddView(lblLine2Data,20dip,iOffset,100%x ,tvTableview.RowHeight/2)
Return(oPanel)
End Sub
Sub tvMembers_SelectedChanged(SectionIndex As Int, Cell As TableCell)
Try
'Get the Cell Tag value
sGlobalKey=Cell.Tag
'Get the 1 line label tag value
sGlobalLine1Tag=Cell.CustomView.GetView(0).Tag
sGlobalLine2Tag=Cell.CustomView.GetView(1).Tag
Catch
oError.ShowLastException("tvMember Selected Changed")
EndTry
End Sub