Public Class SceneButtonV

#Region "FIELDS & PROPERTIES"

   Private m_refSceneButtonVM As SceneButtonVM
   Public m_PairUC As PairV
   Public m_RotateUC As RotateV
   Public m_SelOptionUC As SelOptionV
   Public m_MoveUC As SceneUserControlV
   Public m_SceneUserControlV As SceneUserControlV

#End Region    ' Fields & Properties

#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()
      Map.SetRefSceneButtonVM(m_refSceneButtonVM)
      SolidManagerM.ManageUndoRedo()
      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
         Grid.SetColumn(m_PairUC, 0)
         Grid.SetRow(m_PairUC, 0)
         Grid.SetColumnSpan(m_PairUC, 2)
         Grid.SetRowSpan(m_PairUC, 2)
         MainGrid.Children.Add(m_PairUC)
      End If
   End Sub

   Public Sub RemovePairUC()
      MainGrid.Children.Remove(m_PairUC)
      m_PairUC = Nothing
   End Sub

   Public Sub LoadRotateUC()
      If IsNothing(m_RotateUC) Then
         m_RotateUC = New RotateV
         Grid.SetColumn(m_RotateUC, 0)
         Grid.SetRow(m_RotateUC, 0)
         Grid.SetColumnSpan(m_RotateUC, 2)
         Grid.SetRowSpan(m_RotateUC, 2)
         MainGrid.Children.Add(m_RotateUC)
      End If
   End Sub

   Public Sub RemoveRotateUC()
      MainGrid.Children.Remove(m_RotateUC)
      m_RotateUC = Nothing
   End Sub

   Public Sub LoadMoveUC()
      If IsNothing(m_MoveUC) Then
         m_MoveUC = New SceneUserControlV
         Dim m_MoveVM As New MoveVM()
         m_MoveUC.DataContext = m_MoveVM
         Grid.SetColumn(m_MoveUC, 0)
         Grid.SetRow(m_MoveUC, 0)
         Grid.SetColumnSpan(m_MoveUC, 2)
         Grid.SetRowSpan(m_MoveUC, 3)
         MainGrid.Children.Add(m_MoveUC)
      End If
   End Sub

   Public Sub RemoveMoveUC()
      MainGrid.Children.Remove(m_MoveUC)
      m_MoveUC = Nothing
   End Sub

   Public Sub LoadSceneUserControl()
      If IsNothing(m_SceneUserControlV) Then
         m_SceneUserControlV = New SceneUserControlV
         Grid.SetColumn(m_SceneUserControlV, 0)
         Grid.SetRow(m_SceneUserControlV, 0)
         Grid.SetColumnSpan(m_SceneUserControlV, 2)
         Grid.SetRowSpan(m_SceneUserControlV, 2)
         MainGrid.Children.Add(m_SceneUserControlV)
      End If

   End Sub

   Public Sub RemoveSceneUserControlV()
      MainGrid.Children.Remove(m_SceneUserControlV)
      m_SceneUserControlV = Nothing
   End Sub

#End Region    ' Methods

End Class