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

EgtDOORCreator 1.8d5 : Aggiorna le liste degli spigoli in tempo reale

Browse Source
This commit is contained in:
Nicola Pievani
2017-05-02 16:40:03 +00:00
parent d866a1240a
commit b3f244b6e0
10 changed files with 341 additions and 132 deletions
Download Patch File Download Diff File Expand all files Collapse all files
OptionsWindow/OptionModule.vb
+37 -15
View File
@@ -17,8 +17,8 @@ Friend Module OptionModule
Friend m_bIsMmUnit As Boolean
' Paramaetri per la scelta del bevel
Friend m_bBevelUp As Boolean
Friend m_bBevelDown As Boolean
Friend m_bBevelUp As Visibility
Friend m_bBevelDown As Visibility
Friend Enum LauncherWindow
Open_window = 0
@@ -31,11 +31,11 @@ Friend Module OptionModule
Friend m_Thickness As String
Friend m_SwingTypeList As New List(Of String)
Friend m_Swing As String
'Friend m_EdgeTypeList As New ObservableCollection(Of String)
Friend m_LockEdgeType As String
Friend m_HingeEdgeType As String
Friend m_TopType As String
Friend m_BottomType As String
Friend m_StaticEdgeTypeList As New ObservableCollection(Of String)
Friend m_LockEdgeType As New EdgeType("", Visibility.Visible)
Friend m_HingeEdgeType As New EdgeType("", Visibility.Visible)
Friend m_TopType As New EdgeType("", Visibility.Visible)
Friend m_BottomType As New EdgeType("", Visibility.Visible)
Friend m_LockEdgeMachining As Boolean
Friend m_HingeEdgeMachining As Boolean
Friend m_TopMachining As Boolean
@@ -98,10 +98,10 @@ Friend Module OptionModule
End If
' leggo il tipo di Bevel selezionato
Dim BevelUp As Boolean
Dim BevelUp As Visibility
DefaultGetPrivateProfilesBevel(S_EDGE, K_BEVELU_INI, BevelUp)
m_bBevelUp = BevelUp
Dim BevelDown As Boolean
Dim BevelDown As Visibility
DefaultGetPrivateProfilesBevel(S_EDGE, K_BEVELD_INI, BevelDown)
m_bBevelDown = BevelDown
@@ -122,23 +122,45 @@ Friend Module OptionModule
Dim Swing As String = String.Empty
DefaultGetPrivateProfileString(S_SIZE, K_SWING_INI, "", Swing)
m_Swing = Swing
' carico il valori associati al tipo di spigolo
Dim EdgeTypeList As New ObservableCollection(Of String)
DefaultGetPrivateProfileObservableCollection(S_EDGE, K_EDGETYPE_LIST_INI, EdgeTypeList)
Door.m_EdgeTypeList = EdgeTypeList
SetEdgeTypeList(Door.m_EdgeTypeList, m_bBevelUp, m_bBevelDown)
'For Index = 0 To EdgeTypeList.Count - 1
' Door.m_EdgeTypeList.Add(New EdgeType(EdgeTypeList(Index), True))
'Next
m_StaticEdgeTypeList = EdgeTypeList
OptionsViewModel.CreateEdgeTypeList()
Dim LockEdgeType As String = String.Empty
DefaultGetPrivateProfileString(S_EDGE, K_LOCKEDGE, "", LockEdgeType)
m_LockEdgeType = LockEdgeType
For Index = 0 To OptionsViewModel.EdgeTypeList.Count - 1
If OptionsViewModel.EdgeTypeList(Index).Name = LockEdgeType Then
m_LockEdgeType = OptionsViewModel.EdgeTypeList(Index)
End If
Next
Dim HingeEdgeType As String = String.Empty
DefaultGetPrivateProfileString(S_EDGE, K_HINGEDGE_INI, "", HingeEdgeType)
m_HingeEdgeType = HingeEdgeType
For Index = 0 To OptionsViewModel.EdgeTypeList.Count - 1
If OptionsViewModel.EdgeTypeList(Index).Name = HingeEdgeType Then
m_HingeEdgeType = OptionsViewModel.EdgeTypeList(Index)
End If
Next
Dim TopType As String = String.Empty
DefaultGetPrivateProfileString(S_EDGE, K_TOPEDGE_INI, "", TopType)
m_TopType = TopType
For Index = 0 To OptionsViewModel.EdgeTypeList.Count - 1
If OptionsViewModel.EdgeTypeList(Index).Name = TopType Then
m_TopType = OptionsViewModel.EdgeTypeList(Index)
End If
Next
Dim BottomType As String = String.Empty
DefaultGetPrivateProfileString(S_EDGE, K_BOTTOMEDGE_INI, "", BottomType)
m_BottomType = BottomType
For Index = 0 To OptionsViewModel.EdgeTypeList.Count - 1
If OptionsViewModel.EdgeTypeList(Index).Name = BottomType Then
m_BottomType = OptionsViewModel.EdgeTypeList(Index)
End If
Next
' Carico i valori booleani associati alla lavorazione
Dim LockEdgeMachining As Boolean = False
DefaultGetPrivateProfilesMachining(S_MACHINING, K_LOCKEDGEISCHECKED_INI, LockEdgeMachining)