jj: move index consts

This commit is contained in:
Jonathan Jenne 2018-06-28 17:13:17 +02:00
parent 7f0f381ffa
commit ca0213ad71
2 changed files with 24 additions and 16 deletions

View File

@ -1,5 +1,15 @@
Public Class ClassFinalIndex Public Class ClassFinalIndex
Public Shared PREFIX_VECTOR = "[%VKT" Public Const INDEX_TYPE_STRING = 1
Public Const INDEX_TYPE_INTEGER = 2
Public Const INDEX_TYPE_FLOAT = 3
Public Const INDEX_TYPE_BOOLEAN = 4
Public Const INDEX_TYPE_DATE = 5
Public Const INDEX_TYPE_VECTOR_INTEGER = 4107
Public Const INDEX_TYPE_VECTOR_STRING = 4097
Public Const INDEX_TYPE_VECTOR_BOOLEAN = 4100
Public Const INDEX_TYPE_VECTOR_DATE = 4101
Public Const PREFIX_VECTOR = "[%VKT"
Public Shared Function GetValue(obj As Object, indexName As String, indcies As List(Of String), types As List(Of Integer), isVector As Boolean) Public Shared Function GetValue(obj As Object, indexName As String, indcies As List(Of String), types As List(Of Integer), isVector As Boolean)
Try Try
@ -70,4 +80,12 @@
MsgBox($"Error in SetValue: {ex.Message}", MsgBoxStyle.Critical) MsgBox($"Error in SetValue: {ex.Message}", MsgBoxStyle.Critical)
End Try End Try
End Function End Function
Public Shared Function IsVectorIndex(type As Integer) As Boolean
If type = INDEX_TYPE_VECTOR_BOOLEAN Or type = INDEX_TYPE_VECTOR_DATE Or type = INDEX_TYPE_VECTOR_INTEGER Or type = INDEX_TYPE_VECTOR_STRING Then
Return True
Else
Return False
End If
End Function
End Class End Class

View File

@ -4,16 +4,6 @@ Imports System.Globalization
Imports FormsUtils Imports FormsUtils
Module ModuleFinalIndexProperties Module ModuleFinalIndexProperties
Public Const INDEX_TYPE_STRING = 1
Public Const INDEX_TYPE_INTEGER = 2
Public Const INDEX_TYPE_FLOAT = 3
Public Const INDEX_TYPE_BOOLEAN = 4
Public Const INDEX_TYPE_DATE = 5
Public Const INDEX_TYPE_VECTOR_INTEGER = 4107
Public Const INDEX_TYPE_VECTOR_STRING = 4097
Public Const INDEX_TYPE_VECTOR_BOOLEAN = 4100
Public Const INDEX_TYPE_VECTOR_DATE = 4101
<TypeConverter(GetType(PropertiesDeluxeTypeConverter))> <TypeConverter(GetType(PropertiesDeluxeTypeConverter))>
Public Class FinalIndexProperties Public Class FinalIndexProperties
<Category("Information")> <Category("Information")>
@ -101,27 +91,27 @@ Module ModuleFinalIndexProperties
End Sub End Sub
Public Sub IndexTypeBooleanProvider(attrs As PropertyAttributes) Public Sub IndexTypeBooleanProvider(attrs As PropertyAttributes)
MaybeSetBrowsable(attrs, {INDEX_TYPE_BOOLEAN, INDEX_TYPE_VECTOR_BOOLEAN}) MaybeSetBrowsable(attrs, {ClassFinalIndex.INDEX_TYPE_BOOLEAN, ClassFinalIndex.INDEX_TYPE_VECTOR_BOOLEAN})
MaybeSetReadOnly(attrs) MaybeSetReadOnly(attrs)
End Sub End Sub
Public Sub IndexTypeStringProvider(attrs As PropertyAttributes) Public Sub IndexTypeStringProvider(attrs As PropertyAttributes)
MaybeSetBrowsable(attrs, {INDEX_TYPE_STRING, INDEX_TYPE_VECTOR_STRING}) MaybeSetBrowsable(attrs, {ClassFinalIndex.INDEX_TYPE_STRING, ClassFinalIndex.INDEX_TYPE_VECTOR_STRING})
MaybeSetReadOnly(attrs) MaybeSetReadOnly(attrs)
End Sub End Sub
Public Sub IndexTypeFloatProvider(attrs As PropertyAttributes) Public Sub IndexTypeFloatProvider(attrs As PropertyAttributes)
MaybeSetBrowsable(attrs, {INDEX_TYPE_FLOAT}) MaybeSetBrowsable(attrs, {ClassFinalIndex.INDEX_TYPE_FLOAT})
MaybeSetReadOnly(attrs) MaybeSetReadOnly(attrs)
End Sub End Sub
Public Sub IndexTypeIntegerProvider(attrs As PropertyAttributes) Public Sub IndexTypeIntegerProvider(attrs As PropertyAttributes)
MaybeSetBrowsable(attrs, {INDEX_TYPE_INTEGER, INDEX_TYPE_VECTOR_INTEGER}) MaybeSetBrowsable(attrs, {ClassFinalIndex.INDEX_TYPE_INTEGER, ClassFinalIndex.INDEX_TYPE_VECTOR_INTEGER})
MaybeSetReadOnly(attrs) MaybeSetReadOnly(attrs)
End Sub End Sub
Public Sub IndexTypeDateProvider(attrs As PropertyAttributes) Public Sub IndexTypeDateProvider(attrs As PropertyAttributes)
MaybeSetBrowsable(attrs, {INDEX_TYPE_DATE, INDEX_TYPE_VECTOR_DATE}) MaybeSetBrowsable(attrs, {ClassFinalIndex.INDEX_TYPE_DATE, ClassFinalIndex.INDEX_TYPE_VECTOR_DATE})
MaybeSetReadOnly(attrs) MaybeSetReadOnly(attrs)
End Sub End Sub
End Class End Class