SpiderBasic

Code: Select all

Procedure.i GadgetElement(Gadget, UseJquery.b=#True)
  ; by eddy (http://forums.spiderbasic.com/viewtopic.php?p=320#p320)
  Protected gadgetObject=GadgetID(Gadget)
  !return (v_gadgetobject && v_gadgetobject.div)? v_usejquery? $(v_gadgetobject.div):v_gadgetobject.div:null;
EndProcedure

Procedure RemoveClassFromGadget(Gadget, ClassName.s)
  Protected G = GadgetElement(Gadget)
  !v_g.find("*").removeClass(v_classname);
EndProcedure

OpenWindow(0, #PB_Ignore, #PB_Ignore, 300, 200, "", #PB_Window_ScreenCentered)

TextGadget(0, 10, 10, 200, 80, "With 'sbVerticalCenter'", #PB_Text_Border)

TextGadget(1, 10, 100, 200, 80, "Without 'sbVerticalCenter'", #PB_Text_Border)
RemoveClassFromGadget(1, "sbVerticalCenter")