Imports System.Globalization
Imports EgtUILib
Imports EgtWPFLib5

Public Class RightPanelVM
   Inherits VMBase

   Public Enum Panels As Integer
      NULL = 0
      MATERIALDB = 1
      CURRPRINTPARAM = 2
      PRINTPARAMDB = 3
      RIBPARAM = 4
      SHELLNUMBERPARAM = 5
      AUXSOLIDPARAM = 6
      TFSEDITOR = 7
      SIMULATION = 8
   End Enum

   Private m_SelPanel As Panels
   Public Property SelPanel As Integer
      Get
         Return m_SelPanel
      End Get
      Set(value As Integer)
         m_SelPanel = value
      End Set
   End Property
   Friend Sub SetSelPanel(Panel As Panels)
      If Panel = m_SelPanel Then Return
      Select Case m_SelPanel
         Case Panels.NULL

         Case Panels.MATERIALDB

         Case Panels.PRINTPARAMDB

         Case Panels.RIBPARAM

         Case Panels.TFSEDITOR

         Case Panels.SIMULATION
            Map.refSimulationPanelVM.ExitSimulation()
      End Select
      m_SelPanel = Panel
      Select Case Panel
         Case Panels.NULL

         Case Panels.MATERIALDB

         Case Panels.PRINTPARAMDB

         Case Panels.RIBPARAM
            Map.refRibParamPanelVM.Init()
         Case Panels.SHELLNUMBERPARAM
            Map.refShellNumberParamPanelVM.Init()
         Case Panels.TFSEDITOR
            'Map.refTFSEditorVM.Refresh()
         Case Panels.SIMULATION
            Map.refSimulationPanelVM.InitSimulation()
      End Select
      NotifyPropertyChanged(NameOf(SelPanel))
   End Sub

   Sub New()
      ' Creo riferimento a questa classe in EgtCAM5Map
      Map.SetRefRightPanelVM(Me)
      SetSelPanel(Panels.NULL)
   End Sub

End Class