OmagCUT 2.3b1:

-> salvataggio nel file Config.ini dei parametri Step e AngStep della pagina NestPage.
This commit is contained in:
Nicola Pievani
2021-02-17 17:14:03 +00:00
parent a27f438fed
commit cd322cf1de
+16
View File
@@ -1324,22 +1324,38 @@ Public Class NestPageUC
Private Sub StepMoveTxBx_EgtClosed(sender As Object, e As EventArgs) Handles StepMoveTxBx.EgtClosed Private Sub StepMoveTxBx_EgtClosed(sender As Object, e As EventArgs) Handles StepMoveTxBx.EgtClosed
Dim dVal As Double Dim dVal As Double
If StringToLen(StepMoveTxBx.Text, dVal) Then If StringToLen(StepMoveTxBx.Text, dVal) Then
If dVal <= 0 Then
dVal = 0
StepMoveTxBx.Text = LenToString(dVal, 2)
ElseIf dVal > 1000 Then
dVal = 1000
StepMoveTxBx.Text = LenToString(dVal, 2)
End If
If Not m_bRegister Then If Not m_bRegister Then
m_dStep = Math.Max(dVal, 2 * EPS_SMALL) m_dStep = Math.Max(dVal, 2 * EPS_SMALL)
Else Else
m_dRegStep = Math.Max(dVal, 2 * EPS_SMALL) m_dRegStep = Math.Max(dVal, 2 * EPS_SMALL)
End If End If
WritePrivateProfileString(S_NEST, K_STEP, StepMoveTxBx.Text, m_MainWindow.GetIniFile())
End If End If
End Sub End Sub
Private Sub RotationAngleTxBx_EgtClosed(sender As Object, e As EventArgs) Handles RotationAngleTxBx.EgtClosed Private Sub RotationAngleTxBx_EgtClosed(sender As Object, e As EventArgs) Handles RotationAngleTxBx.EgtClosed
Dim dVal As Double Dim dVal As Double
If StringToDouble(RotationAngleTxBx.Text, dVal) Then If StringToDouble(RotationAngleTxBx.Text, dVal) Then
If dVal <= 0 Then
dVal = 0
RotationAngleTxBx.Text = DoubleToString(dVal, 2)
ElseIf dVal > 180 Then
dVal = 180
RotationAngleTxBx.Text = DoubleToString(dVal, 2)
End If
If Not m_bRegister Then If Not m_bRegister Then
m_dAngStep = Math.Max(dVal, 50 * EPS_ANG_SMALL) m_dAngStep = Math.Max(dVal, 50 * EPS_ANG_SMALL)
Else Else
m_dRegAngStep = Math.Max(dVal, 50 * EPS_ANG_SMALL) m_dRegAngStep = Math.Max(dVal, 50 * EPS_ANG_SMALL)
End If End If
WritePrivateProfileString(S_NEST, K_ANGSTEP, RotationAngleTxBx.Text, m_MainWindow.GetIniFile())
End If End If
End Sub End Sub