GetMenuTitleText()

Синтаксис

Text$ = GetMenuTitleText(#Menu , Title)

Описание

Возвращает текст указанного заголовка данного Меню.

Параметры

#Menu	Номер, идентифицирующий используемое Меню.
Title	Номер, идентифицирующий заголовок Меню в рамках указанного Меню, текст которого требуется получить.

Возвращаемое значение

Возвращает текст указанного заголовка Меню.

Пример.

If OpenWindow(0, 200, 200, 300, 100, "Пример GetMenuItemText")
  If CreateMenu(0, WindowID(0))
    MenuTitle("Проект")
    MenuItem(1, "Новый")
    MenuItem(2, "Открыть") 
    MenuTitle("Редактирование") ; Создаём в Меню ещё один заголовок. 
    MenuItem(3, "Вырезать")
    MenuItem(4, "Вставить") 
    MenuItem(5, "Копировать") 
  EndIf
  
  Repeat
    Event = WaitWindowEvent()          
    If Event = #PB_Event_Menu   ; Было нажато Меню.
      Select EventMenu()              
        Case 1
          ShowDebugOutput()
          Debug " Был нажат 1-й пункт Меню принадлежащий заголовку : " + GetMenuTitleText(0,0)   
        Case 2
          ShowDebugOutput()
          Debug " Был нажат 2-й пункт Меню принадлежащий заголовку : " + GetMenuTitleText(0,0)
        Case 3
          ShowDebugOutput()
          Debug " Был нажат 1-й пункт Меню принадлежащий заголовку : " + GetMenuTitleText(0,1)
        Case 4
          ShowDebugOutput()
          Debug " Был нажат 2-й пункт Меню принадлежащий заголовку : " + GetMenuTitleText(0,1)
        Case 5
          ShowDebugOutput()
          Debug " Был нажат 3-й пункт Меню принадлежащий заголовку : " + GetMenuTitleText(0,1)
      EndSelect
    EndIf
  Until Event = #PB_Event_CloseWindow
EndIf

См. также

MenuTitle(), SetMenuTitleText()

Поддерживаемые OS

Все