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_CN As CN_generico
   Private m_bFirst As Boolean = True

   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

      'Posizionemento nella griglia delle Page UserControl
      m_MachineButtons.SetValue(Grid.RowProperty, 2)
      m_ManualAxesMove.SetValue(Grid.RowProperty, 1)
      m_SingleCut.SetValue(Grid.RowProperty, 1)

      'Assegno MachineButtons alla pagina
      LowerButtonGrid.Children.Add(m_MachineButtons)


   End Sub

   Private Sub DirectCutPage_Loaded(sender As Object, e As RoutedEventArgs)
      'If m_bFirst Then
      '   m_bFirst = False
      'End If
   End Sub

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

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

End Class