Imports System.Windows.Interop

Public Class SceneButtonV

   Private m_refSceneButtonVM As SceneButtonVM
   Private m_PairUC As PairV

#Region "CONSTRUCTOR"

   Sub New()

      ' La chiamata è richiesta dalla finestra di progettazione.
      InitializeComponent()

      ' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
      m_refSceneButtonVM = New SceneButtonVM()
      Me.DataContext = m_refSceneButtonVM
      Map.SetRefSceneButtonV(Me)
      AddHandler Me.Loaded, AddressOf SceneButtonV_Loaded
   End Sub

#End Region    ' Constructor

#Region "METHODS"

   Public Sub Sizing()
      Me.Width = Map.refMainWindowV.ActualWidth
      Me.Height = Map.refMainWindowV.ActualHeight
   End Sub

   Private Sub SceneButtonV_Loaded(sender As Object, e As RoutedEventArgs)
      Sizing()
   End Sub

   Public Sub LoadPairUC()
      If IsNothing(m_PairUC) Then
         m_PairUC = New PairV
         MainGrid.Children.Add(m_PairUC)
         Grid.SetColumn(MainGrid, 0)
         Grid.SetRow(MainGrid, 0)
         Grid.SetColumnSpan(MainGrid, 2)
         Grid.SetRowSpan(MainGrid, 2)
      End If
   End Sub

   Public Sub RemovePairUC(PairUC As PairV)
      MainGrid.Children.Remove(PairUC)
      PairUC = Nothing
   End Sub


#End Region    ' Methods

End Class