OmagCUT 2.3b1:
-> salvataggio nel file Config.ini dei parametri Step e AngStep della pagina NestPage.
This commit is contained in:
@@ -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
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user