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