Modifica/Correzione commenti

DirectCuts/DirectCutPageUC.xaml.vb

@@ -89,7 +89,7 @@ Public Class DirectCutPageUC
       m_ControlsMachineButton.SetValue(Grid.RowProperty, 1)
       m_VacuumMachineButton.SetValue(Grid.RowProperty, 1)
 
-      Dim bCollpsedNewBottonsConsole As Boolean = False
+      Dim bCollapsedNewBottonsConsole As Boolean = False
       m_NewMachineButtonsType = m_ControlsMachineButton.GetPrivateProfileMachineButtons(S_CONTROLMACHBUTTONS, "Button1", Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, m_MainWindow.GetMachIniFile())
       If Not m_NewMachineButtonsType Then
          'Assegno MachineButtons alla pagina
@@ -97,7 +97,7 @@ Public Class DirectCutPageUC
          ControlsMachineBtn.Visibility = Windows.Visibility.Collapsed
          VacuumMachineBtn.Visibility = Windows.Visibility.Collapsed
          ' per le configurazioni diverse dalla Digitale5
-         bCollpsedNewBottonsConsole = True
+         bCollapsedNewBottonsConsole = True
       End If
 
       If GetPrivateProfileInt(S_NUMERICALCONTROL, K_TYPE, 0, m_MainWindow.GetMachIniFile()) = 0 Then
@@ -115,7 +115,7 @@ Public Class DirectCutPageUC
       SawTestBtn.Content = EgtMsg(90207)
 
       ' nuovi bottoni 20/05/2021
-      If GetPrivateProfileInt(S_NCDATA, K_NEWCONSOLE, 0, m_MainWindow.GetMachIniFile()) = 1 And Not bCollpsedNewBottonsConsole Then
+      If GetPrivateProfileInt(S_NCDATA, K_NEWCONSOLE, 0, m_MainWindow.GetMachIniFile()) = 1 And Not bCollapsedNewBottonsConsole Then
          XYBtn.Content = "X - Y"
          ZBtn.Content = "Z"
          BCBtn.Content = "B - C"
@@ -128,7 +128,7 @@ Public Class DirectCutPageUC
    End Sub
 
    Private Sub DirectCutPage_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
-      '------ NUOVI BOTTONI ----------
+      '------ INIZIO NUOVI BOTTONI ----------
       ' Lettura configurazione bottoni (per impostare l'uso del Joystick) da Ini di macchina
       m_ButtonJogList.Clear()
       Dim m_nCount As Integer = 1
@@ -164,8 +164,8 @@ Public Class DirectCutPageUC
          End If
       End While
       ' lo stato di questi comandi vieni carico dalla lettura del PLC (refresh)
+      '----------- FINE NUOVI BOTTONI------------
 
-      '-----------NUOVI BOTTONI------------
       ' Se rientro da simulazione
       If m_ActiveDirectCutPage = DirectCutPages.SingleCut Then
          LeftButtonGrid.Children.Add(m_SingleCut)