Mathemathics Framework

Imports Basics
Imports MidRange
Imports IMidRange
Imports System.Drawing
Imports System.ComponentModel
Imports System.Text





Public Class SingCollectionPropertyDescriptor
    Inherits PropertyDescriptor

    Private intSingCollection As SingularityCollection
    Private index As Integer = -1

    Public Sub New(ByVal SingCollection As SingularityCollection, ByVal Idx As Integer)
        MyBase.New("#" & Idx.ToString, Nothing)

        intSingCollection = SingCollection
        index = Idx
    End Sub

    Public Overrides ReadOnly Property DisplayName() As String
        Get
            Return intSingCollection.Singularity(index).BinomicToString
        End Get
    End Property

    Public Overrides ReadOnly Property Description() As String
        Get
            Dim sb As StringBuilder = New StringBuilder
            sb.Append(intSingCollection.Singularity(index).BinomicToString)
            sb.Append(intSingCollection.Singularity(index).K.ToString)

            Return sb.ToString
        End Get
    End Property

    Public Overrides ReadOnly Property Name() As String
        Get
            Return "#" & Me.intSingCollection.Singularity(index).BinomicToString
        End Get
    End Property

    Public Overrides Function CanResetValue(ByVal component As Object) As Boolean
        Return True
    End Function

    Public Overrides ReadOnly Property ComponentType() As System.Type
        Get
            Return Me.intSingCollection.GetType
        End Get
    End Property

    Public Overrides Function GetValue(ByVal component As Object) As Object
        Return Me.intSingCollection.Singularity(index)
    End Function

    Public Overrides ReadOnly Property IsReadOnly() As Boolean
        Get
            Return False
        End Get
    End Property

    Public Overrides ReadOnly Property PropertyType() As System.Type
        Get
            Return Me.intSingCollection.GetType
        End Get
    End Property

    Public Overrides Sub ResetValue(ByVal component As Object)

    End Sub

    Public Overrides Sub SetValue(ByVal component As Object, ByVal value As Object)

    End Sub

    Public Overrides Function ShouldSerializeValue(ByVal component As Object) As Boolean
        Return True
    End Function

End Class