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

@@ -0,0 +1,24 @@
Imports System.ComponentModel
Imports System.Globalization
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