Sub Class_Globals
Private Root As B4XView 'ignore
Private xui As XUI 'ignore
Private Drawer As B4XDrawer
Private Hamburguer As ImageView
End Sub
'You can add more parameters here.
Public Sub Initialize As Object
Return Me
End Sub
'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
'load the layout to Root
Drawer.Initialize(Me, "Drawer", Root, 80%x)
Drawer.CenterPanel.LoadLayout("Home")
Drawer.LeftPanel.LoadLayout("menu_lateral")
Drawer.LeftPanel.Height = Drawer.LeftPanel.Height - 56dip
Drawer.LeftPanel.Top = 56dip ' dont works ...
End Sub
Sub Hamburguer_Click
Log("clicou !")
Drawer.LeftOpen = Not(Drawer.LeftOpen)
End Sub
Private Sub B4XPage_Resize (Width As Int, Height As Int)
Drawer.Resize(Width, Height)
End Sub
Private Sub B4XPage_CloseRequest As ResumableSub
#if B4A
'home button
If Main.ActionBarHomeClicked Then
Drawer.LeftOpen = Not(Drawer.LeftOpen)
Return False
End If
'back key
If Drawer.LeftOpen Then
Drawer.LeftOpen = False
Return False
End If
#end if
Return True
End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.