Imports EgtUILib

Public Class DirectCutPageUC

   ' Dichiarazione delle Page UserControl
   Private m_MainWindow As MainWindow = Application.Current.MainWindow
   Friend m_MachineButtons As MachineButtonsUC
   Friend m_ManualAxesMove As ManualAxesMoveUC
   Friend m_SingleCut As SingleCutUC
   Friend m_MultipleCut As MultipleCut
   Friend m_GridCut As GridCut

   Friend m_CN As CN_generico
   Private m_bFirst As Boolean = True

   ' Riferimento alla pagina correntemente attiva
   Friend m_ActiveDirectCutPage As DirectCutPages

   Enum DirectCutPages
      DirectCut
      SingleCut
      MultipleCut
      GridCut
   End Enum

   Private Sub DirectCutPage_Initialized(sender As Object, e As EventArgs)

      'Creazione delle Page UserControl
      m_MachineButtons = New MachineButtonsUC
      m_ManualAxesMove = New ManualAxesMoveUC
      m_SingleCut = New SingleCutUC
      m_MultipleCut = New MultipleCut
      m_GridCut = New GridCut

      'Posizionemento nella griglia delle Page UserControl
      m_MachineButtons.SetValue(Grid.RowProperty, 2)
      m_ManualAxesMove.SetValue(Grid.RowProperty, 1)
      m_SingleCut.SetValue(Grid.RowProperty, 1)
      m_MultipleCut.SetValue(Grid.RowProperty, 1)
      m_GridCut.SetValue(Grid.RowProperty, 1)
      'Assegno MachineButtons alla pagina
      LowerButtonGrid.Children.Add(m_MachineButtons)

      ManualBtn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 1)
      SingleCutBtn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 2)
      MultipleCutBtn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 3)
      GridCutBtn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 4)
      MachViewModeBtn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 5)
   End Sub

   Private Sub DirectCutPage_Loaded(sender As Object, e As RoutedEventArgs)
      m_ActiveDirectCutPage = DirectCutPages.DirectCut
   End Sub

   Private Sub ManualBtn_Click(sender As Object, e As RoutedEventArgs) Handles ManualBtn.Click
      LeftButtonGrid.Children.Add(m_ManualAxesMove)
   End Sub

   Private Sub SingleCutBtn_Click(sender As Object, e As RoutedEventArgs) Handles SingleCutBtn.Click
      LeftButtonGrid.Children.Add(m_SingleCut)
      m_ActiveDirectCutPage = DirectCutPages.SingleCut
   End Sub

   Private Sub MultipleCutBtn_Click(sender As Object, e As RoutedEventArgs) Handles MultipleCutBtn.Click
      LeftButtonGrid.Children.Add(m_MultipleCut)
      m_ActiveDirectCutPage = DirectCutPages.MultipleCut
   End Sub

   Private Sub GridCutBtn_Click(sender As Object, e As RoutedEventArgs) Handles GridCutBtn.Click
      LeftButtonGrid.Children.Add(m_GridCut)
      m_ActiveDirectCutPage = DirectCutPages.GridCut
   End Sub

   Friend Sub DirectCutPage_Unloaded(sender As Object, e As RoutedEventArgs)
      Select Case m_ActiveDirectCutPage
         Case DirectCutPages.DirectCut
            ' Non è necessario fare alcunché
         Case DirectCutPages.SingleCut
            LeftButtonGrid.Children.Remove(m_SingleCut)
         Case DirectCutPages.MultipleCut
            LeftButtonGrid.Children.Remove(m_MultipleCut)
      End Select
   End Sub

End Class