Imports EgtUILib

Public Class CompoWindowVM
   Inherits VMBase

#Region "FIELDS & PROPERTIES"

   Enum CompoPageOpt As Integer
      LIST
      PARAM
   End Enum

   Friend m_SelCompoFamily As CompoItem = Nothing
   Friend m_SelCompo As CompoItem = Nothing

   Private m_CompoPage As CompoPageOpt
   Public Property CompoPage As CompoPageOpt
      Get
         Return m_CompoPage
      End Get
      Set(value As CompoPageOpt)
         m_CompoPage = value
         If value = CompoPageOpt.LIST Then
            CompoWindowMap.refCompoListPageVM.InitCompoListPage()
         Else
            CompoWindowMap.refCompoParamPageVM.InitCompoListPage()
         End If
         NotifyPropertyChanged("CompoPageControl")
      End Set
   End Property

   Private m_CompoListPageV As CompoListPageV
   Private m_CompoParamPageV As CompoParamPageV
   Public ReadOnly Property CompoPageControl As ContentControl
      Get
         If m_CompoPage = CompoPageOpt.LIST Then
            Return m_CompoListPageV
         Else
            Return m_CompoParamPageV
         End If
      End Get
   End Property


#Region "Messages"

   Public ReadOnly Property TitleMsg As String
      Get
         Return EgtMsg(MSG_IMPORTPAGEUC + 13)
      End Get
   End Property

#End Region    ' Messages

#End Region    ' FIELDS & PROPERTIES

#Region "CONSTRUCTOR"

   Sub New()
      ' Avvio l'inizializzazione della mappa passandogli il riferimento al CompoWindowVM
      CompoWindowMap.BeginInit(Me)
      ' Creo pagina CompoList
      m_CompoListPageV = New CompoListPageV
      m_CompoListPageV.DataContext = New CompoListPageVM
      ' Creo pagina CompoParam
      m_CompoParamPageV = New CompoParamPageV
      m_CompoParamPageV.DataContext = New CompoParamPageVM
      ' Inizializzo e visualizzo per default la CompoListPage
      CompoWindowMap.refCompoListPageVM.InitCompoListPage()
      CompoPage = CompoPageOpt.LIST
   End Sub

#End Region    ' CONSTRUCTOR

#Region "METHODS"

#End Region    ' METHODS

End Class