PureBoard

Code: Alles auswählen

; change Text of a Menu Item

OpenWindow(0, 0,0, 100, 100, #PB_Window_Screencentered|#PB_Window_SystemMenu, "Menu")

hMenu.l = CreateMenu(1, WindowID())  ; you need to save the Handle to the Menu like this.

  MenuTitle("Test")   
  MenuItem(5, "Click to change...")  ; add an Item (Number doesn't matter)

Repeat
  Select WaitWindowEvent()
    Case #PB_Eventclosewindow: End
    Case #PB_EventMenu               ; Item was clicked.
      
      Text.s = "changed."             ; new Text
      ModifyMenu_(hMenu, 5, #MF_BYCOMMAND | #MF_STRING, 0, @Text) 
        ; Set new Text:
        ; fist one is the Handle you got from CreateMenu()
        ; second one is the Item Number from MenuItem()
        ; last one is the String Pointer
        ; the other ones just need to be like that.
      
  EndSelect
ForEver


; ExecutableFormat=Windows
; EOF