add some constants for index types

2021-09-23 12:06:24 +02:00
parent 59d6d26dce
commit 66039f22d8
4 changed files with 13 additions and 9 deletions
--- a/Global_Indexer/ClassControls.vb
+++ b/Global_Indexer/ClassControls.vb
@@ -27,7 +27,7 @@ Public Class ClassControls
            chk.Location = New Point(11, y)
            chk.Tag = New ControlMeta() With {
                .IndexName = indexname,
-                .IndexType = "BOOLEAN"
+                .IndexType = ClassConstants.INDEX_TYPE_BOOLEAN
            }

            If caption <> "" Then
@@ -312,7 +312,7 @@ Public Class ClassControls
        }

        Select Case DataType
-            Case "INTEGER"
+            Case ClassConstants.INDEX_TYPE_INTEGER
                oEdit.Properties.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.Numeric
                oEdit.Properties.Mask.EditMask = "d"
                Console.WriteLine()