Private Sub InitializeSettings As Map
Dim m As Map = CreateMap( _
"NumberOfFrozenColumns": 1, _
"EvenRowColor": xui.Color_Cyan, _
"OddRowColor": xui.Color_Yellow)
Return m
End Sub
Private Sub LoadSettings (TableSettings As Map)
For Each Key In TableSettings.Keys
Dim Value As Object = TableSettings.Get(Key)
Log($"${Key} = ${Value}"$)
Select Key
Case "NumberOfFrozenColumns"
B4XTable1.NumberOfFrozenColumns = Value
Case "EvenRowColor"
B4XTable1.EvenRowColor = Value
Case "OddRowColor"
B4XTable1.OddRowColor = Value
End Select
Next
End Sub