OpenSubMenu()

Синтаксис

OpenSubMenu(Text$ [, ImageID])

Описание

Создает пустое Подменю в текущем Меню.

Параметры

Text$	Текст для заголовка Подменю. В Windows, в параметре Text$ Вы можете использовать специальный символ '&', чтобы подчеркнуть определенную букву: "&File" отобразит как: File
ImageID (дополн.)	Дополнительное изображение для отображения рядом с Подменю. Этот параметр действует только в том случае, если текущее Меню было создано с помощью команды CreateImageMenu() или CreatePopupImageMenu(). Корректный идентификатор 'ImageID' можно получить с помощью функции ImageID().

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

Ничего.

Комментарии

Переименовать OpenSubMenu невозможно, кроме как в Windows, которая возвращает Номер меню.
Пример:
SubMenu = OpenSubMenu ("New")
SetMenuItemText (0, SubMenu, "Open")
В Linux и MacosX вам придется жонглировать несколькими меню или уничтожить и воссоздать его.

Примечание: В Windows XP для постоянного подчеркивания символов, снимите флажок "Скрыть подчеркнутые символы для навигации с помощью клавиатуры, пока не будет нажата клавиша Alt". В Windows 7 поставьте флажок в пункте "подчёркивать клавиши быстрого вызова и клавиши доступа", и т.д.

Пример

If OpenWindow(0, 200, 200, 220, 100, "Пример Подменю")
    If CreateMenu(0, WindowID(0))
        MenuTitle("Проект")
        MenuItem(1, "Открыть")
        MenuItem(2, "Закрыть")
        MenuBar()
        OpenSubMenu("&Недавние файлы") ; Начало Подменю, заголовок Подменю с подчеркнутым символом, подчеркивание будет отображаться,
        MenuItem(3, "C:\Autoexec.bat") ; только если Меню вызывается с помощью F10 или ALT.
        MenuItem(4, "D:\Test.txt")
        CloseSubMenu() ; Конец Подменю
    EndIf
    Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf

См. также

CloseSubMenu(), MenuTitle(), MenuItem(), MenuBar()

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

Все