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

#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)
      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

#End Region    ' Methods

End Class