Italian B4J - Menu dinamici

Public Sub mMenu_add(mMenuBar As MenuBar,menu As MenuItem)
    If mMenuBar.Menus.IndexOf("Resume") = -1 Then
        Dim mMenu As Menu
        mMenu.Initialize("Resume","")
        mMenuBar.Menus.Add(mMenu)
        mMenu.MenuItems.Add(menu)
    Else
        Dim mMenu As Menu =  mMenuBar.Menus.Get(mMenuBar.Menus.IndexOf("Resume"))
        mMenu.MenuItems.Add(menu)
    End If
End Sub

' Qui, anziché passare un MenuBar, si dovrebbe passare un MenuItem,
' ovvero dare la possibilità di aggiungere un menu non soltanto ad un MenuBar
' ma anche ad un MenuItem, ovvero un sottomenu.
Public Sub AddMenu(Menu As MenuBar, NewMenuText As String)
    Dim MenuAlreadyExists As Boolean
   
    For Each Item As MenuItem In Menu.Menus
        If Item.Text = NewMenuText Then
            MenuAlreadyExists = True
            Exit
        End If
    Next
   
    If Not(MenuAlreadyExists) Then
        ' Il menu con testo NewMenuText non esiste, lo creo e lo aggiungo.
        Dim NewMenuItem As MenuItem
        NewMenuItem.Initialize(NewMenuText, NewMenuText)
        ' Menu. <--- qui avrei aggiunto NewMenuItem alla lista Menu.Menus; peccato che sia una lista in sola lettura!
    End If
End Sub

    If Global.ToastMessage(mFooter,"Welcome back, I'm getting organized for work.") = True Then
        Global.mMenu_menu(mMenuBar,"Actions",Array As String("Login","New user","Close"))
        Global.mMenu_menu(mMenuBar,"Modules",Array As String("Organizer","Calendar"))
        Global.mMenu_menu(mMenuBar,"Additional modules",Array As String(""))
        Global.mMenu_menu(mMenuBar,"Resume",Array As String(""))
    End If

Public Sub mMenu_menu(mMenuBar As MenuBar,title As String, Args() As String)
    Dim mMenu As Menu
    mMenu.Initialize(title,"")
    mMenu.Tag=title
    mMenuBar.Menus.Add(mMenu)
    If Args(0)="" Then Return
    For i=0 To Args.Length-1
        Dim mi As MenuItem
        mi.Initialize(Args(i),"Actions")
        mMenu.MenuItems.Add(mi)
    Next
End Sub

Public Sub mMenu_add(mMenuBar As MenuBar,menu As MenuItem)
    If mMenuBar.Menus.IndexOf("Resume") = -1 Then
        Dim mMenu As Menu
        mMenu.Initialize("Resume","")
        mMenuBar.Menus.Add(mMenu)
        mMenu.MenuItems.Add(menu)
    Else
        Dim mMenu As Menu =  mMenuBar.Menus.Get(mMenuBar.Menus.IndexOf("Resume"))
        mMenu.MenuItems.Add(menu)
    End If
End Sub

(ObservableListWrapper) [Menu[id=null, styleClass=[menu-item, menu]], Menu[id=null, styleClass=[menu-item, menu]], Menu[id=null, styleClass=[menu-item, menu]], Menu[id=null, styleClass=[menu-item, menu]], Menu[id=null, styleClass=[menu-item, menu]]]

Public Sub mMenu_add(mMenuBar As MenuBar,menu As MenuItem)
    If mMenuBar.Menus.IndexOf("Resume") = -1 Then
        Dim mMenu As Menu
        mMenu.Initialize("Resume","")
        mMenuBar.Menus.Add(mMenu)
        mMenu.MenuItems.Add(menu)
    Else
        Dim mMenu As Menu =  mMenuBar.Menus.Get(mMenuBar.Menus.IndexOf("Resume"))
        mMenu.MenuItems.Add(menu)
    End If
End Sub

Public Sub LoadResumeItem(idlogin As String)
    
    If Global.SQL_Exists = False Then Return
    
    Dim sqlite As SQL
    sqlite.InitializeSQLite(File.DirApp,"data.sqlite", False)
    
    Dim SenderFilter As Object = sqlite.ExecQueryAsync("SQL", "SELECT fullname,id FROM item where userid='" & idlogin & "' and hide='false' order by fullname",Null)
    
    Wait For (SenderFilter) SQL_QueryComplete (Success As Boolean, rs As ResultSet)
    Dim cm As ContextMenu
    cm.Initialize("")
    
    If Success Then
        Dim i As Int
        Do While rs.NextRow
            i = i + 1
            Dim it As MenuItem
            it.Initialize(rs.GetString("fullname"),"resume")
            Dim lsTemp As List
            lsTemp.Initialize
            lsTemp.Add(rs.GetString("fullname"))
            lsTemp.Add(rs.GetString("id"))
            lsTemp.Add(Global.idlogin)
            it.Tag=lsTemp
            Global.mMenu_add(mMenuBar,it)
        Loop
        If i = 0 Then
            'nessun risultato trovato
            Log($"No results found"$)
        End If
        rs.Close
    Else
        Log(LastException)
    End If
End Sub

Sub resume_Action
    Dim mi As MenuItem = Sender
    Dim lstemp As List = mi.Tag
    Dim sqlite As SQL
    sqlite.InitializeSQLite(File.DirApp,"data.sqlite", False)
    Dim query As String = "UPDATE associates SET hide = 'true'  WHERE idmaster='" & lstemp.Get(1) & "' OR idassociates='" & lstemp.Get(1) & "' AND userid='" & Global.idlogin & "';"
    sqlite.ExecNonQuery(query)
    query = "UPDATE item SET hide = 'true'  WHERE id='" & lstemp.Get(1) & "'AND userid='" & Global.idlogin & "';"
    sqlite.ExecNonQuery(query)
    mi.Enabled=False
    mClassOrganizer.loadItem
End Sub

Public Sub LoadResumeItem(idlogin As String)
   
    If Global.SQL_Exists = False Then Return
   
    Dim sqlite As SQL
    sqlite.InitializeSQLite(File.DirApp,"data.sqlite", False)
   
    Dim SenderFilter As Object = sqlite.ExecQueryAsync("SQL", "SELECT fullname,id FROM item where userid='" & idlogin & "' and hide='false' order by fullname",Null)
   
    Wait For (SenderFilter) SQL_QueryComplete (Success As Boolean, rs As ResultSet)
    Dim cm As ContextMenu
    cm.Initialize("")

    Dim lsMenuItem As List
    lsMenuItem.Initialize
   
    If Success Then
        Dim i As Int
        Do While rs.NextRow
            i = i + 1
            Dim it As MenuItem
            it.Initialize(rs.GetString("fullname"),"resume")
            Dim lsTemp As List
            lsTemp.Initialize
            lsTemp.Add(rs.GetString("fullname"))
            lsTemp.Add(rs.GetString("id"))
            lsTemp.Add(Global.idlogin)
            it.Tag=lsTemp
            lsMenuItem.Add(it)
        Loop
        If i = 0 Then
            'nessun risultato trovato
            Log($"No results found"$)
        End If
        rs.Close
    Else
        Log(LastException)
    End If
   
    Global.mMenu_Resume(mMenuBar,"Resume",lsMenuItem)
   
End Sub

Public Sub mMenu_Resume(mMenuBar As MenuBar, title As String, lsMenuItem As List)
   
    Dim mMenu As Menu
    mMenu.Initialize(title,"")
    mMenu.Tag=title
    mMenuBar.Menus.Add(mMenu)
    mMenu.MenuItems.AddAll(lsMenuItem)
   
End Sub