Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Private xcvsGraph As B4XCanvas
Private pnlGraph As B4XView
End Sub
Public Sub Initialize
End Sub
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("IlMioLayout")
B4XPages.SetTitle(Me, Main.sTitolo)
xcvsGraph.Initialize(pnlGraph)
End Sub
Private Sub B4XPage_Appear
xcvsGraph.DrawText("prova di scrittura con DrawText", 20, 20, Font.DEFAULT, Colors.Black, "LEFT")
End Sub