Sub Class_Globals
Private mEventName As String 'ignore
Private mCallBack As Object 'ignore
Private mBase As B4XView 'ignore
Private xui As XUI 'ignore
Private mLinkedData As classData1
Private mLabel1 As Label
End Sub
Public Sub Initialize (Callback As Object, EventName As String)
mEventName = EventName
mCallBack = Callback
mLabel1.Initialize("")
End Sub
Public Sub DesignerCreateView (Base As Object, Lbl As Label, Props As Map)
mBase = Base
mBase.Tag = Me 'Is this what is called "Code Tag" in some references???
mBase.AddView(mLabel1, 0, 0, 0, 0)
End Sub
Private Sub Base_Resize (Width As Double, Height As Double)
mBase.Width = Width
mBase.Height = Height
mLabel1.SetLayout(5dip, 5dip, mBase.Width - 10dip, mBase.Height - 10dip)
End Sub
Public Sub getLeft As Int
Return mBase.Left
End Sub
Public Sub setLeft(Value As Int)
mBase.Left = Value
End Sub
Public Sub getWidth As Int
Return mBase.Width
End Sub
Public Sub setWidth(Value As Int)
mBase.Width = Value
Base_Resize (mBase.Width, mBase.Height)
End Sub
Public Sub getLinkedData As classData
Return mLinkedData
End Sub
Public Sub setLinkedData(Value As classData1)
mLinkedData = Value
mLabel1.Text = mLinkedData.Text
End Sub