EgtWPFLib5/InstrumentPanel/InstrumentPanelVM.vb

Imports EgtUILib

Public Class InstrumentPanelVM
   Inherits VMBase

#Region "FIELDS & PROPERTIES"

   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
            GetDistIsChecked = False
            If value Then
               LibMap.refSceneHostVM.MainScene.SetStatusAnalyze()
            Else
               LibMap.refSceneHostVM.MainScene.ResetStatusAnalyze()
            End If
            NotifyPropertyChanged(NameOf(GetDistIsChecked))
            NotifyPropertyChanged(NameOf(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
            NotifyPropertyChanged(NameOf(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
            AnalyzeIsChecked = False
            If value Then
               LibMap.refSceneHostVM.GetDistanceON()
            Else
               LibMap.refSceneHostVM.GetDistanceOFF()
               LibMap.refSceneHostVM.MainScene.SetStatusNull()
               LibMap.refStatusBarVM.ClearOutputMessage()
               OnPostGetDistIsChecked()
            End If
            NotifyPropertyChanged(NameOf(GetDistIsChecked))
            NotifyPropertyChanged(NameOf(AnalyzeIsChecked))
         End If
      End Set
   End Property


   Public Overridable Function OnPostGetDistIsChecked() As Boolean
      Return True
   End Function


#Region "ToolTip"

   Public ReadOnly Property AnalyzeToolTip As String
      Get
         Return EgtMsg(5267)     ' Analizza
      End Get
   End Property
   Public ReadOnly Property GetDistToolTip As String
      Get
         Return EgtMsg(5268)     ' Distanza
      End Get
   End Property

#End Region       ' ToolTip

#End Region    ' FIELDS & PROPERTIES

#Region "CONSTRUCTOR"

   Sub New()

   End Sub

#End Region    ' CONSTRUCTOR

End Class