Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
dd.Initialize
'The designer script calls the DDD class. A new class instance will be created if needed.
'In this case we want to create it ourselves as we want to access it in our code.
xui.RegisterDesignerClass(dd)
Initialise
MenuSetup
.
.
.
end sub
Sub MenuSetup
Drawer.Initialize(Me, "Drawer", Root, 300dip)
Drawer.CenterPanel.LoadLayout("ASVP")
Drawer.LeftPanel.LoadLayout("Left")
HamburgerIcon = xui.LoadBitmapResize(File.DirAssets, "hamburger.png", 32dip, 32dip, True)
ListView1.TwoLinesAndBitmap.SecondLabel.Visible=False
ListView1.AddTwoLinesAndBitmap2("Home", "", LoadBitmap(File.DirAssets, "house.png"),20)
ListView1.AddTwoLinesAndBitmap2("Results", "", LoadBitmap(File.DirAssets, "winner.png"),21)
ListView1.AddTwoLinesAndBitmap2("GPS Data", "", LoadBitmap(File.DirAssets, "Satellite.png"),22)
For i = 1 To 11
ListView1.AddTwoLinesAndBitmap2(i,"", LoadBitmap(File.DirAssets, "Ball.jpg"),i)
Next
.
.
.