MenuBackColor

Синтаксис

Function MenuBackColor(byval menu as HMENU, byval color as integer, byval flag as integer) as byte

Описание

Используется для указания цвета фона меню

Параметры

menu - хендл меню

color - описание

flag - (только для windows) флаг, если не 0, то окрашивает

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As HMENU menu,MenName,MenName1,MenName2
OpenWindow("",10,10,400,400)
menu= Create_Menu()
MenName=MenuTitle(menu,"Файл")
MenName1=MenuTitle(menu,"Помощь")
MenuItem(1001,MenName,"1 меню")
MenuItem(1002,MenName,"2 меню")
MenName2=OpenSubMenu(MenName,"Окно")
MenuItem(1003,MenName2,"3 меню")
MenuBackColor(menu,&hff00ff,1)
Do
  Var event=WaitEvent
  If event=EventMenu then
     Select case EventNumber
        Case 1001
           MessBox("","1 меню")
        Case 1002
           MessBox("","2 меню")
        Case 1003
           MessBox("","3 меню")
     End Select
  EndIf
  If event=EventClose Then End
Loop

Результат

Created with the Personal Edition of HelpNDoc: Easily create EPub books