Menu miteinfärben

[Kekskiller]

Der Hintergrund eines Fenstern wird bei mir leider nur begrenzt eingefärbt, das Menu bleibt immer auf dem System-Standart von Farben. Es müsste doch auch Möglichkeiten geben, das Menu mit einzufärben. Suche schon die ganze Zeit nach was passendem, nur finde ich da sogut wie nichts für, hm...

[Hroudtwolf]

Code: Alles auswählen

#MIM_BACKGROUND=2

Structure MENUINFO
  cbSize.l
  fMask.l
  dwStyle.l
  cyMax.l
  hbrBack.l
  dwContextHelpID.l
  dwMenuData.l
EndStructure


PopupMenu=CreatePopupMenu(0)
MenuItem(1, "Entry 1")
MenuItem(2, "Entry 2")
MenuItem(3, "Entry 3")
MenuBar()
MenuItem(4, "Entry 4")

Color=rgb(255,100,0)

MI.MENUINFO\cbSize=SizeOf(MENUINFO)
MI\hbrBack=CreateSolidBrush_(Color)
MI\fMask=#MIM_BACKGROUND
SetMenuInfo_(PopupMenu,MI)
Flags=#PB_Window_SystemMenu|#PB_Window_ScreenCentered
OpenWindow(1,0,0,500,200,Flags,"PopupMenu färben")

Repeat
 ;Rechte Maustaste drücken zeigt PopUpmenu
  If GetAsyncKeyState_(#VK_RBUTTON)=-32767
    DisplayPopupMenu(0,WindowID(1))
  EndIf     
 
Until WaitWindowEvent()=#PB_Event_CloseWindow 

[Kekskiller]

Ah, Dankeschön, an Strukturen hatte ich garnicht gedacht. Da komm ich gleich auf eine feine Idee...