Sub Class_Globals
Private mEventName As String 'ignore
Private mCallBack As Object 'ignore
Private mBase As B4XView 'ignore
Private xui As XUI 'ignore
Private DebugLevel As Int = 1
Public fxText As B4XFloatTextField
End Sub
Public Sub Initialize (Callback As Object, EventName As String)
LogSub("Initialize: " & EventName)
mEventName = EventName
mCallBack = Callback
End Sub
Public Sub DesignerCreateView (Base As Object, Lbl As Label, Props As Map)
' Lbl is the entire view from the Designer. fxWhatever
LogSub("DesignerCreateView")
mBase = Base
mBase.LoadLayout("mTextLayout")
End Sub
Public Sub GetBase As Panel
Return mBase
End Sub
Private Sub fxText_TextChanged (Old As String, New As String)
LogSub("fxText_TextChanged")
End Sub
Public Sub LogSub(inText As String)
If DebugLevel = 0 Then Return
#If DEBUG
Dim Unit As String = "mText"
Dim clrLog As Int = 0xFF4DC244
DateTime.TimeFormat = "hh:mm:ss"
Dim ssTime As String = DateTime.Time(DateTime.Now)
LogColor(Unit & " " & ssTime & " " & inText,clrLog)
#End If
End Sub