Imports EgtUILib

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()
               Map.refManageLayerExpanderVM.SelectIdInObjTree(GDB_ID.NULL)
               Map.refStatusBarVM.NotifyStatusOutput("")
               Analyze.EraseAnalyzeGroup()
               EgtDraw()
            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()
               Map.refStatusBarVM.NotifyStatusOutput(String.Empty)
            End If
            OnPropertyChanged("GetDistIsChecked")
         End If
      End Set
   End Property

#End Region    ' FIELDS & PROPERTIES

#Region "CONSTRUCTOR"

   Sub New()
      Map.SetRefInstrumentPanelVM(Me)
   End Sub

#End Region    ' CONSTRUCTOR

#Region "METHODS"

   Friend Sub Analyze_IsChecked(bIsChecked As Boolean)
      AnalyzeIsChecked = bIsChecked
   End Sub

   Friend Sub GetDistance_IsChecked(bIsChecked As Boolean)
      GetDistIsChecked = bIsChecked
   End Sub

#End Region    ' METHODS

End Class