CreateIconItemMenu

CreateIconItemMenu

CreateIconItemMenu(Hmenu, numberItem, ImageID)

Функция позволяет вставлять иконку в нужные пункты меню 

Hmenu - Хандле меню

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

ImageID - хандле рисунка(иконки)

Пример:

#Include "window9.bi"

Dim As HMENU hMessages
dim as integer event
dim as HBITMAP hbitmap

hBitmap=Load_image("С:\WINDOWS\system32\oobe\images\merlin.gif",&hf0f0f0)
hBitmap=Resize_image(hbitmap,25,25)
OpenWindow("",10,10,400,400)

hMessages=CreatePopMenu()
MenuItem(1001,hMessages,"1 меню")
MenuItem(1002,hMessages,"2 меню")
CreateIconItemMenu(hMessages,1002,hBitmap)
Do
 event=WaitEvent
 If event=EventMenu then
  Select case EventNumber
   Case 1001
    MessBox("","1 меню")
   Case 1002
    MessBox("","2 меню")
  End Select
 ElseIf event=WM_RBUTTONDOWN Then
  DisplayPopupMenu(hMessages, GlobalMouseX,GlobalMouseY)
 EndIf
 If event=EventClose Then End
Loop

http://mneniya.ucoz.ru/

Created with the Personal Edition of HelpNDoc: Free help authoring tool