Imports EgtWPFLib5
Imports EgtUILib

Public Class ViewPanelProspectiveVM
   Inherits VMBase

#Region "FIELDS & PROPERTIES"

#Region "Messages"

   Public ReadOnly Property Orthographic_Msg
      Get
         Return EgtMsg(110028)      ' Ortografica
      End Get
   End Property

   Public ReadOnly Property Prospective_Msg
      Get
         Return EgtMsg(110029)      ' Prospettica
      End Get
   End Property

#End Region    ' Messages

   ' Definizione Comandi
   Dim m_cmdOrthographicView As ICommand
   Dim m_cmdProspectiveView As ICommand

#End Region    ' Fields & Properties

#Region "CONSTRUCTOR"

   Sub New()
      Map.SetRefViewPanelProspectiveVM(Me)
   End Sub

#End Region    ' Constructor

#Region "METHODS"

   ''' <summary>
   ''' Funzione che aggiorna i messaggi del Manager
   ''' </summary>
   Friend Sub UpdateMessageViewProspectivePanel()
      NotifyPropertyChanged(NameOf(Orthographic_Msg))
      NotifyPropertyChanged(NameOf(Prospective_Msg))
   End Sub

#End Region    ' Methods

#Region "COMMANDS"

#Region "OrthographicViewCommand"

   ''' <summary>
   ''' Returns a command that do TopView.
   ''' </summary>
   Public ReadOnly Property OrthographicViewCommand As ICommand
      Get
         If m_cmdOrthographicView Is Nothing Then
            m_cmdOrthographicView = New Command(AddressOf OrthographicView)
         End If
         Return m_cmdOrthographicView
      End Get
   End Property

   ''' <summary>
   ''' Execute the TopView.  This method is invoked by the OrthographicViewCommand.
   ''' </summary>
   Public Sub OrthographicView(ByVal param As Object)
      EgtSetCameraType(True, True)
   End Sub

#End Region ' OrthographicViewCommand

#Region "ProspectiveViewCommand"

   ''' <summary>
   ''' Returns a command that do TopView.
   ''' </summary>
   Public ReadOnly Property ProspectiveViewCommand As ICommand
      Get
         If m_cmdProspectiveView Is Nothing Then
            m_cmdProspectiveView = New Command(AddressOf ProspectiveView)
         End If
         Return m_cmdProspectiveView
      End Get
   End Property

   ''' <summary>
   ''' Execute the BottomView.  This method is invoked by the ProspectiveViewCommand.
   ''' </summary>
   Public Sub ProspectiveView(ByVal param As Object)
      EgtSetCameraType(False, True)
   End Sub

#End Region ' ProspectiveViewCommand

#End Region    ' Commands

End Class