Imports EgtUILib

Public Class ShowPanelVM
   Inherits ViewModelBase
#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
   Public ReadOnly Property CurveDirToolTip As String
      Get
         Return EgtMsg(MSG_GRIDVIEWPANEL + 16)
      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
               Map.refProjectVM.GetScene.WireFrame()
               OnPropertyChanged("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
               Map.refProjectVM.GetScene.HiddenLine()
               OnPropertyChanged("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
               Map.refProjectVM.GetScene.Shading()
               OnPropertyChanged("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)
            OnPropertyChanged("CurveDirIsChecked")
         End If
      End Set
   End Property

#End Region    ' FIELDS & PROPERTIES

#Region "CONSTRUCTOR"

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

#End Region    ' CONSTRUCTOR

#Region "METHODS"

   Friend Sub ShowModeState(nShowModeState As Integer)
      If nShowModeState = SM.WIREFRAME Then
         WireframeIsChecked = True
      ElseIf nShowModeState = SM.HIDDENLINE Then
         HiddenLineIsChecked = True
      Else
         ShadingIsChecked = True
      End If
   End Sub

   Friend Sub ShowCurveDir(nShowCurveDir As Integer)
      CurveDirIsChecked = (nShowCurveDir <> 0)
   End Sub

#End Region    ' METHODS

End Class