AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

jj: fix indexlistconverter

Browse Source
This commit is contained in:
Jonathan Jenne 2018-06-28 16:52:47 +02:00
parent 0dc40d38c2
commit 7f0f381ffa
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
app/DD_PM_WINDREAM/ClassIndexListConverter.vb
View File

@ -9,7 +9,14 @@ Public Class IndexListConverter
End Function End Function
Public Overrides Function GetStandardValues(context As ITypeDescriptorContext) As StandardValuesCollection Public Overrides Function GetStandardValues(context As ITypeDescriptorContext) As StandardValuesCollection
Dim indexList = DirectCast(context.Instance, FinalIndexProperties).Indicies Dim indexList = New List(Of String)
If TypeOf (context.Instance) Is FinalIndexProperties Then
indexList = DirectCast(context.Instance, FinalIndexProperties).Indicies
ElseIf TypeOf (context.Instance) Is InputProperties Then
indexList = DirectCast(context.Instance, InputProperties).Indicies
End If
Dim values As New StandardValuesCollection(indexList) Dim values As New StandardValuesCollection(indexList)
Return values Return values
End Function End Function