'My code that uses the new method'
'======================================================================================================
private Sub setTabPages(tblVegGrpArg As tblVegGrp_t)
Dim tabPageList As List = Starter.dbGB.getVegGroupRecords
Dim k As Int = 1
Dim props As Map
Dim tbs As TabStripExt
tbs.Initialize
props.Initialize
'Common properties of tab
props.Put("HorizontalAnchor", "Both")
For Each row() As Object In tabPageList
If k = 1 Then
addVegGrp = True
tblVegGrpArg.ID = row(0)
tblVegGrpArg.GroupName = row(1)
Else
addVegGrp = False
End If
TabStrip1.LoadLayout("Page1", row(1))
Activity.AddMenuItem(row(0), "mnu" & k)
k = k + 1
Next
tbs.SetTabsAllPadding(TabStrip1, Array As Int(12dip, 0dip, 12dip, 0dip))
TabStrip1.ScrollTo(0, True)
currentTabSelected = 0
'Set the exercise list view_Col
' setcvLogList(currentTabSelected)
End Sub
'Additional methods
'Set the Padding of all Tabs ***** added by rgarnett1955 ****
'Example call
'tbs.SetTabsAllPadding(TabStrip1, Array As Int(20dip, 0dip, 20dip, 0dip))
Public Sub SetTabsAllPadding(tabstrip As TabStrip, padding() As Int)
For Each lbl As Label In GetAllTabLabels(tabstrip)
lbl.Padding = padding
Next
End Sub
'