Seite 1 von 1

CheckBoxGadget Hintergrundfarbe ändern

Verfasst: 23.05.2013 23:25
von 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 :)

Re: CheckBoxGadget Hintergrundfarbe ändern

Verfasst: 24.05.2013 00:13
von 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

Re: CheckBoxGadget Hintergrundfarbe ändern

Verfasst: 24.05.2013 00:19
von SBond
perfekt :D

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


klasse :mrgreen:


lg
SBond