Bonjour à tous
Peut-on modifier la couleur de fond d'un CheckBoxGadget ?
J'ai essayé avec SetGadgetColor, avec toutes les options possibles (#PB_Gadget_FrontColor, #PB_Gadget_BackColor, #PB_Gadget_LineColor, et même #PB_Gadget_TitleFrontColor, #PB_Gadget_TitleBackColor) mais rien ne change.
Une astuce ou un truc que je n'ai pas trouvé ?
Couleur de fond CheckBoxGadget
Re: Couleur de fond CheckBoxGadget
Quand tous les glands seront tombés, les feuilles dispersées, la vigueur retombée... Dans la morne solitude, ancré au coeur de ses racines, c'est de sa force maturité qu'il renaîtra en pleine magnificence...Jacobus.
-
boddhi
- Messages : 613
- Inscription : lun. 26/avr./2010 16:14
- Localisation : S 48° 52' 31'' / O 123° 23' 33''
Re: Couleur de fond CheckBoxGadget
Windows uniquement
Code : Tout sélectionner
EnableExplicit
#CHECKBOX=0
Global.l COUL_FONDGADGETS=RGB(255,0,0)
Global.i BrosseFondGadget=CreateSolidBrush_(COUL_FONDGADGETS)
;
Procedure.l Fc_FenPrincipale_Callback(ArgID,ArgMessage,ArgWParam,ArgLParam)
Select ArgMessage
Case #WM_CTLCOLORSTATIC
Select GetDlgCtrlID_(ArgLParam)
Case #CHECKBOX:ProcedureReturn BrosseFondGadget
EndSelect
EndSelect
ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure
If OpenWindow(0, 0, 0, 270, 60, "CheckBoxGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
SetWindowColor(0,COUL_FONDGADGETS)
CheckBoxGadget(#CHECKBOX, 10, 10, 250, 20, "Case à cocher standard")
SetWindowCallback(@Fc_FenPrincipale_Callback())
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
If BrosseFondGadget
DeleteObject_(BrosseFondGadget)
EndIf
EndIf
Re: Couleur de fond CheckBoxGadget
Merci pour vos réponses.
Je n'y suis pas remis depuis mon post, je garde sous le coude et regarde ça dans les prochains jours.
Encore merci.
Je n'y suis pas remis depuis mon post, je garde sous le coude et regarde ça dans les prochains jours.
Encore merci.