Sub Globals
Private splight As SpotLight
Private btnsubmnu As Button
End Sub
Sub CreateList( rownumber As Int, layout As Int, Width As Int, Height As Int) As Panel
Dim p As Panel
p.Initialize("")
Activity.AddView(p, 0, 0, Width, Height)
p.LoadLayout("cellitems")' the layout that contain (btnsubmnu) button
Dim icon As Bitmap
icon.Initialize(File.DirAssets,"b4a_180.png")
splight.Initialize(Me,"splight",7%y,False,False,True,btnsubmnu,Activity)
splight.additem(rownumber,Colors.Black,18,icon)
splight.additem("Refresh",Colors.Black,18,Null)
splight.additem("Compose",Colors.Black,18,Null)
p.RemoveView
Return p
End Sub
Sub btnsubmnu_Click
splight.show
End Sub