PureBasic Forums - English

Code: Select all

    ; MenuWidth() procedure by PB -- do whatever you want with it. :)
    ; This example demonstrates a window having the width of its menu.
    ; (It's not exactly the menu width, due to Windows OS limitations).
    ;
    Procedure MenuWidth()
      MyMenu=GetMenu_(WindowID(0)) : ItemSize.RECT
      For ItemNum=0 To GetMenuItemCount_(MyMenu)-1
        GetMenuItemRect_(WindowID(0),MyMenu,ItemNum,ItemSize)
        width+(ItemSize\right-ItemSize\left)
      Next
      ProcedureReturn width+GetSystemMetrics_(#SM_CYHSCROLL)
    EndProcedure
    ;
    If OpenWindow(0,100,200,0,GetSystemMetrics_(#SM_CYCAPTION),"test",#WS_VISIBLE|#PB_Window_SystemMenu) And CreateMenu(0,WindowID(0))
      MenuItem(0,"#1") : MenuItem(0,"No. Two") : MenuItem(0,"Number Three") : MenuItem(0,"IV")
      ResizeWindow(0,100,200,MenuWidth(),MenuHeight()) : ShowWindow_(WindowID(0),#SW_SHOW)
      Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
    EndIf