B4A Class TabStripViewPagerExtendet

Discussion in 'Additional libraries, classes and official updates' started by Alexander Stolte, Jan 26, 2018.

  1. Alexander Stolte

    Alexander Stolte Well-Known Member Licensed User

    This is the TabStripViewPagerExtendet Class for the TabStripViewPager and my first Class which I publish.

    The standard library does not offer much customizability and thats the reason why I did this class. The class has many settings and thanks to Erel for sharing methods with the JavaObjects.

    Feel free to edit it, it is not perfect, but it works for @GeoffT660 (big thanks to you) and for me.

    TabStripViewPagerExtendet
    Author:
    Alexander Stolte
    Version: 1.01

    Methods:
    • IndicatorColor(tabstrip As TabStrip, color As Int)

    • IndicatorHeight(tabstrip As TabStrip, height As Int)

    • UnderlineColor(tabstrip As TabStrip, color As Int)

    • UnderlineHeight(tabstrip As TabStrip, height As Int)

    • DividerColor(tabstrip As TabStrip, color As Int)

    • GetAllTabLabels(tabstrip As TabStrip) As List

    • TabTextColor(tabstrip As TabStrip, colorSelected As Int , colorInactive As Int, Position As Int)

    • TabBackgroundColor(tabstrip As TabStrip, colorSelected As Int , colorInactive As Int, Position As Int)

    • ChangeTabText(tabstrip As TabStrip, text As String, Position As Int)

    • ChangeTabTextEllipsize(tabstrip As TabStrip, Ellipsize As String, Position As Int)

    • SetTypeFaces(tabstrip As TabStrip,TypeFaces As Typeface,Position As Int)

    • SetTextGravity(tabstrip As TabStrip,gravitys As Int,Position As Int)

    • SetTabHeight(tabstrip As TabStrip,height As Int,Position As Int)

    • SetTabLeft(tabstrip As TabStrip,left As Int,Position As Int)

    • SetTabPadding(tabstrip As TabStrip,padding() As Int,Position As Int)

    • SetTabSingleline(tabstrip As TabStrip,singleline As Boolean,Position As Int)

    • SetTabTag(tabstrip As TabStrip,Tag As Object,Position As Int)

    • GetTabTag(tabstrip As TabStrip, position As Int) As Object

    • TabTop(tabstrip As TabStrip,Top As Int,Position As Int)

    • TabWidth(tabstrip As TabStrip,Width As Int,Position As Int)

    • TabVisible(tabstrip As TabStrip,Visible As Boolean,Position As Int)

    • InsertPage (tabstrip As TabStrip, Index As Int, Page As Panel, Title As String)

    • RemovePage (tabstrip As TabStrip, Index As Int) As Panel

    • RefreshTabStrip(tabstrip As TabStrip)

    • CenterAllTabs(tabstrip As TabStrip, tabstripwidth As Int)


    Example for the implementation:

    Code:
    Sub Process_Globals
       
        
    Dim tse As TabStripViewPagerExtendet
       
    End Sub

    Sub Globals
       
        
    Private TabStrip1 As TabStrip
       
    End Sub

    Sub Activity_Create(FirstTime As Boolean)
        
    'Do not forget to load the layout file created with the visual designer. For example:
        Activity.LoadLayout("frm_main")

        tse.Initialize 
    'to Initialize the class

        TabStrip1.LoadLayout(
    "frm_1","1")
        TabStrip1.LoadLayout(
    "frm_2","2")
        TabStrip1.LoadLayout(
    "frm_3","3")
        TabStrip1.LoadLayout(
    "frm_4","4")
        TabStrip1.LoadLayout(
    "frm_5","5")

        TabStrip1.ScrollTo(
    0,False)

        tse.UnderlineColor(TabStrip1,
    Colors.Red) 'change the color of the underline by runtime

    End Sub
    I am available for any questions
    Greetings
     

    Attached Files:

Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice