Imports EgtUILib
Imports EgtWPFLib5

Public Class MachineViewPanelVM
   Inherits VMBase

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

   Sub New()
      ' Creo riferimento a questa classe in OmagOFFICEMap
      Map.SetRefMachineViewPanelVM(Me)
   End Sub

End Class