Imports EgtUILib

Public Class ShowPanelVM
   Inherits VMBase

#Region "FIELDS & PROPERTIES"

   ' Definizione comandi
   Private m_cmdWireframe As ICommand
   Private m_cmdHiddenLine As ICommand
   Private m_cmdShading As ICommand
   Private m_cmdCurveDir As ICommand

#Region "ToolTip"

   Public ReadOnly Property RenderingWFToolTip As String
      Get
         'Return EgtMsg(MSG_GRIDVIEWPANEL + 1)
      End Get
   End Property

   Public ReadOnly Property RenderingHLToolTip As String
      Get
         'Return EgtMsg(MSG_GRIDVIEWPANEL + 2)
      End Get
   End Property

   Public ReadOnly Property RenderingSHToolTip As String
      Get
         'Return EgtMsg(MSG_GRIDVIEWPANEL + 3)
      End Get
   End Property

#End Region

   Private m_WireframeIsChecked As Boolean
   Public Property WireframeIsChecked As Boolean
      Get
         Return m_WireframeIsChecked
      End Get
      Set(value As Boolean)
         If value <> m_WireframeIsChecked Then
            m_WireframeIsChecked = value
            If value Then
               OmagOFFICEMap.refSceneHostV.ShowMode(SM.WIREFRAME)
               NotifyPropertyChanged("WireframeIsChecked")
            End If
         End If
      End Set
   End Property

   Private m_HiddenLineIsChecked As Boolean
   Public Property HiddenLineIsChecked As Boolean
      Get
         Return m_HiddenLineIsChecked
      End Get
      Set(value As Boolean)
         If value <> m_HiddenLineIsChecked Then
            m_HiddenLineIsChecked = value
            If value Then
               OmagOFFICEMap.refSceneHostV.ShowMode(SM.HIDDENLINE)
               NotifyPropertyChanged("HiddenLineIsChecked")
            End If
         End If
      End Set
   End Property

   Private m_ShadingIsChecked As Boolean
   Public Property ShadingIsChecked As Boolean
      Get
         Return m_ShadingIsChecked
      End Get
      Set(value As Boolean)
         If value <> m_ShadingIsChecked Then
            m_ShadingIsChecked = value
            If value Then
               OmagOFFICEMap.refSceneHostV.ShowMode(SM.SHADING)
               NotifyPropertyChanged("ShadingIsChecked")
            End If
         End If
      End Set
   End Property

#End Region    ' FIELDS & PROPERTIES

#Region "CONSTRUCTOR"

   Sub New()
      ' Creo riferimento a questa classe in OmagOFFICEMap
      OmagOFFICEMap.SetRefShowPanelVM(Me)
   End Sub

#End Region    ' CONSTRUCTOR

#Region "METHODS"

   Friend Sub SetShowMode(nShowModeType As SM)
      Select Case nShowModeType
         Case SM.WIREFRAME
            WireframeIsChecked = True
         Case SM.HIDDENLINE
            HiddenLineIsChecked = True
         Case SM.SHADING
            ShadingIsChecked = True
      End Select
   End Sub

#End Region

End Class