Private Sub B4XFloatTextField1_EnterPressed
Dim B4xFld As B4XFloatTextField
B4xFld = Sender
Dim edtText As EditText = B4xFld.TextField
Dim p As B4XView = B4xFld.TextField.Parent.parent
Dim tg As B4XPrefItem = p.Tag
If SubExists(Main, "Text_EnterPressed") Then
CallSub3(Main, "Text_EnterPressed", edtText, tg)
End If
End Sub
private Sub B4XFloatTextField1_TextChanged (Old As String, New As String) 'text/multiline text
Dim B4xFld As B4XFloatTextField
B4xFld = Sender
Dim p As B4XView = B4xFld.TextField.Parent.parent
Dim This As TxtItem
This.Tag = p.Tag
This.Old = Old
This.New = New
Log("TEXT CHANGED " & Old & " new " & New) 'also password
If SubExists(Main, "Text_Changing") Then
CallSub2(Main, "Text_Changing", This)
End If
End Sub
