Demetrio Cassarino
31 lines
1.4 KiB
VB.net
31 lines
1.4 KiB
VB.net
Imports EgtUILib
|
|
|
|
Public Class Alarms2PageUC
|
|
|
|
Private m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)
|
|
|
|
Private Sub Alarms2Page_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
|
|
FinalSawCutGpBx.Header = EgtMsg(91254) ' Taglio Finale
|
|
EnableFinalSawCutTxBl.Text = EgtMsg(91255) ' Abilita
|
|
FinalDepthTxBl.Text = EgtMsg(91256) ' Ultimo Spessore
|
|
End Sub
|
|
|
|
Private Sub Allarm2Page_Loaded() Handles Me.Loaded
|
|
EnableFinalSawCutChBx.IsChecked = m_MainWindow.m_CurrentMachine.bEnableFinalSawCut
|
|
FinalDepthTxBx.Text = m_MainWindow.m_CurrentMachine.dFinalDepth
|
|
End Sub
|
|
|
|
Private Sub EnableFinalSawCutChBx_IsChecked() Handles EnableFinalSawCutChBx.Click
|
|
m_MainWindow.m_CurrentMachine.bEnableFinalSawCut = EnableFinalSawCutChBx.IsChecked
|
|
WritePrivateProfileString(S_MACH, K_ENABLEFINALSAWCUT, If(m_MainWindow.m_CurrentMachine.bEnableFinalSawCut, "1", "0"), m_MainWindow.GetMachIniFile())
|
|
End Sub
|
|
|
|
Private Sub FinalDepthTxBx_EgtClosed() Handles FinalDepthTxBx.EgtClosed
|
|
Dim dVal As Double = 0
|
|
StringToLen(FinalDepthTxBx.Text, dVal)
|
|
m_MainWindow.m_CurrentMachine.dFinalDepth = dVal
|
|
WritePrivateProfileString(S_MACH, K_FINALDEPTH, DoubleToString(m_MainWindow.m_CurrentMachine.dFinalDepth, 3), m_MainWindow.GetMachIniFile())
|
|
End Sub
|
|
|
|
End Class
|