owner draw menu

[frederic]

Hello, i do some test on owner draw menu and i can't paint the rest of menubar, i can paint only "items", any idea ?



thanks
Fred

[eJan]

Gray colored is a part of window, use SetWindowColor(#Window, Color) or draw Box onto WindowOutput(0).

[Sparkie]

I haven't tested with an ownerdrawn Menu, but API SetMenuInfo_() should do the trick.

Code: Select all

#MIM_BACKGROUND = 2

Structure myMENUINFO
  cbSize.l
  fMask.l
  dwStyle.l
  cyMax.l
  hbrBack.l
  dwContextHelpId.l
  dwMenuData.l
EndStructure

hMenuBrushBG = CreateSolidBrush_(RGB(255, 255, 100)) 

With mi.myMENUINFO
  \cbSize = SizeOf(myMENUINFO)
  \fMask = #MIM_BACKGROUND
  \hbrBack = hMenuBrushBG
EndWith

If OpenWindow(0, 10, 10, 300, 200, "", #PB_Window_ScreenCentered | #PB_Window_SystemMenu) 
  hMenu = CreateMenu(0, WindowID(0)) 
  MenuTitle("File") 
  MenuItem(1, "Open") 
  MenuItem(2, "Save") 
  MenuItem(3, "Close") 
  MenuTitle("Edit") 
  MenuItem(4, "Cut") 
  MenuItem(5, "Copy") 
  SetMenuInfo_(hMenu, mi)
  DrawMenuBar_(WindowID(0)) 
  Repeat 
    Event = WaitWindowEvent() 
  Until Event = #PB_Event_CloseWindow 
  DeleteObject_(hMenuBrushBG) 
EndIf 
End

[frederic]

Cool, SetMenuInfo_() do the trick
but SetWindowColor(#Window, Color) no

merci pour tout

[Kwai chang caine]

Great code....
But is it possible to change also the font color ??? :roll:

Because, i want to color the menu in black....and i loose my font alone in the dark

Thanks to your help

[GeBonet]

Hi,
See also, the PureCOLOR library by de Gnozal, Coloring gadgets
And now with colors for menus and Items !
in Purebasic as simply as possible. Works for almost all gadgets, including standard ButtonGadgets.
:roll:

[User_Russian]

i do some test on owner draw menu and i can't paint the rest of menubar, i can paint only "items", any idea

Use API functions CreateSolidBrush, FillRect, DeleteObject

Result