Описание функции

SetTabBarGadgetItemState

Задаёт состояние вкладки.

SetTabBarGadgetItemState(Gadget.i, Tab.i, State.i, Mask.i=#TabBarGadget_Disabled|#TabBarGadget_Selected|#TabBarGadget_Checked)

Параметры

Gadget Идентификатор гаджета.
Tab Индекс вкладки, отсчёт от 0.
State Задаёт состояние вкладки комбинацией следующих значений.
    #TabBarGadget_Disabled - деактивировать вкладку.
    #TabBarGadget_Selected - выбрать вкладку.
    #TabBarGadget_Checked - установить флажок на вкладку.
Mask Маска определяет какие состояния задавать. Здесь используются те же константы, что и в параметре State.

Примечания

Если в маске задан #TabBarGadget_Checked, а в параметре состояния нет, то значит он равен 0 и галка будет отсутствовать.

См. также

GetTabBarGadgetItemState, SetTabBarGadgetAttribute

Пример

EnableExplicit
; https://www.purebasic.fr/english/viewtopic.php?t=47588
XIncludeFile "TabBarGadget.pbi"
#Window = 0
#Font = 0
#Gadget_TabBar = 0
#btn1 = 1
#btn2 = 2
Global Container_id
Define i, ww, hw, PnTabHeight
ww = 320
hw = 200
If OpenWindow(#Window, 0, 0, ww, hw, "TabBarGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

    TabBarGadget(#Gadget_TabBar, 0, 0, ww, 26, #TabBarGadget_None, #Window)
    PnTabHeight = GadgetHeight(#Gadget_TabBar) ; предварительный оценочный размер
    For i = 0 To 9
        AddTabBarGadgetItem(#Gadget_TabBar, i, Str(i))
    Next
    Container_id = ContainerGadget(#PB_Any, 0, PnTabHeight, ww, hw - PnTabHeight, #PB_Container_Flat)
    OpenGadgetList(Container_id)
    ButtonGadget (#btn1, 10, 30, 300, 30, "Задать шрифт")
    ButtonGadget (#btn2, 10, 70, 300, 30, "Сделать вкладку 3 неактивной")
    CloseGadgetList()

    Repeat
        Select WaitWindowEvent()
            Case #PB_Event_Gadget
                Select EventGadget()
                    Case #btn1
                        LoadFont(#Font, "Consolas", 14, #PB_Font_Italic | #PB_Font_Bold)
                        SetTabBarGadgetFont(#Gadget_TabBar, FontID(#Font))
                        DisableGadget(#btnSetPos, #True)
                    Case #btn2
                        SetTabBarGadgetItemState(#Gadget_TabBar, 3, #TabBarGadget_Disabled, #TabBarGadget_Disabled)
                EndSelect
            Case #PB_Event_CloseWindow
                CloseWindow(#Window)
                End
        EndSelect
    ForEver
EndIf