SetGadgetColor(*Parameter\TextGadget, #PB_Gadget_BackColor, #ButtonColor) *Parameter\TextGadget = TextGadget(#PB_Any, 0, GadgetHeight(Gadget) / 2 - 10, GadgetWidth(Gadget), 20, Text$, #PB_Text_Center) SetGadgetColor(*Parameter\TextGadgetLR, #PB_Gadget_BackColor, #ButtonColor) *Parameter\TextGadgetLR = TextGadget(#PB_Any, GadgetWidth(Gadget) / 2, GadgetHeight(Gadget) - 20 - 5, GadgetWidth(Gadget) / 2 - 5, 20, TextLR$, #PB_Text_Right)
SetGadgetColor(*Parameter\TextGadgetLL, #PB_Gadget_BackColor, #ButtonColor) *Parameter\TextGadgetLL = TextGadget(#PB_Any, 5, GadgetHeight(Gadget) - 20 - 5, GadgetWidth(Gadget) / 2, 20, TextLL$) SetGadgetColor(*Parameter\TextGadgetUR, #PB_Gadget_BackColor, #ButtonColor) *Parameter\TextGadgetUR = TextGadget(#PB_Any, GadgetWidth(Gadget) / 2, 5, GadgetWidth(Gadget) / 2 - 5, 20, TextUR$, #PB_Text_Right) SetGadgetColor(*Parameter\TextGadgetUL, #PB_Gadget_BackColor, #ButtonColor) *Parameter\TextGadgetUL = TextGadget(#PB_Any, 5, 5, GadgetWidth(Gadget) / 2, 20, TextUL$) *Parameter = AllocateStructure(DoctorizedButtonStructure)
Result = CanvasGadget(Gadget, x, y, w, h, #PB_Canvas_Container) Gadget = CanvasGadget(#PB_Any, x, y, w, h, #PB_Canvas_Container) Procedure.i DoctorizedButtonGadget(Gadget.i, x, y, w, h, Text$, TextUL$="", TextUR$="", TextLL$="", TextLR$="") PostEvent(#PB_Event_Gadget, EventWindow(), *Parameter\Gadget, #PB_EventType_LeftClick)
SetGadgetAttribute(*Parameter\Gadget, #PB_Canvas_Cursor, #PB_Cursor_Hand) *Parameter = GetGadgetData(EventGadget()) Protected *Parameter.DoctorizedButtonStructure Procedure DoctorizedButtonGadgetCallBack()
0 kommentar(er)
