Imports System.Collections.ObjectModel
Imports EgtUILib
Imports EgtWPFLib5

Public Class SceneBuildingVM
   Inherits VMBase

#Region "FIELDS & PROPERTIES"

   Private m_ButtonBuildingList As New ObservableCollection(Of ButtonBuildingItem)
   Public Property ButtonBuildingList As ObservableCollection(Of ButtonBuildingItem)
      Get
         Return m_ButtonBuildingList
      End Get
      Set(value As ObservableCollection(Of ButtonBuildingItem))
         m_ButtonBuildingList = value
         NotifyPropertyChanged(NameOf(ButtonBuildingList))
      End Set
   End Property

   Private m_ViewPanel_IsEnable As Boolean = True
   Public ReadOnly Property ViewPanel_IsEnable As Boolean
      Get
         Return m_ViewPanel_IsEnable
      End Get
   End Property
   Friend Sub SetViewPanel_IsEnable(value As Boolean)
      m_ViewPanel_IsEnable = value
      NotifyPropertyChanged(NameOf(ViewPanel_IsEnable))
   End Sub

#End Region    ' Fields & Properties

#Region "CONSTRUCTOR"

   Sub New()
      Map.SetRefSceneBuildingVM(Me)
   End Sub

#End Region    ' Constructor

End Class

Public Class ButtonBuildingItem
   Inherits VMBase

#Region "FIELDS & PROPERTIES"

   Private m_nIdProd As Integer
   Public Property nIndProd As Integer
      Get
         Return m_nIdProd
      End Get
      Set(value As Integer)
         m_nIdProd = value
         NotifyPropertyChanged(NameOf(nIndProd))
      End Set
   End Property

   Private m_nAsseBase As Integer
   Public Property nAsseBase As Integer
      Get
         Return m_nAsseBase
      End Get
      Set(value As Integer)
         m_nAsseBase = value
         NotifyPropertyChanged(NameOf(nAsseBase))
      End Set
   End Property

   Private m_sNameBTL As String
   Public Property sNameBTL As String
      Get
         Return m_sNameBTL
      End Get
      Set(value As String)
         m_sNameBTL = value
         NotifyPropertyChanged(NameOf(sNameBTL))
      End Set
   End Property

   ' Definizione Comandi
   Private m_ChangeSceneCmd As ICommand

#End Region    ' Fields & Properties

#Region "CONSTRUCTOR"

   Sub New(nIndProd As Integer, nAsseBase As Integer, sNameBTL As String)
      m_nIdProd = nIndProd
      m_nAsseBase = nAsseBase
      m_sNameBTL = sNameBTL
   End Sub

#End Region    ' Constructor

#Region "COMMANDS"

#Region "ChangeSceneCommand"

   Public ReadOnly Property ChangeSceneCommand As ICommand
      Get
         If m_ChangeSceneCmd Is Nothing Then
            m_ChangeSceneCmd = New Command(AddressOf ChangeScene)
         End If
         Return m_ChangeSceneCmd
      End Get
   End Property

   Public Sub ChangeScene(ByVal param As Object)
      ' Setto il nuovo contesto
      EgtSetCurrentContext(Map.refSceneShowBuldingVM.SceneShowBulding.GetCtx())
      For Each ItemAsseBaseId As Integer In Map.refProdManagerVM.ListProjAsseBase.Values
         If ItemAsseBaseId = m_nAsseBase Then
            EgtSetStatus(ItemAsseBaseId, GDB_ST.ON_)
         Else
            EgtSetStatus(ItemAsseBaseId, GDB_ST.OFF)
         End If
      Next
      EgtRedraw()
      ' Ritorno al contesto corrente
      EgtSetCurrentContext(Map.refSceneHostVM.MainScene.GetCtx())
   End Sub

#End Region    ' ChangeSceneCommand

#End Region    ' Commands

End Class