Sub Class_Globals
Private btnSourceOfDataTypes As B4XView
Private chkFilterSQL As CheckBox
End Sub
Sub btnSourceOfDataTypes_Click()
Enums.bDataTypesFromSysColumns = Enums.bDataTypesFromSysColumns = False
If Enums.bDataTypesFromSysColumns Then
btnSourceOfDataTypes.Text = "From SysColumns"
Else
btnSourceOfDataTypes.Text = "From Cursor"
End If
cMP.SaveSetting("Enums.bDataTypesFromSysColumns", Enums.bDataTypesFromSysColumns)
End Sub
Sub chkFilterSQL_Click()
Enums.bFilterOnLoadSQL = chkFilterSQL.Checked
cMP.SaveSetting("Enums.bFilterOnLoadSQL", Enums.bFilterOnLoadSQL)
End Sub