jj: first pass of final index redesign

This commit is contained in:
Jonathan Jenne
2018-06-21 15:26:17 +02:00
parent fc8631bad8
commit c38e20170b
12 changed files with 1373 additions and 806 deletions

View File

@@ -206,31 +206,6 @@ Public Module ModuleControlProperties
_default_value = value
End Set
End Property
''' <summary>
''' Sorgt dafür, dass die Liste von Indicies aus dem gleichnamigen Feld ausgelesen wird
''' </summary>
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, InputProperties).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
Public Class TextboxProperties