Seite 1 von 1

Gadgetcolor

Verfasst: 26.03.2006 15:11
von 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

Verfasst: 26.03.2006 15:21
von 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 

Verfasst: 26.03.2006 15:31
von winduff
cool danke! irgendwelche ideen für die anderen sachen?

Verfasst: 26.03.2006 15:33
von 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....

Verfasst: 26.03.2006 15:37
von winduff
ich glaube dieser funktioniert aber nicht unter PB4... habe die probiert bekam einen fehler dass mir eine andere lib fehlt... windowextensions() oder ähnlich

Verfasst: 26.03.2006 15:55
von 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... /:->