gibt es inzwischen eine Möglichkeit, dass man die Hintergrundfarbe eines Checkbox Gadget Textes ändern kann?
ich hab ein Beispiel aber es ist nicht zufrieden stellend und ausserdem, soviel Code notwendig?
Code: Alles auswählen
Global GadgetFrg=#Black, GadgetBkg = CreateSolidBrush_(#Green)
Procedure WindowProc(hWnd, Msg, wParam, lParam)
result = #PB_ProcessPureBasicEvents
If Msg=#WM_CTLCOLORSTATIC
If GetDlgCtrlID_(lparam) = 1
SetBkMode_(wParam,#TRANSPARENT)
SetTextColor_(wParam,GadgetFrg)
result = GadgetBkg
EndIf
EndIf
ProcedureReturn result
EndProcedure
OpenWindow(0,0,0,260,160,"test",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
CheckBoxGadget(1,10,20,245,20,"Checkbox gadget with a green background")
CheckBoxGadget(2,10,40,245,20,"Checkbox gadget with a green background")
SetWindowCallback(@WindowProc())
Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
DeleteObject_(GadgetBkg)
Grüße