PureBoard

Verfasst: **09.04.2005 15:16**

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...

Verfasst: **14.04.2005 04:14**

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

Verfasst: **15.04.2005 20:27**

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

PureBoard

Menu miteinfärben

Menu miteinfärben