German Menüleiste

Sub Globals
    Private menuDatei, menuBearbeiten, menuExtras As ACPopupMenu
    Private mnuDatei As Button
    Private mnuBearbeiten As Button
    Private mnuExtras As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("1")
    menuDatei.Initialize("menu", mnuDatei)
    menuDatei.AddMenuItem(1, "Datei Item 1", Null)
    menuDatei.AddMenuItem(2, "Datei Item 2", Null)
    menuDatei.AddMenuItem(3, "Datei Item 3", Null)

    menuBearbeiten.Initialize("menu", mnuBearbeiten)
    menuBearbeiten.AddMenuItem(1, "Bearbeiten Item 1", Null)
    menuBearbeiten.AddMenuItem(2, "Bearbeiten Item 2", Null)
    menuBearbeiten.AddMenuItem(3, "Bearbeiten Item 3", Null)

    menuExtras.Initialize("menu", mnuExtras)
    menuExtras.AddMenuItem(1, "Extras Item 1", Null)
    menuExtras.AddMenuItem(2, "Extras Item 2", Null)
    menuExtras.AddMenuItem(3, "Extras Item 3", Null)
End Sub


Sub Menu_ItemClicked (Item As ACMenuItem)
    Log("Item: " & Item)
End Sub


Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub




Sub mnuDatei_Click
    menuDatei.Show
End Sub

Sub mnuBearbeiten_Click
    menuBearbeiten.Show   
End Sub

Sub mnuExtras_Click
    menuExtras.Show
End Sub