PureBasic Forums - English

Code: Select all

 


If OpenWindow(0, 100, 150, 195, 260, "BitMaps and Check Marks in Menu", #PB_Window_SystemMenu)
  ;BitMaps And Check Marks in Menu's
  If CreateMenu(0,WindowID(0))
    MenuTitle("Test Menu")
    MenuItem( 1, "Check Marked Item")
    MenuItem( 2, "")
    MenuItem( 3, "Text with BitMap")
    
    
  EndIf
  
  hMnu=GetMenu_(WindowID(0));get menu handle
  hBmp=LoadImage(1, "C:\Program Files\Microsoft Visual Studio\Common\Graphics\Bitmaps\Assorted\mail.bmp")
  s=ModifyMenu_(hMnu,1,#MF_CHECKED, 1,"Check Marked Item");
  ModifyMenu_(hMnu,2,#MF_BITMAP,2,hBmp);load bitmap in menu
  ;x=GetSystemMetrics_(#SM_CXMENUCHECK);check size for bmp
  ;y=GetSystemMetrics_(#SM_CYMENUCHECK)
  ;add bitmap to text on item 3, use proper size bmp
  SetMenuItemBitmaps_(hMnu,3, #MF_BYCOMMAND,hBmp,hBmp);
  
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_Menu
        Select EventMenu()
          Case 1
            
            hMnu=GetMenu_(WindowID(0))
            State=GetMenuState_(hMnu,1,#MF_BYCOMMAND)
            
            If(State=#MF_UNCHECKED);
              ModifyMenu_(hMnu,1,#MF_BYCOMMAND|#MF_CHECKED, 1,"Check Marked Item");
            Else
              ModifyMenu_(hMnu,1,#MF_BYCOMMAND|#MF_UNCHECKED, 1,"Check Marked Item");
            EndIf
            
          Case 2
            
            MessageRequester("","You clicked the bitmap menu",0)
        EndSelect
      Case #WM_CLOSE
        Quit = 1
    EndSelect
  Until Quit = 1
EndIf
End