#IgnoreWarnings: 11
Sub Activity_CreateMenu(Menu As ACMenu)
Dim i As Int
Dim item As ACMenuItem
Menu.Clear
'initialize with default value (not in menu group)
'-------------------------------------------------
For i = 0 To 21
arrMenuIconsInfo(i, 0) = -1
Next
'Menu group 1
For i = eMenuButtonType.FindPatient To eMenuButtonType.Map '0 to 7
item = Menu.AddWithGroup2(1, i, i, arrMenuIconFilesTitles(i, 2), arrMenuIcons(i, 0))
item.ShowAsAction = item.SHOW_AS_ACTION_ALWAYS
arrMenuIconsInfo(i, 0) = 1
arrMenuItems(i) = item
Next
'Menu group 2
For i = eMenuButtonType.Appointments To eMenuButtonType.Phone_Patient '8 to 14
item = Menu.AddWithGroup2(2, i, i, arrMenuIconFilesTitles(i, 2), arrMenuIcons(i, 0))
item.ShowAsAction = item.SHOW_AS_ACTION_ALWAYS
arrMenuIconsInfo(i, 0) = 2
arrMenuItems(i) = item
Next
'Menu group 3
For i = eMenuButtonType.SQL To eMenuButtonType.Show_All_Run_SQL '15 to 21
item = Menu.AddWithGroup2(3, i, i, arrMenuIconFilesTitles(i, 2), arrMenuIcons(i, 0))
item.ShowAsAction = item.SHOW_AS_ACTION_ALWAYS
arrMenuIconsInfo(i, 0) = 3
arrMenuItems(i) = item
Next
ActionBar.Menu.SetGroupVisible(2, False)
ActionBar.Menu.SetGroupVisible(3, False)
ActionBar.Menu.SetGroupVisible(1, True)
iCurrentMenuGroup = 1
'overflow menu (3 dots)
'----------------------
For i = eMenuButtonType.Export2CSV To eMenuButtonType.Dev_Test '21 to 45
AddOverflowMenuItem(Menu, i)
Next
End Sub
Sub AddOverflowMenuItem(Menu As ACMenu, iIDX As Int)
Dim item As ACMenuItem
item = Menu.Add(iIDX, iIDX, arrMenuIconFilesTitles(iIDX, 2), Null)
arrMenuItems(iIDX) = item
End Sub