#Region Activity Attributes
#FullScreen: True
#IncludeTitle: False
#End Region
Sub Activity_Create(FirstTime As Boolean)
Private drvMenu As CustomListView
Drawer.Initialize(Me, "Drawer", Activity, 300dip)
Drawer.CenterPanel.LoadLayout("1")
Drawer.LeftPanel.LoadLayout("left")
For i = 1 To 5
drvMenu.AddTextItem("Item " & i,i)
Next
..............
BottomSheet.Initialize(Activity, Me, "Done", LayoutPanel)
BottomSheet.CloseBottomSheet
End Sub
Sub Label1_Click
Drawer.LeftOpen=True
If Starter.dName.Contains("null")=False Or Starter.dVehicle.Contains("null")=False Then
drvName.Text=Starter.dName
drvVehicleNo.Text=Starter.dVehicle
Dim img As B4XBitmap = xui.LoadBitmap(File.DirAssets, "pict.jpg")
drvImage.SetBitmap(CreateRoundBitmap(img, drvImage.Width))
Else
drvName.Text=""
drvVehicleNo.Text=""
Dim img As B4XBitmap = xui.LoadBitmap(File.DirAssets, "user.png")
drvImage.SetBitmap(CreateRoundBitmap(img, drvImage.Width))
End If
End Sub