Mathemathics Framework

Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports System.ComponentModel
Imports BV.Math
Imports BV.Core
Imports MidRange
Imports IMidRange

'propiedades que se muestran de un Frame
Public Class FrameAxisCplxProperties

    Protected intFrame As FrameAxisXY
    Protected intVisor As VisorBase
    Protected intDescription As String

    Public Sub New(ByVal frmAxs As FrameAxisXY, ByVal Visor As VisorBase, ByVal Description As String)
        Me.intDescription = Description
        Me.intFrame = frmAxs
        Me.intVisor = Visor
    End Sub

    <Category("Description")> _
    Public ReadOnly Property Description() As String
        Get
            Return Me.intDescription
        End Get
    End Property

    <Category("Behaviour")> _
    Public Overridable Property AutoScale() As Boolean  'Implements IAutoScalable.AutoScale
        Get
            Return intFrame.AutoScale
        End Get
        Set(ByVal Value As Boolean)
            If intFrame.AutoScale <> Value Then
                intFrame.AutoScale = Value
                intVisor.Refresh()
            End If
        End Set
    End Property

    <Category("Appearance")> _
    Public Overridable Property UnitIsVisible() As Boolean
        Get
            Return intFrame.UnitsVisible
        End Get
        Set(ByVal Value As Boolean)
            If intFrame.UnitsVisible <> Value Then
                intFrame.UnitsVisible = Value
                intVisor.Refresh()
            End If
        End Set
    End Property

    <Category("Appearance")> _
    Public Overridable Property LabelIsVisible() As Boolean
        Get
            Return intFrame.LabelIsVisible
        End Get
        Set(ByVal Value As Boolean)
            If intFrame.LabelIsVisible <> Value Then
                intFrame.LabelIsVisible = Value
                intVisor.Refresh()
            End If
        End Set
    End Property

    <Category("Appearance")> _
    Public Overridable Property AxisLabel() As String
        Get
            Return intFrame.AxisLabel
        End Get
        Set(ByVal Value As String)
            If intFrame.AxisLabel <> Value Then
                intFrame.AxisLabel = Value
                intVisor.Refresh()
            End If
        End Set
    End Property

    <Category("Appearance")> _
    Public Overridable Property AxisUnit() As String
        Get
            Return intFrame.AxisUnit
        End Get
        Set(ByVal Value As String)
            If intFrame.AxisUnit <> Value Then
                intFrame.AxisUnit = Value
                intVisor.Refresh()
            End If
        End Set
    End Property

    <Category("Scale")> _
    Public Overridable Property Range() As RangeF
        Get
            Return intFrame.Range
        End Get
        Set(ByVal Value As RangeF)
            If Not intFrame.Range.Equals(Value) Then
                intFrame.Range = Value
                intVisor.Refresh()
            End If
        End Set
    End Property


End Class