Gadgetcolor

[winduff]

Hallo,

Ich habe via GadgetColor verschiedenen Gadgets farben geben können, aber folgendes fehlt mir noch:

- Menüfarbe
- Bei ListIconGadget die Colums... weis nicht ob ich da die farbe ändern kann

Ich benutze PB4 daher weiss ich nicht ob es libs die kompatibel sind dafür gibt...?!

Liebe Grüße
Chris

[roherter]

Habe dir hier mal ne lösung für popup-menues reingepackt ist von Stefan aus der PB-Lounge!

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)
MenuTitle("Menu 1")
MenuItem(1,"Eintrag 1")
MenuItem(3,"Eintrag 2")
MenuItem(3,"Eintrag 3")
MenuTitle("Menu 2")
MenuItem(4,"Eintrag 4")
MenuItem(5,"Eintrag 5")
MenuItem(6,"Eintrag 6")


BackgroundColor=#green
MI.MENUINFO\cbSize=SizeOf(MENUINFO)
hBrush=CreateSolidBrush_(BackgroundColor)
MI\hbrBack=hBrush
MI\fMask=#MIM_BACKGROUND
SetMenuInfo_(PopupMenu,MI);farbe des Hauptmenüs ändern

SetMenuInfo_(GetSubMenu_(PopupMenu,0),MI);farbe des ersten Untermenüs ändern
SetMenuInfo_(GetSubMenu_(PopupMenu,1),MI);farbe des zweiten Untermenüs ändern

Flags=#PB_Window_SystemMenu|#PB_Window_ScreenCentered
OpenWindow(1,0,0,400,300,Flags,"Colored PopupMenu")

Repeat
 
  If GetAsyncKeyState_(#VK_RBUTTON)=-32767 ;rechte Maustaste gedrückt
    DisplayPopupMenu(0,WindowID(1))
  EndIf     
 
Until WaitWindowEvent()=#PB_Event_CloseWindow

DeleteObject_(hBrush); Brush muss freigegeben werden 

[winduff]

cool danke! irgendwelche ideen für die anderen sachen?

[walker]

Hi,

Ich gehe mal davon aus, das Du nur die PB4 Befehler zur Coloration verwendet hast?

Es gibt eine Lib von gnozal, die PureColorLib. Zu finden in der PureArea unter Userlibs

Mit Ihr Kann man so ziemlich alles einfärben....

[winduff]

ich glaube dieser funktioniert aber nicht unter PB4... habe die probiert bekam einen fehler dass mir eine andere lib fehlt... windowextensions() oder ähnlich

[walker]

Stimmt... habe gerade mal im original Thread http://www.purebasic.fr/english/viewtop ... &start=195 nachgesehen...
Wird aber noch für PB4.00 (final) umgeschrieben... solange heist's warten...