Sub Globals
Private Drawer As B4XDrawer
Private ACToolBarLight1 As ACToolBarLight
Private ToolbarHelper As ACActionBar
Private Panel1 As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
Drawer.Initialize(Me, "Drawer", Activity, 250dip)
Drawer.CenterPanel.LoadLayout("EISRITA")
ACToolBarLight1.Title = "Sales Number " & SalesmanName
ACToolBarLight1.SubTitle = "Nothing to show"
......