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.AUXSOLIDPARAM
            Map.refFilledSolidParamPanelVM.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