Dim B1,B2,B3,B4,B5,B6,B7 As Bitmap
Private CircleMenuLibrary1 As CircleMenuLibrary
Activity.LoadLayout("Layout1")
B1 = LoadBitmap(File.DirAssets,"email.png")
B2= LoadBitmap(File.DirAssets,"film.png")
B3= LoadBitmap(File.DirAssets,"mail.png")
B4= LoadBitmap(File.DirAssets,"microphone.png")
B5= LoadBitmap(File.DirAssets,"notification.png")
B6= LoadBitmap(File.DirAssets,"padlock.png")
B7= LoadBitmap(File.DirAssets,"unlock.png")
Dim ArrayStored As List
ArrayStored.Initialize
ArrayStored.AddAll(Array As Object(B1,B2,B3,B4,B5))
CircleMenuLibrary1.MenuColors = Array As Int(Colors.Blue,Colors.Blue,Colors.Green,Colors.DarkGray,Colors.LightGray,Colors.Yellow)
CircleMenuLibrary2.MenuColors = Array As Int(Colors.Magenta,Colors.Blue,Colors.Green,Colors.DarkGray,Colors.LightGray,Colors.Yellow)
CircleMenuLibrary1.setMainIconBitmap(B6,B7)
CircleMenuLibrary1.SubIconBitmaps = ArrayStored
Sub CircleMenuLibrary1_onMenuOpened
Log("CircleMenuLibrary2_onMenuOpened")
End Sub
Sub CircleMenuLibrary1_onMenuClosed
Log("CircleMenuLibrary2_onMenuClosed")
End Sub
Sub CircleMenuLibrary1_onMenuSelected(Index As Int)
Log("CircleMenuLibrary2_onMenuSelected " &Index)
End Sub
Sub CircleMenuLibrary2_onMenuOpened
Log("CircleMenuLibrary2_onMenuOpened")
End Sub