Imports EgtUILib

Namespace EgtCAM5

   Public Class InstrumentPanelVM
      Inherits ViewModelBase

#Region "FIELDS & PROPERTIES"

#Region "ToolTip"

      Public ReadOnly Property AnalyzeToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 17)
         End Get
      End Property
      Public ReadOnly Property GetDistToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 18)
         End Get
      End Property

#End Region       ' ToolTip

      Private m_AnalyzeIsChecked As Boolean
      Public Property AnalyzeIsChecked As Boolean
         Get
            Return m_AnalyzeIsChecked
         End Get
         Set(value As Boolean)
            If value <> m_AnalyzeIsChecked Then
               m_AnalyzeIsChecked = value
               If value Then
                  Map.refProjectVM.GetScene.SetStatusAnalyze()
               Else
                  Map.refProjectVM.GetScene.ResetStatusAnalyze()
                  Application.Msn.NotifyColleagues(Application.SELECTIDINOBJTREE, GDB_ID.NULL)
               End If
               OnPropertyChanged("AnalyzeIsChecked")
            End If
         End Set
      End Property

      Private m_AnalyzeIsEnabled As Boolean
      Public Property AnalyzeIsEnabled As Boolean
         Get
            Return m_AnalyzeIsEnabled
         End Get
         Set(value As Boolean)
            If value <> m_AnalyzeIsEnabled Then
               m_AnalyzeIsEnabled = value
               OnPropertyChanged("AnalyzeIsEnabled")
            End If
         End Set
      End Property


      Private m_GetDistIsChecked As Boolean
      Public Property GetDistIsChecked As Boolean
         Get
            Return m_GetDistIsChecked
         End Get
         Set(value As Boolean)
            If value <> m_GetDistIsChecked Then
               m_GetDistIsChecked = value
               If value Then
                  Map.refProjectVM.GetScene.SetStatusGetDistance()
               Else
                  Map.refProjectVM.GetScene.ResetStatusGetDistance()
                  Application.Msn.NotifyColleagues(Application.NOTIFYSTATUSOUTPUT, String.Empty)
               End If
               OnPropertyChanged("GetDistIsChecked")
            End If
         End Set
      End Property

#End Region    ' FIELDS & PROPERTIES

#Region "CONSTRUCTOR"

      Sub New()
         Application.Msn.Register(Application.MACHININGMODE_ISCHECKED, Sub()
                                                                          AnalyzeIsChecked = False
                                                                          AnalyzeIsEnabled = False
                                                                       End Sub)
         Application.Msn.Register(Application.DRAWMODE_ISCHECKED, Sub()
                                                                     AnalyzeIsEnabled = True
                                                                  End Sub)
         Application.Msn.Register(Application.ANALYZE_ISCHECKED, Sub(bIsChecked As Boolean)
                                                                    AnalyzeIsChecked = bIsChecked
                                                                 End Sub)
         Application.Msn.Register(Application.GETDISTANCE_ISCHECKED, Sub(bIsChecked As Boolean)
                                                                        GetDistIsChecked = bIsChecked
                                                                     End Sub)
      End Sub

#End Region    ' CONSTRUCTOR

   End Class

End Namespace