EgtDOORCreator 2.1b2:

-> nuova configurazione dei profili,
-> nuova gestione di controllo in fase di lettura profili.
This commit is contained in:
Nicola Pievani
2019-02-25 18:12:01 +00:00
parent 31a338b625
commit 8f0abeb2b0
6 changed files with 139 additions and 19 deletions
+7 -2
View File
@@ -315,10 +315,15 @@ Friend Module OptionModule
Dim WeightVisibility As Visibility = Visibility.Collapsed
DefaultGetPrivateProfilesVisibility(S_SIZE_INI, K_WEIGHTISCHECKED_INI, WeightVisibility)
Part.IsCheckedWeight = WeightVisibility
' carico il valori associati al tipo di spigolo
Dim EdgeTypeList As New ObservableCollection(Of String)
DefaultGetPrivateProfileObservableCollection(S_EDGE, K_EDGETYPE_LIST_INI, EdgeTypeList)
m_StaticEdgeTypeList = EdgeTypeList
If DefaultGetPrivateProfileObservableCollection(S_EDGE, K_EDGETYPE_LIST_INI, EdgeTypeList) Then
m_StaticEdgeTypeList = EdgeTypeList
Else
DefaultGetPrivateProfileNewVersion(S_EDGE, K_EDGETYPE_INI, EdgeTypeList, Part.m_LockEdgeTypeList, Part.m_HingeEdgeTypeList, Part.m_TopEdgeTypeList, Part.m_BottomEdgeTypeList)
m_StaticEdgeTypeList = EdgeTypeList
End If
OptionsVM.CreateEdgeTypeList()
' carico i valori associati agli spigoli
Dim LockEdgeType As String = String.Empty