EgtWPFLib5/ViewPanel/ViewPanelVM.vb

Imports EgtUILib

Public Class ViewPanelVM

#Region "FIELDS & PROPERTIES"

   ' Definizione comandi
   Private m_cmdZoomAll As ICommand
   Private m_cmdZoomIn As ICommand
   Private m_cmdZoomOut As ICommand
   Private m_cmdTopView As ICommand
   Private m_cmdFrontView As ICommand
   Private m_cmdLeftView As ICommand
   Private m_cmdBackView As ICommand
   Private m_cmdRightView As ICommand
   Private m_cmdIsoViewSE As ICommand
   Private m_cmdIsoViewSW As ICommand
   Private m_cmdIsoViewNE As ICommand
   Private m_cmdIsoViewNW As ICommand
   Private m_cmdViewToCPlane As ICommand

#Region "ToolTip"

   Public ReadOnly Property ZoomAllToolTip As String
      Get
         Return EgtMsg(MSG_GRIDVIEWPANEL + 4)
      End Get
   End Property

   Public ReadOnly Property ZoomInToolTip As String
      Get
         Return EgtMsg(MSG_GRIDVIEWPANEL + 5)
      End Get
   End Property

   Public ReadOnly Property ZoomOutToolTip As String
      Get
         Return EgtMsg(MSG_GRIDVIEWPANEL + 6)
      End Get
   End Property

   Public ReadOnly Property LookFromTopToolTip As String
      Get
         Return EgtMsg(MSG_GRIDVIEWPANEL + 7)
      End Get
   End Property

   Public ReadOnly Property LookFromFrontToolTip As String
      Get
         Return EgtMsg(MSG_GRIDVIEWPANEL + 8)
      End Get
   End Property

   Public ReadOnly Property LookFromLeftToolTip As String
      Get
         Return EgtMsg(MSG_GRIDVIEWPANEL + 9)
      End Get
   End Property

   Public ReadOnly Property LookFromBackToolTip As String
      Get
         Return EgtMsg(MSG_GRIDVIEWPANEL + 10)
      End Get
   End Property

   Public ReadOnly Property LookFromRightToolTip As String
      Get
         Return EgtMsg(MSG_GRIDVIEWPANEL + 11)
      End Get
   End Property

   Public ReadOnly Property LookFromIso_SEToolTip As String
      Get
         Return EgtMsg(MSG_GRIDVIEWPANEL + 13)
      End Get
   End Property

   Public ReadOnly Property LookFromIso_SWToolTip As String
      Get
         Return EgtMsg(MSG_GRIDVIEWPANEL + 12)
      End Get
   End Property

   Public ReadOnly Property LookFromIso_NEToolTip As String
      Get
         Return EgtMsg(MSG_GRIDVIEWPANEL + 14)
      End Get
   End Property

   Public ReadOnly Property LookFromIso_NWToolTip As String
      Get
         Return EgtMsg(MSG_GRIDVIEWPANEL + 15)
      End Get
   End Property

   Public ReadOnly Property ViewToCPlaneToolTip As String
      Get
         Return EgtMsg(MSG_GRIDVIEWPANEL + 32)
      End Get
   End Property

#End Region    ' ToolTip

#End Region    ' FIELDS & PROPERTIES

#Region "COMMANDS"

#Region "ZoomAllCommand"

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

   ''' <summary>
   ''' Execute the ZoomAll.  This method is invoked by the ZoomAllCommand.
   ''' </summary>
   Public Sub ZoomAll(ByVal param As Object)
      LibMap.refSceneHostVM.ZoomMode(ZM.ALL)
   End Sub

#End Region ' ZoomAllCommand

#Region "ZoomInCommand"

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

   ''' <summary>
   ''' Execute the ZoomIn.  This method is invoked by the ZoomInCommand.
   ''' </summary>
   Public Sub ZoomIn(ByVal param As Object)
      LibMap.refSceneHostVM.MainScene.ZoomIn()
   End Sub

#End Region ' ZoomInCommand

#Region "ZoomOutCommand"

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

   ''' <summary>
   ''' Execute the ZoomOut.  This method is invoked by the ZoomOutCommand.
   ''' </summary>
   Public Sub ZoomOut(ByVal param As Object)
      LibMap.refSceneHostVM.MainScene.ZoomOut()
   End Sub

#End Region ' ZoomOutCommand

#Region "TopViewCommand"

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

   ''' <summary>
   ''' Execute the TopView.  This method is invoked by the TopViewCommand.
   ''' </summary>
   Public Sub TopView(ByVal param As Object)
      LibMap.refSceneHostVM.ViewMode(VT.TOP)
   End Sub

#End Region ' TopViewCommand

#Region "FrontViewCommand"

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

   ''' <summary>
   ''' Execute the FrontView.  This method is invoked by the FrontViewCommand.
   ''' </summary>
   Public Sub FrontView(ByVal param As Object)
      LibMap.refSceneHostVM.ViewMode(VT.FRONT)
   End Sub

#End Region ' FrontViewCommand

#Region "LeftViewCommand"

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

   ''' <summary>
   ''' Execute the LeftView.  This method is invoked by the LeftViewCommand.
   ''' </summary>
   Public Sub LeftView(ByVal param As Object)
      LibMap.refSceneHostVM.ViewMode(VT.LEFT)
   End Sub

#End Region ' LeftViewCommand

#Region "BackViewCommand"

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

   ''' <summary>
   ''' Execute the BackView.  This method is invoked by the BackViewCommand.
   ''' </summary>
   Public Sub BackView(ByVal param As Object)
      LibMap.refSceneHostVM.ViewMode(VT.BACK)
   End Sub

#End Region ' BackViewCommand

#Region "RightViewCommand"

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

   ''' <summary>
   ''' Execute the RightView.  This method is invoked by the RightViewCommand.
   ''' </summary>
   Public Sub RightView(ByVal param As Object)
      LibMap.refSceneHostVM.ViewMode(VT.RIGHT)
   End Sub

#End Region ' RightViewCommand

#Region "IsoViewSECommand"

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

   ''' <summary>
   ''' Execute the IsoViewSE.  This method is invoked by the IsoViewSECommand.
   ''' </summary>
   Public Sub IsoViewSE(ByVal param As Object)
      LibMap.refSceneHostVM.MainScene.IsoViewSE()
   End Sub

#End Region ' IsoViewSECommand

#Region "IsoViewSWCommand"

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

   ''' <summary>
   ''' Execute the IsoViewSW.  This method is invoked by the IsoViewSWCommand.
   ''' </summary>
   Public Sub IsoViewSW(ByVal param As Object)
      LibMap.refSceneHostVM.ViewMode(VT.ISO_SW)
   End Sub

#End Region ' IsoViewSWCommand

#Region "IsoViewNECommand"

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

   ''' <summary>
   ''' Execute the IsoViewNE.  This method is invoked by the IsoViewNECommand.
   ''' </summary>
   Public Sub IsoViewNE(ByVal param As Object)
      LibMap.refSceneHostVM.MainScene.IsoViewNE()
   End Sub

#End Region ' IsoViewNECommand

#Region "IsoViewNWCommand"

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

   ''' <summary>
   ''' Execute the IsoViewNW.  This method is invoked by the IsoViewNWCommand.
   ''' </summary>
   Public Sub IsoViewNW(ByVal param As Object)
      LibMap.refSceneHostVM.MainScene.IsoViewNW()
   End Sub

#End Region ' IsoViewNWCommand

#Region "ViewToCPlaneCommand"

   ''' <summary>
   ''' Returns a command that do GetDist.
   ''' </summary>
   Public ReadOnly Property ViewToCPlaneCommand As ICommand
      Get
         If m_cmdViewToCPlane Is Nothing Then
            m_cmdViewToCPlane = New Command(AddressOf ViewToCPlane)
         End If
         Return m_cmdViewToCPlane
      End Get
   End Property

   ''' <summary>
   ''' Execute the GetDist.  This method is invoked by the GetDistCommand.
   ''' </summary>
   Public Sub ViewToCPlane(ByVal param As Object)
      LibMap.refSceneHostVM.MainScene.CPlaneView()
   End Sub

#End Region ' ViewToCPlaneCommand

#End Region    ' COMMANDS

End Class