Public Class OptionPanelVM
   Inherits VMBase

#Region "FIELDS & PROPERTIES"

   Friend Enum Tabs As Integer
      RAWPART = 0
      NESTING = 1
      MACHINING = 2
      SIMUL = 3
   End Enum

   Private m_RawTabIsEnabled As Boolean = True
   Public Property RawTabIsEnabled As Boolean
      Get
         Return m_RawTabIsEnabled
      End Get
      Set(value As Boolean)
         m_RawTabIsEnabled = value
         NotifyPropertyChanged("RawTabIsEnabled")
      End Set
   End Property

   Private m_NestTabIsEnabled As Boolean = True
   Public Property NestTabIsEnabled As Boolean
      Get
         Return m_NestTabIsEnabled
      End Get
      Set(value As Boolean)
         m_NestTabIsEnabled = value
         NotifyPropertyChanged("NestTabIsEnabled")
      End Set
   End Property

   Private m_MachTabIsEnabled As Boolean = True
   Public Property MachTabIsEnabled As Boolean
      Get
         Return m_MachTabIsEnabled
      End Get
      Set(value As Boolean)
         m_MachTabIsEnabled = value
         NotifyPropertyChanged("MachTabIsEnabled")
      End Set
   End Property

   Private m_SimulTabIsEnabled As Boolean = True
   Public Property SimulTabIsEnabled As Boolean
      Get
         Return m_SimulTabIsEnabled
      End Get
      Set(value As Boolean)
         m_SimulTabIsEnabled = value
         NotifyPropertyChanged("SimulTabIsEnabled")
      End Set
   End Property

   Private m_SelItem As Integer = -1
   Public Property SelItem As Integer
      Get
         Return m_SelItem
      End Get
      Set(value As Integer)
         ' Esco dallo stato corrente
         Select Case m_SelItem
            Case Tabs.RAWPART
               OmagOFFICEMap.refRawPartTabVM.ExitRawPart()
            Case Tabs.NESTING
            Case Tabs.MACHINING
               OmagOFFICEMap.refMachiningTabVM.ExitMachining()
            Case Tabs.SIMUL
               OmagOFFICEMap.refSimulTabVM.ExitSimulation()
         End Select
         ' Entro nel nuovo stato
         m_SelItem = value
         Select Case m_SelItem
            Case Tabs.RAWPART
               OmagOFFICEMap.refMachGroupPanelVM.SetMachGroupState(False)
               OmagOFFICEMap.refRawPartTabVM.InitRawPart()
               OmagOFFICEMap.refTopCommandBarVM.IsEnabled = False
            Case Tabs.NESTING
               OmagOFFICEMap.refMachGroupPanelVM.SetMachGroupState(True)
               OmagOFFICEMap.refNestingTabVM.InitNesting()
               OmagOFFICEMap.refTopCommandBarVM.IsEnabled = True
            Case Tabs.MACHINING
               OmagOFFICEMap.refMachGroupPanelVM.SetMachGroupState(False)
               OmagOFFICEMap.refMachiningTabVM.InitMachining()
               OmagOFFICEMap.refTopCommandBarVM.IsEnabled = False
            Case Tabs.SIMUL
               OmagOFFICEMap.refMachGroupPanelVM.SetMachGroupState(False)
               OmagOFFICEMap.refSimulTabVM.InitSimulation()
               OmagOFFICEMap.refTopCommandBarVM.IsEnabled = False
         End Select
         NotifyPropertyChanged("SelItem")
      End Set
   End Property

#Region "Messages"

   Public ReadOnly Property RawPartTabMsg As String
      Get
         Return "Grezzo"
      End Get
   End Property
   Public ReadOnly Property NestingTabMsg As String
      Get
         Return "Disponi"
      End Get
   End Property
   Public ReadOnly Property MachiningTabMsg As String
      Get
         Return "Lavora"
      End Get
   End Property
   Public ReadOnly Property SimulTabMsg As String
      Get
         Return "Simula"
      End Get
   End Property

#End Region    ' Messages

#End Region    ' FIELDS & PROPERTIES

#Region "CONSTRUCTOR"

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

#End Region    ' CONSTRUCTOR

End Class