EgtCAM5 :

- Cambiati nomi classi e file.

PopUpViewPanel/PopUpViewPanelVM.vb

@@ -0,0 +1,204 @@
+Imports EgtUILib
+
+Namespace EgtCAM5
+
+   Public Class PopUpViewPanelVM
+      Inherits ViewModelBase
+
+#Region "FIELDS & PROPERTIES"
+
+      ' Definizione comandi
+      Private m_cmdZoomIn As ICommand
+      Private m_cmdZoomOut As ICommand
+      Private m_cmdIsoViewSE 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 LookFromIso_SEToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 13)
+         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 "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 RelayCommand(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)
+         Map.refProjectVM.GetScene.IsoViewSE()
+      End Sub
+
+#End Region ' IsoViewSECommand
+
+#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
+
+End Namespace