Imports EgtUILib


Public Class ViewPanelVM

#Region "FIELDS & PROPERTIES"

   ' Definizione comandi
   Private m_cmdZoomAll 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_cmdIsoViewSW As ICommand

#Region "ToolTip"

   Public ReadOnly Property ZoomAllToolTip As String
      Get
         Return "Zoom all"
      End Get
   End Property

   Public ReadOnly Property LookFromTopToolTip As String
      Get
         Return "Top view"
         'Return EgtMsg(MSG_GRIDVIEWPANEL + 7)
      End Get
   End Property

   Public ReadOnly Property LookFromFrontToolTip As String
      Get
         Return "Front view"
      End Get
   End Property

   Public ReadOnly Property LookFromLeftToolTip As String
      Get
         Return "Left view"
      End Get
   End Property

   Public ReadOnly Property LookFromBackToolTip As String
      Get
         Return "Back view"
      End Get
   End Property

   Public ReadOnly Property LookFromRightToolTip As String
      Get
         Return "Right view"
      End Get
   End Property

   Public ReadOnly Property LookFromIso_SWToolTip As String
      Get
         Return "IsoSW view"
      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)
      OmagOFFICEMap.refSceneHostV.ZoomMode(ZM.ALL)
   End Sub

#End Region ' ZoomAllCommand

#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)
      OmagOFFICEMap.refSceneHostV.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)
      OmagOFFICEMap.refSceneHostV.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)
      OmagOFFICEMap.refSceneHostV.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)
      OmagOFFICEMap.refSceneHostV.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)
      OmagOFFICEMap.refSceneHostV.ViewMode(VT.RIGHT)
   End Sub

#End Region ' RightViewCommand

#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)
      OmagOFFICEMap.refSceneHostV.ViewMode(VT.ISO_SW)
   End Sub

#End Region ' IsoViewSWCommand

#End Region    ' COMMANDS

End Class