Public Sub DesignerCreateView (Base As Object, lbl As Label, Props As Map)
' Create the label and edit controls here
Private tfnt As B4XFont
tfnt = xui.CreateFont(lbl.Text.font,lbl.TextSize/2)
Private efnt As B4XFont
efnt = xui.CreateFont(lbl.Text.font,lbl.TextSize)
' initialise using the label information
setAllFont(tfnt,efnt)
setAllControlData(lbl.text,"","")
end sub