CheckBoxGadget Hintergrundfarbe ändern

[SBond]

Hi Leute,

ich habe ein Problem und konnte es bisher nicht lösen...
Ich möchte die Hintergrundfarbe einer Checkbox ändern. Gibt es da eine Möglichkeit?

..und gleich noch eine Frage hinterher: Kann man die Rahmenfarbe von einem ContainerGadget ändern?



hier ein Beispiel:

Code: Alles auswählen

OpenWindow(0, 0, 0, 400, 300, "", #PB_Window_ScreenCentered | #PB_Window_SystemMenu)

ContainerGadget(1, 10, 10, 380, 280, #PB_Container_Flat)

	SetGadgetColor(1, #PB_Gadget_BackColor, RGB(255, 255, 255))
	CheckBoxGadget	(2, 20, 20, 220, 16, "grauer Hintergrund :(")

CloseGadgetList()


Repeat

	Select WindowEvent()

	Case #PB_Event_CloseWindow
		End
	
	EndSelect
	
ForEver

bin für jede Hilfe dankbar

[jojo1541]

Aus RSBasics WinAPI Library:

Code: Alles auswählen

EnableExplicit

Define EventID
Global color = CreateSolidBrush_(RGB(255,0,0))

Procedure myCallback(hWnd, uMsg, wParam, lParam)
  Select uMsg
    Case #WM_CTLCOLORSTATIC
      If lparam = GadgetID(1)
        ProcedureReturn color
      EndIf
  EndSelect
  
  ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure

If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  CheckBoxGadget(1,10,10,200,20,"CheckBox",0)
  
  SetWindowCallback(@myCallback())
  
  Repeat
    EventID=WaitWindowEvent()
    If EventID = #PB_Event_CloseWindow
      DeleteObject_(color)
      End
    EndIf
  ForEver
EndIf

[SBond]

perfekt

und vielen Dank für den Link, genau so etwas habe ich noch gesucht.


klasse


lg
SBond