jj: first pass of final index redesign
This commit is contained in:
24
app/DD_PM_WINDREAM/ClassIndexListConverter.vb
Normal file
24
app/DD_PM_WINDREAM/ClassIndexListConverter.vb
Normal 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
|
||||
Reference in New Issue
Block a user