Imports EgtUILib
Imports EgtWPFLib5

Public Class MachineViewPanelVM
   Inherits VMBase

   Private m_nSelMachView As MCH_LOOK
   Public Property ghSelMachView As Integer
      Get
         Return m_nSelMachView - 1
      End Get
      Set(value As Integer)
         m_nSelMachView = value + 1
         If Not IsNothing(Map.refSimulationPanelVM) Then
            Dim MySimul As SimulationVM = Map.refSimulationPanelVM.MySimul
            MySimul.SetMachLook(m_nSelMachView)
            ' aggiorno lo stato della macchina e la sua visualizzazione
            EgtSetMachineLook(MySimul.GetMachLook())
            WriteMainPrivateProfileString(S_SIMUL, K_MACHVIEWMODE, m_nSelMachView)
         End If
         EgtDraw()
      End Set
   End Property
   Friend Sub SetSelViewSlider(value As MCH_LOOK)
      m_nSelMachView = value
      NotifyPropertyChanged(NameOf(ghSelMachView))
   End Sub

   Sub New()
      ' leggo vista macchina da ini e la imposto
      Dim DefaultMachViewMode As Integer = GetMainPrivateProfileInt(S_SIMUL, K_MACHVIEWMODE, 3)
      SetSelViewSlider(DefaultMachViewMode)
   End Sub

End Class