Sub Class_Globals
Private mEventName As String 'ignore
Private mCallBack As Object 'ignore
Public mBase As B4XView
Private xui As XUI 'ignore
Public Tag As Object
Private IsReady As Boolean
End Sub
Public Sub Initialize (Callback As Object, EventName As String)
mEventName = EventName
mCallBack = Callback
End Sub
'Base type must be Object
Public Sub DesignerCreateView (Base As Object, Lbl As Label, Props As Map)
mBase = Base
Tag = mBase.Tag
mBase.Tag = Me
CallSubDelayed3(Me, "AfterLoadLayout", Lbl, Props)
End Sub
Private Sub AfterLoadLayout(Lbl As Label, Props As Map) 'ignore
mBase.LoadLayout("layspeedbar")
IsReady = True
End Sub