Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
'load the layout to Root
Drawer.Initialize(Me, "Drawer", Root, 250dip)
Drawer.CenterPanel.LoadLayout("Botonera")
Drawer.LeftPanel.LoadLayout("MenuPrincipal")
'B4XPages.SetTitle(Me,"GestionAPP")
HamburgerIcon = xui.LoadBitmapResize(File.DirAssets, "hamburger.png", 32dip, 32dip, True)
ListView1.SingleLineLayout.Label.TextSize = 16
ListView1.AddSingleLine( cs.Initialize.Typeface(Typeface.FONTAWESOME).Size(22).VerticalAlign(3dip).Append(Chr(0xF155)).PopAll.Append(" Caja ") )
ListView1.AddSingleLine( cs.Initialize.Typeface(Typeface.FONTAWESOME).Size(22).VerticalAlign(3dip).Append(Chr(0xF2BA)).PopAll.Append(" Clientes") )
ListView1.AddSingleLine( cs.Initialize.Typeface(Typeface.FONTAWESOME).Size(22).VerticalAlign(3dip).Append(Chr(0xF1B9)).PopAll.Append(" Proveedores") )
ListView1.AddSingleLine( cs.Initialize.Typeface(Typeface.FONTAWESOME).Size(22).VerticalAlign(3dip).Append(Chr(0xF085)).PopAll.Append(" Configurar") )
ListView1.AddSingleLine( cs.Initialize.Typeface(Typeface.FONTAWESOME).Size(22).VerticalAlign(3dip).Append(Chr(0xF204)).PopAll.Append(" Salir") )