jj: Baustelle - Finale Indexe

app/DD_PM_WINDREAM/ModuleFinalIndexProperties.vb

@@ -0,0 +1,70 @@
+Imports System.ComponentModel
+Imports System.Drawing.Design
+Imports System.Globalization
+
+Module ModuleFinalIndexProperties
+
+    Public Class FinalIndexProperties
+        <Category("Allgemein")>
+        <[ReadOnly](True)>
+        Public Property GUID As Integer
+        <Category("Allgemein")>
+        <[ReadOnly](True)>
+        Public Property ConnectionId As Integer
+
+        <Category("Sonstiges")>
+        Public Property Description As String
+        <Category("Sonstiges")>
+        Public Property Active As Boolean
+
+        ''' <summary>
+        ''' Eigenschaft, die den SQL Editor anzeigt
+        ''' </summary>
+        <Category("Daten")>
+        Public Property SQLCommand As SQLValue
+        <Category("Daten")>
+        Public Property StaticValue As String
+
+        ''' <summary>
+        ''' Eigenschaft, die eine Liste von Indicies anzeigt
+        ''' </summary>
+        <Category("Index")>
+        <TypeConverter(GetType(IndexListConverter))>
+        Public Property IndexName As String
+        <Category("Index")>
+        Public Property VectorIndex As Boolean
+
+        ''' <summary>
+        ''' Diese Eigenschaft enthält die auswählbaren Indicies, die für das Control verfügbar sind. Wird nicht direkt angezeigt.
+        ''' </summary>       
+        <Browsable(False)>
+        Public Property Indicies As List(Of String)
+
+
+
+        Public Class IndexListConverter
+            Inherits TypeConverter
+
+            Public Overrides Function GetStandardValuesSupported(context As ITypeDescriptorContext) As Boolean
+                Return True
+            End Function
+
+            Public Overrides Function GetStandardValues(context As ITypeDescriptorContext) As StandardValuesCollection
+                Dim indexList = DirectCast(context.Instance, FinalIndexProperties).Indicies
+                Dim values As New StandardValuesCollection(indexList)
+                Return values
+            End Function
+
+            Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As CultureInfo, value As Object, destinationType As Type) As Object
+                If IsNothing(value) Then
+                    Return ""
+                Else
+                    Return value.ToString()
+                End If
+            End Function
+        End Class
+
+    End Class
+
+
+End Module