Imports EgtUILib

Public Class ShowPanelVM
   Inherits VMBase

#Region "FIELDS & PROPERTIES"

   ' Definizione comandi
   Private m_cmdCurveDir As ICommand

#Region "ToolTip"

   Public ReadOnly Property RenderingWFToolTip As String
      Get
         Return EgtMsg(5251)     ' Wireframe
      End Get
   End Property

   Public ReadOnly Property RenderingHLToolTip As String
      Get
         Return EgtMsg(5252)     ' Linee Nascoste
      End Get
   End Property

   Public ReadOnly Property RenderingSHToolTip As String
      Get
         Return EgtMsg(5253)     ' Ombreggiature
      End Get
   End Property

   Public ReadOnly Property CurveDirToolTip As String
      Get
         Return EgtMsg(5266)     ' Mostra Direzione Curve
      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
               LibMap.refSceneHostVM.ShowMode(SM.WIREFRAME)
               NotifyPropertyChanged(NameOf(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
               LibMap.refSceneHostVM.ShowMode(SM.HIDDENLINE)
               NotifyPropertyChanged(NameOf(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
               LibMap.refSceneHostVM.ShowMode(SM.SHADING)
               NotifyPropertyChanged(NameOf(ShadingIsChecked))
            End If
         End If
      End Set
   End Property

   Private m_CurveDirIsChecked As Boolean
   Public Property CurveDirIsChecked As Boolean
      Get
         Return m_CurveDirIsChecked
      End Get
      Set(value As Boolean)
         If value <> m_CurveDirIsChecked Then
            m_CurveDirIsChecked = value
            EgtSetShowCurveDirection(value)
            NotifyPropertyChanged(NameOf(CurveDirIsChecked))
         End If
      End Set
   End Property

#End Region    ' FIELDS & PROPERTIES

#Region "CONSTRUCTOR"

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

#End Region    ' CONSTRUCTOR

#Region "METHODS"

   Public 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