Mathemathics Framework

Imports ggCoreLib
Imports BV.Math
Imports MidRange
Imports System.ComponentModel

''' <summary>
''' De momento solo soporta una unica parte de una funcion
''' </summary>
''' <remarks></remarks>
Public Class ScannerPropertiesDescriptor
    Inherits ScannerPropertiesDescriptorBase

    Public Sub New(ByVal fn As AdvancedSingleScanner)
        MyBase.New(fn)
    End Sub

    <Browsable(False)> _
    Public Shadows Property SelectedScanner() As AdvancedSingleScanner
        Get
            Return intSc
        End Get
        Set(ByVal value As AdvancedSingleScanner)
            If Not value Is Nothing Then
                intSc = value
            End If
        End Set
    End Property

    <Description("Tipo de Paso del Scanner")> _
    Public Property StepType() As TypeOfIncrement
        Get
            Return CType(intSc, AdvancedSingleScanner).TypeOfStep
        End Get
        Set(ByVal value As TypeOfIncrement)
            If CType(intSc, AdvancedSingleScanner).TypeOfStep <> value Then
                CType(intSc, AdvancedSingleScanner).TypeOfStep = value
                RaiseChange(New EventArgs)
            End If
        End Set
    End Property

End Class