HideGadget(#Cont_0, #True) : HideGadget(#Cont_1, #False) SetTabBarGadgetItemColor(#Gadget, 0, #PB_Gadget_BackColor, #TBGItemColor_Selected) : SetTabBarGadgetItemColor(#Gadget, 1, #PB_Gadget_BackColor, #TBGItemColor_Default) HideGadget(#Cont_1, #True) : HideGadget(#Cont_0, #False) Select GetTabBarGadgetItemPosition(#Gadget, #TabBarGadgetItem_Event) SetTabBarGadgetItemState(#Gadget, 0, #TabBarGadget_Selected)ĭebug "Tab "+Str(GetTabBarGadgetItemPosition(#Gadget, #TabBarGadgetItem_Event))+" is active." SetTabBarGadgetItemColor(#Gadget, 1, #PB_Gadget_BackColor, #TBGItemColor_Default)ĬontainerGadget(#Cont_1, 10, 46, WindowWidth(#Window)-20, 140, #PB_Container_Raised) SetTabBarGadgetItemColor(#Gadget, 0, #PB_Gadget_BackColor, #TBGItemColor_Selected)ĬontainerGadget(#Cont_0, 10, 46, WindowWidth(#Window)-20, 140, #PB_Container_Raised) TabBarGadget(#Gadget, 10, 10, WindowWidth(#Window)-20, 36, #TabBarGadget_NoTabMoving|#TabBarGadget_BottomLine, #Window)ĪddTabBarGadgetItem(#Gadget, 0, "Tab_0", ImageID(#Imag)) OpenWindow(#Window, 0, 0, 400, 200, "TabBarGadget", #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered) Better To implement TabBarGadgetInclude\ImageWidth, TabBarGadgetInclude\ImageHeight to avoid any hard codedĬatchImage(#Imag, ?Eyes_png_start, ?Eyes_png_end - ?Eyes_png_start) If WidthHeight: in lines 925,927,931 (and 883,885) change TabBarGadgetInclude\ImageSize, TabBarGadgetInclude\ImageSize => 48, 36. In TabBarGadget.pbi change at line 332: \ImageSize = 36
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |