Menutitle like a menuitem

[Hroudtwolf]

Hello,


I need importantly a menuitem wich is like a menuitem
to get the MenuID from it when it was clicked.
Do anyone knows how to do it ?

Thank you for all helpfull anwers.

[Nico]

Code: Select all

If OpenWindow(0, 100, 200, 300, 260, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget, "PureBasic Window") 
  
  HdleMenu.l=CreateMenu(0, WindowID()) 
  If HdleMenu 
    MenuTitle("Fichier") 
    MenuItem( 1, "Ouvrir") 
    MenuItem( 2, "Enregistrer") 
    MenuItem( 3, "Enregistrer sous ...") 
    MenuTitle("Edition") 
    MenuItem( 1, "Couper") 
    MenuItem( 2, "Copier") 
    MenuItem( 3, "Coller") 
  EndIf 
  
  Appendmenu_(HdleMenu,#MF_STRING,10,"My Item") 
  
  drawmenubar_(WindowID(0))
  
EndIf  
  
Repeat 
  EventID.l = WaitWindowEvent() 
  Select EventID 
    Case #PB_EventMenu 
      Select EventMenuID() 
        Case 10
          Debug "---------10----------"  
          
      EndSelect
      
  EndSelect    
Until EventID=#PB_Event_CloseWindow 
End

[Hroudtwolf]

I thank you very much.