How to style a button?

[the.weavster]

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

[Peter]

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

[the.weavster]

Thanks, Peter

[Dirk Geppert]

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