How do you add a custom style to a button?
I've seen this thread but it doesn't work for me and even built in commands like SetGadgetFont() and SetGadgetColor() seem to get ignored
How to style a button?
Re: How to style a button?
Code: Select all
Procedure SetGadgetColorEx(Gadget, ColorType, Color)
Protected GID = GadgetID(Gadget)
Select GadgetType(Gadget)
Case #PB_GadgetType_Button
Select ColorType
Case #PB_Gadget_FrontColor
! $(v_gid.div).find(".dijitButtonText").css("color", spider_helper_ColorToHtml(v_color));
Case #PB_Gadget_BackColor
! $(v_gid.div).find(".dijitButtonContents").css("background-color", spider_helper_ColorToHtml(v_color));
EndSelect
Default
Debug "Unsupported GadgetType"
EndSelect
EndProcedure
#myWindow = 0
#myButton = 0
#myFont = 0
OpenWindow(#myWindow, 0, 0, 222, 200, "ButtonGadgets", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ButtonGadget(#myButton, 10, 10, 200, 40, "Standard Button")
LoadFont(#myFont, "Arial", 24)
SetGadgetFont(#myButton, FontID(#myFont))
SetGadgetColorEx(#myButton, #PB_Gadget_BackColor, #Red)
SetGadgetColorEx(#myButton, #PB_Gadget_FrontColor, #Green)
Greetings ... Peter
-
- Posts: 222
- Joined: Sat Mar 01, 2014 3:02 pm
Re: How to style a button?
Thanks, Peter
-
- Posts: 284
- Joined: Fri Sep 22, 2017 7:02 am
Re: How to style a button?
Extended SetGadgetColorEx version, also for PanelGadgets.
Code: Select all
Procedure SetGadgetColorEx(Gadget, ColorType, Color)
Protected GID = GadgetID(Gadget)
Select GadgetType(Gadget)
Case #PB_GadgetType_Panel
Select ColorType
Case #PB_Gadget_TitleFrontColor
! $(v_gid.div).find(".dijitTab").css("color", spider_helper_ColorToHtml(v_color));
Case #PB_Gadget_TitleBackColor
! $(v_gid.div).find(".dijitTab").css("background-color", spider_helper_ColorToHtml(v_color));
Case #PB_Gadget_BackColor
! $(v_gid.div).find(".dijitContentPane").css("background-color", spider_helper_ColorToHtml(v_color));
EndSelect
Case #PB_GadgetType_Button
Select ColorType
Case #PB_Gadget_FrontColor
! $(v_gid.div).find(".dijitButtonText").css("color", spider_helper_ColorToHtml(v_color));
Case #PB_Gadget_BackColor
! $(v_gid.div).find(".dijitButtonContents").css("background-color", spider_helper_ColorToHtml(v_color));
EndSelect
Default
Debug "Unsupported GadgetType"
EndSelect
EndProcedure