Modify_Menu

Modify_Menu

Modify_Menu(Soursenumber, menu, name, [Newnumber=999999], [flag= 0] )

Modify_Menu(Soursenumber, menu, name, [Newnumber=999999], [flag= MF_BITMAP] )

Используется для изменения строк (элементов) или изображения существующего меню

Soursenumber - пункт для редактироания

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

name - новое название или новый указатель на рисунок меню

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

flag:

MF_BYCOMMAND - Указывает, что параметр uPosition дает идентификатор пункта меню. Флажок MF_BYCOMMAND является значением по умолчанию, если ни флажок MF_BYCOMMAND ни флажок MF_BYPOSITION не установлен.
MF_BYPOSITION - Указывает, что параметр uPosition дает отсчитываемую от нуля относительную позицию пункта меню.

Пример:

#Include "window9.bi"

Dim As HMENU hMessages,MenName,MenName1,MenName2

OpenWindow("",10,10,400,400)
hMessages=Create_Menu()
MenName=MenuTitle(hMessages,"Файл")
MenName1=MenuTitle(hMessages,"Помощь")
MenuItem(1001,MenName,"1 меню")
ButtonGadget(1,10,10,110,30,"изменить меню")

Do
 Var event=WaitEvent
 If event=EventGadget then
  Select case EventNumber
   Case 1
          Modify_Menu(1001,MenName,"Изменено")
  End Select
 EndIf
 If event=EventClose Then End
Loop

http://mneniya.ucoz.ru/

Created with the Personal Edition of HelpNDoc: Free iPhone documentation generator