Public Sub Initialize (Target As Object, EventName As String)
mCallback = Target
mEventName = EventName
End Sub
Public Sub DesignerCreateView(Base As Panel, lbl As Label, props As Map)
Dim Font As Typeface = lbl.Typeface
Dim Ellipsize As String = lbl.Ellipsize
Dim gvt As Int = lbl.Gravity
Dim TextColor As Int = lbl.TextColor
Dim bmp As Bitmap
bmp.InitializeMutable(1,1) 'ignore
cvs.Initialize2(bmp)
Dim parent As Panel = Base.Parent
lbl.Initialize("lbl")
lbl.Typeface = Font
lbl.Ellipsize = Ellipsize
lbl.Gravity = gvt
lbl.TextColor = TextColor
parent.AddView(lbl, Base.Left, Base.Top, Base.Width, Base.Height)
Base.RemoveView
mLbl = lbl
mLbl.Padding = Array As Int(0, 0, 0, 0)
Dim jo As JavaObject = mLbl
jo.RunMethod("setIncludeFontPadding", Array(False))
setText(mLbl.Text)
End Sub
Private Sub lbl_Click
If SubExists(mCallback, mEventName & "_Click") Then
CallSubDelayed(mCallback, mEventName & "_Click")
End If
End Sub