EgtCAM5/PopUpViewPanel/PopUpViewPanelVM.vb

Imports EgtUILib

Public Class PopUpViewPanelVM
   Inherits ViewModelBase

#Region "FIELDS & PROPERTIES"

   ' Definizione comandi
   Private m_cmdZoomIn As ICommand
   Private m_cmdZoomOut As ICommand
   Private m_cmdZoomSel As ICommand
   Private m_cmdIsoViewNE As ICommand
   Private m_cmdIsoViewNW As ICommand
   Private m_cmdViewToCPlane As ICommand

#Region "ToolTip"

   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 ZoomSelToolTip As String
      Get
         Return EgtMsg(MSG_GRIDVIEWPANEL + 33)
      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 "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 RelayCommand(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)
      Map.refProjectVM.GetScene.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 RelayCommand(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)
      Map.refProjectVM.GetScene.ZoomOut()
   End Sub

#End Region ' ZoomOutCommand

#Region "ZoomSelCommand"

   ''' <summary>
   ''' Returns a command that do ZoomSel.
   ''' </summary>
   Public ReadOnly Property ZoomSelCommand As ICommand
      Get
         If m_cmdZoomSel Is Nothing Then
            m_cmdZoomSel = New RelayCommand(AddressOf ZoomSel)
         End If
         Return m_cmdZoomSel
      End Get
   End Property

   ''' <summary>
   ''' Execute the ZoomSel.  This method is invoked by the ZoomSelCommand.
   ''' </summary>
   Public Sub ZoomSel(ByVal param As Object)
      Map.refProjectVM.GetScene.ZoomSel()
   End Sub

#End Region ' ZoomOutCommand

#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 RelayCommand(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)
      Map.refProjectVM.GetScene.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 RelayCommand(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)
      Map.refProjectVM.GetScene.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 RelayCommand(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)
      Map.refProjectVM.GetScene.CPlaneView()
   End Sub

#End Region ' ViewToCPlaneCommand

#End Region    ' COMMANDS

End Class