[Bug] SetGadgetColor
Verfasst: 17.03.2006 09:25
SetGadgetColor funktioniert in einem Panelgadget nicht. (getestet nur mit einem Tedtgadget)
Code: Alles auswählen
If OpenWindow(0, 0, 0, 322, 220, "PanelGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
PanelGadget(0, 8, 8, 306, 203)
AddGadgetItem(0, -1,"Panel 1")
AddGadgetItem(0, -1, "Panel 2")
TextGadget(2, 10, 15, 80, 24,"Text...")
CloseGadgetList()
SetGadgetColor(2, #PB_Gadget_FrontColor, RGB(255, 255, 255))
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
Code: Alles auswählen
If OpenWindow(0, 0, 0, 322, 220, "PanelGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
PanelGadget(0, 8, 8, 306, 203)
AddGadgetItem(0, -1,"Panel 1")
AddGadgetItem(0, -1, "Panel 2")
TreeGadget(2, 10, 55, 80, 64)
AddGadgetItem(2, 0,"Tree1")
AddGadgetItem(2, -1,"Tree2")
CloseGadgetList()
SetGadgetItemColor(2,1, #PB_Gadget_BackColor, RGB(2, 255, 255))
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
Kam das so rüber ?Agent hat geschrieben:*mal-in-Deckung-geh*
...hier wird ja scharf geschossen...
Code: Alles auswählen
Macro Pannel(Aktiv)
CompilerIf Aktiv=1
PanelGadget(0, 8, 8, 306, 203)
AddGadgetItem(0, -1, "Panel 2")
TextGadget(2, 10, 15, 80, 24,"Text...")
CloseGadgetList()
CompilerElse
TextGadget(2, 10, 15, 80, 24,"Text...")
CompilerEndIf
EndMacro
;Xp Skinsupport muss aktiv sein
#PanelAktiv=1
If OpenWindow(0, 0, 0, 322, 220, "PanelGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
Pannel(#PanelAktiv)
SetGadgetColor(2, #PB_Gadget_FrontColor, RGB(255, 255, 255))
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf