Egalware/EgtDOORCreator
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

EgtDOORCreator 1.9a1 : Sostituzione della lista EdgeType.

Browse Source
This commit is contained in:
Nicola Pievani
2018-01-17 16:25:28 +00:00
parent 6e3f16d2ff
commit 8302ff6392
5 changed files with 183 additions and 185 deletions
Download Patch File Download Diff File Expand all files Collapse all files
OptionsWindow/OptionModule.vb
+12 -12
View File
@@ -249,20 +249,20 @@ Friend Module OptionModule
' carico i valori associati agli spigoli
Dim LockEdgeType As String = String.Empty
DefaultGetPrivateProfileString(S_EDGE, K_LOCKEDGE_INI, "", LockEdgeType)
For Index = 0 To OptionsVM.EdgeTypeList.Count - 1
If OptionsVM.EdgeTypeList(Index).Name = LockEdgeType Then
m_LockEdgeType = OptionsVM.EdgeTypeList(Index)
For Index = 0 To OptionsVM.LockEdgeTypeList.Count - 1
If OptionsVM.LockEdgeTypeList(Index).Name = LockEdgeType Then
m_LockEdgeType = OptionsVM.LockEdgeTypeList(Index)
End If
Next
If String.IsNullOrWhiteSpace(m_LockEdgeType.Name) Then m_LockEdgeType = OptionsVM.EdgeTypeList(0)
If String.IsNullOrWhiteSpace(m_LockEdgeType.Name) Then m_LockEdgeType = OptionsVM.LockEdgeTypeList(0)
Dim HingeEdgeType As String = String.Empty
DefaultGetPrivateProfileString(S_EDGE, K_HINGEDGE_INI, "SQ", HingeEdgeType)
For Index = 0 To OptionsVM.EdgeTypeList.Count - 1
If OptionsVM.EdgeTypeList(Index).Name = HingeEdgeType Then
m_HingeEdgeType = OptionsVM.EdgeTypeList(Index)
For Index = 0 To OptionsVM.HingeEdgeTypeList.Count - 1
If OptionsVM.HingeEdgeTypeList(Index).Name = HingeEdgeType Then
m_HingeEdgeType = OptionsVM.HingeEdgeTypeList(Index)
End If
Next
If String.IsNullOrWhiteSpace(m_HingeEdgeType.Name) Then m_HingeEdgeType = OptionsVM.EdgeTypeList(0)
If String.IsNullOrWhiteSpace(m_HingeEdgeType.Name) Then m_HingeEdgeType = OptionsVM.HingeEdgeTypeList(0)
Dim TopType As String = String.Empty
DefaultGetPrivateProfileString(S_EDGE, K_TOPEDGE_INI, "SQ", TopType)
For Index = 0 To OptionsVM.TopEdgeTypeList.Count - 1
@@ -273,12 +273,12 @@ Friend Module OptionModule
If String.IsNullOrWhiteSpace(m_TopType.Name) Then m_TopType = OptionsVM.TopEdgeTypeList(0)
Dim BottomType As String = String.Empty
DefaultGetPrivateProfileString(S_EDGE, K_BOTTOMEDGE_INI, "SQ", BottomType)
For Index = 0 To OptionsVM.TopEdgeTypeList.Count - 1
If OptionsVM.TopEdgeTypeList(Index).Name = BottomType Then
m_BottomType = OptionsVM.TopEdgeTypeList(Index)
For Index = 0 To OptionsVM.BottomEdgeTypeList.Count - 1
If OptionsVM.BottomEdgeTypeList(Index).Name = BottomType Then
m_BottomType = OptionsVM.BottomEdgeTypeList(Index)
End If
Next
If String.IsNullOrWhiteSpace(m_BottomType.Name) Then m_BottomType = OptionsVM.TopEdgeTypeList(0)
If String.IsNullOrWhiteSpace(m_BottomType.Name) Then m_BottomType = OptionsVM.BottomEdgeTypeList(0)
' Carico i valori booleani associati alla lavorazione
Dim LockEdgeMachining As Boolean = False