OpenSubMenu("Как тут техт заменить")

Поделиться131.12.2015 08:08:08

Автор: newJS
Активный участник
Зарегистрирован: 28.12.2015
Приглашений: 0
Сообщений: 210
Уважение: [+2/-0]
Позитив: [+8/-0]
Пол: Мужской
Провел на форуме:
2 дня 11 часов
Последний визит:
Вчера 07:14:07

При создании OpenSubMenu() нет ни какой индитефикации этого элемента.
Как потом текст менять? например при смене языка.

Поделиться231.12.2015 13:24:21

Автор: Пётр
Активный участник
Зарегистрирован: 14.06.2009
Приглашений: 0
Сообщений: 2944
Уважение: [+96/-5]
Позитив: [+1/-0]
Пол: Мужской
Провел на форуме:
2 месяца 9 дней
Последний визит:
Сегодня 00:24:39

Можно так, но это недокументированная возможность.

Код:

  If OpenWindow(0, 200, 200, 220, 100, "SubMenu Example")
    If CreateMenu(0, WindowID(0))
      MenuTitle("Project") 
        MenuItem(1, "Open")  
        MenuItem(2, "Close")
        MenuBar()
        id=OpenSubMenu("Recent files")       ; begin submenu
          MenuItem( 3, "C:\Autoexec.bat")
          MenuItem( 4, "D:\Test.txt")
        CloseSubMenu()                    ; end submenu
        
        SetMenuItemText(0, id, "Вложенное меню")
        
    EndIf
    Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
  EndIf

0