Insert_Menu

Insert_Menu

Insert_Menu(number, menu, name, numberspace, [flag=0] )

Позволяет вставлять пункты меню, в любое место имеющегося меню. При том все пункты, имеющие большие номера, будут сдвинуты вниз

number - номер нового меню. Рекомендуется использование номеров от 2 до 65535. Использование 0 запрещено. Использование 1 может вызвать наложение некоторых событий.

menu - меню, созданное функцией MenuTitle

Name - может быть как строкой, так и указателем на рисунок.

numberspace - меню на место которого будет вставлен пункт

flag - параметр, может быть:

MF_BYCOMMAND  Указывает, что uPosition дает идентификатор пункта меню. Если не установлен ни флажок mf_bycommand, ни флажок mf_byposition, то флажок mf_bycommand является  заданным по умолчанию.

MF_BYPOSITION  Указывает, что uPosition дает отсчитываемую от нуля относительную позицию пункта меню. Если параметр uPosition равен - (минус)1, новый пункт меню добавлен в конец  меню.

Пример:

#Include "window9.bi"

Dim As HMENU hMessages,MenName,MenName1
Dim As hbitmap hbit

OpenWindow("",10,10,400,400)
hbit=Load_image("E:\WINDOWS\system32\oobe\images\merlin.gif",&hf0f0f0)
hMessages=Create_Menu()
MenName=MenuTitle(hMessages,"Файл")
MenName1=MenuTitle(hMessages,"Помощь")
MenuItem(1,MenName,"1 меню")
MenuItem(2,MenName,Cast(Integer,hbit))
insert_menu(5,MenName,"Вставленное меню",2)
insert_menu(5,MenName,Cast(Integer,hbit),1)

Do
 Var event=WaitEvent
 If event=EventMenu then
  Select case EventNumber
   Case 1
    MessBox("","1 меню")
   Case 2
    MessBox("","2 меню")
  End Select
 EndIf
 If event=EventClose Then End
Loop

http://mneniya.ucoz.ru/

Created with the Personal Edition of HelpNDoc: Create HTML Help, DOC, PDF and print manuals from 1 single source