Thanks for the prompt reply, here is the rest:
Sub CreateDataListItem2(row As Int,editable As Int,texts() As String,objtype As Int, Width As Int, Height As Int) As Panel
Dim p As Panel
Dim textsize As Int
textsize=17
p.Initialize("datapanel")
p.Color = Colors.rgb(173,216,230)
Dim lbl As Label
lbl.Initialize("")
lbl.Gravity = Bit.OR(Gravity.CENTER_VERTICAL, Gravity.LEFT)
lbl.text = texts(0)
lbl.textsize = textsize
lbl.TextColor = Colors.Black
lbl.Tag=editable
Dim lbl2 As Label
lbl2.Initialize("")
lbl2.Gravity = Bit.OR(Gravity.CENTER_VERTICAL, Gravity.LEFT)
lbl2.text = texts(0)
lbl2.textsize = textsize
lbl2.TextColor = Colors.Black
lbl2.text=texts(1)
p.AddView(lbl, 2dip, 2dip, 130dip, Height - 4dip) 'view #0
If objtype=0 Then ' text
Dim txt As EditText
txt.Initialize("DataEditText")
txt.textsize = textsize
txt.Wrap=False
txt.TextColor = Colors.Black
txt.Color=Colors.white
txt.text=texts(2)
txt.Tag=row
If IsNumber(texts(3)) Then
txt.InputType=txt.INPUT_TYPE_DECIMAL_NUMBERS
End If
If editable=0 Then
txt.Enabled=False
Else
txt.Enabled=True
End If
p.AddView(txt, 135dip, 2dip, 100dip,39dip) 'view #1
Else If objtype=1 Then ' combo
End If
p.AddView(lbl2,2dip, 40dip, 475dip,39dip) 'view #2
Return p
End Sub
Need to get txt.Tag somehow on TextChanged event...