diff --git a/DirectCuts/DirectCutPageUC.xaml.vb b/DirectCuts/DirectCutPageUC.xaml.vb index 20a12df..b52df8d 100644 --- a/DirectCuts/DirectCutPageUC.xaml.vb +++ b/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)