PureBasic Forums - English

Code: Select all

Procedure SysMenuAdd(hwnd, ret, nPos.l, flage, Text.s)
; English forum: http://www.purebasic.fr/english/viewtopic.php?p=70325#70325 
; Author: GreenGiant (updated for PB 4.00 by edel)
; Date:  26. September 2004 
; OS: Windows 
; Demo: No 
SystemMenu = GetSystemMenu_(hwnd, #False)
      #MIIM_STATE=1 
      #MFS_DEFAULT=4096 
      bold.MENUITEMINFO 
      bold\cbSize=SizeOf(bold) 
      bold\fMask=#MIIM_STATE 
      bold\fState=#MFS_DEFAULT 
      SetMenuItemInfo_(SystemMenu,7,#True,bold) ;2 specifies the item to be made bold
  
  InsertMenu_(SystemMenu, nPos, #MF_BYPOSITION	| flage	, ret, @Text)
  DrawMenuBar_(hwnd)
       
  ProcedureReturn retA = ret
EndProcedure
;##################################################################################################

OpenWindow(0, 0, 0, 200, 200, "Box", #PB_Window_SystemMenu | #PB_Window_ScreenCentered, PID) And CreateGadgetList(WindowID(0)) 

SysMenuAdd(WindowID(Window_0), 10000, 7, #MFS_DEFAULT,"            About")



Repeat 
    ev = WaitWindowEvent() 
Until ev = #PB_Event_CloseWindow

Code: Select all

Procedure SysMenuAdd(hWnd, menuHwnd, ret, nPos.l, flage, Text.s) 
      #MIIM_STATE=1 
      #MFS_DEFAULT=4096 
      bold.MENUITEMINFO 
      bold\cbSize=SizeOf(bold) 
      bold\fMask=#MIIM_STATE 
      bold\fState=#MFS_DEFAULT
  InsertMenu_(menuHwnd, nPos, #MF_BYPOSITION   | flage   , ret, @Text) 
  SetMenuItemInfo_(menuHwnd,7,#True,bold) ;2 specifies the item to be made bold 
  DrawMenuBar_(hwnd) 
        
  ProcedureReturn retA = ret 
EndProcedure 
;################################################################################################## 

OpenWindow(0, 0, 0, 200, 200, "Box", #PB_Window_SystemMenu | #PB_Window_ScreenCentered, PID)
CreateGadgetList(WindowID(0))

SystemMenu = GetSystemMenu_(WindowID(0), #False) 
  RemoveMenu_(systemmenu,6,#MF_DISABLED|#MF_BYPOSITION) 
  InsertMenu_(SystemMenu, 6, #MF_BYPOSITION, #SC_CLOSE, @"Close") 

SysMenuAdd(WindowID(0), SystemMenu, 10000, 7, #MFS_DEFAULT,"            About") 


Repeat 
    ev = WaitWindowEvent() 
Until ev = #PB_Event_CloseWindow

Code: Select all

Procedure.l Callback(hWnd, uMsg, wParam, lParam)
  result = #PB_ProcessPureBasicEvents
  Select uMsg
    Case #WM_SYSCOMMAND
      If wParam = #SC_CLOSE
        ypos = lparam>>16&$ffff - WindowY(0)
        If ypos > GetSystemMetrics_(#SM_CYCAPTION	)
          Debug "About clicked!"
          result = 0
        EndIf
      ElseIf wParam = 6
        SendMessage_(hWnd, #WM_CLOSE, 0, 0)
      EndIf
  EndSelect
  ProcedureReturn result
EndProcedure

OpenWindow(0, 0, 0, 200, 200, "Box", #PB_Window_SystemMenu | #PB_Window_ScreenCentered, PID) 
CreateGadgetList(WindowID(0)) 

SystemMenu = GetSystemMenu_(WindowID(0), #False) 
  InsertMenu_(SystemMenu, 6, #MF_BYPOSITION, 6, @"Close") 
  bold.MENUITEMINFO 
  bold\cbSize=SizeOf(bold) 
  bold\fMask=#MIIM_TYPE
  bold\fType = #MFT_STRING
  bold\dwTypeData = @"About"
  SetMenuItemInfo_(systemmenu,7,#True,bold) ;2 specifies the item to be made bold 
SetWindowCallback(@Callback())


Repeat 
    ev = WaitWindowEvent() 
Until ev = #PB_Event_CloseWindow

Code: Select all

;...Get menu font info
ncm.NONCLIENTMETRICS
ncm\cbSize = SizeOf(ncm)
SystemParametersInfo_(#SPI_GETNONCLIENTMETRICS, 0, @ncm, 0)
menuFont$ = PeekS(@ncm\lfMenuFont\lfFacename)
hdc = CreateDC_(@"DISPLAY", 0, 0, 0) 
logPixSY = GetDeviceCaps_(hdc, #LOGPIXELSY) 
DeleteDC_(hdc) 
menuFontSize = -(ncm\lfMenuFont\lfHeight * 72) / logPixSY   
myFont = LoadFont(0, menuFont$, menuFontSize , #PB_Font_Bold)

Procedure SysMenuAdd(win, mPos.l) 
  SystemMenu = GetSystemMenu_(WindowID(win), #False) 
  result = InsertMenu_(SystemMenu, mPos - 1, #MF_BYPOSITION | #MF_OWNERDRAW, mPos, #MF_OWNERDRAW) 
  If result
    DrawMenuBar_(WindowID(win)) 
  EndIf
  ProcedureReturn result
EndProcedure 

Procedure WinCallback(hwnd, msg, wParam, lParam)
  result = #PB_ProcessPureBasicEvents
  Select msg
    Case #WM_DRAWITEM
      If wParam = 0
        *dis.DRAWITEMSTRUCT = lParam
        If *dis\CtlType = #ODT_MENU And *dis\itemID = 8
          menuNormalBg = GetSysColorBrush_(#COLOR_MENU)
          menuSelectBg = GetSysColorBrush_(#COLOR_HIGHLIGHT)
          menuNormalText = GetSysColor_(#COLOR_MENUTEXT)
          menuSelectText = GetSysColor_(#COLOR_HIGHLIGHTTEXT)
          textColor = GetTextColor_(*dis\hdc)
          If *dis\itemState & #ODS_SELECTED
            SetTextColor_(*dis\hdc, menuSelectText)
            brush = menuSelectBg
          Else
            SetTextColor_(*dis\hdc, menuNormalText)
            brush = menuNormalBg
          EndIf
          ;...Fill our menu item background
          FillRect_(*dis\hdc, *dis\rcItem, brush)
          ;...Adjust text margin
          leftMargin = GetSystemMetrics_(#SM_CXMENUSIZE) + 4
          *dis\rcItem\left + leftMargin
          ;...Get default bk mode
          bkMode = GetBkMode_(*dis\hdc)
          ;...Set to transparent if needed
          If bkMode <> #TRANSPARENT
            SetBkMode_(*dis\hdc, #TRANSPARENT)
          EndIf
          ;...Select our font into the dc
          oldFont = SelectObject_(*dis\hdc, FontID(0))
          ;...Draw the menu item text
          DrawText_(*dis\hdc, "&About", 6, *dis\rcItem, #DT_VCENTER)
          ;...Set dc back to defaults
          SetBkMode_(*dis\hdc, bkMode)
          SetTextColor_(*dis\hdc, textColor)
          SelectObject_(*dis\hdc, oldFont)
        EndIf
      EndIf
  EndSelect
  ProcedureReturn result
EndProcedure

If OpenWindow(0, 0, 0, 200, 200, "Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0)) 
  SetWindowCallback(@WinCallback())
  SysMenuAdd(0, 8) 
  Repeat 
    event = WaitWindowEvent() 
  Until event = #PB_Event_CloseWindow
EndIf