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

EgtDOORCreator 1.8e9 :

Browse Source 
- non è più considerata modifica il settagio della option page;
- eliminato il messaggio che avvisa dell'avvenuta eliminazione;
- aggiunta dei parametri di default alla nel GetPrivateProfiles della OptionModule.vb
This commit is contained in:
Nicola Pievani
2017-06-01 15:33:01 +00:00
parent 758bdf6cf1
commit 71b6da38c1
5 changed files with 24 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files
OptionsWindow/OptionModule.vb
+8 -8
View File
@@ -123,23 +123,23 @@ Friend Module OptionModule
' Leggo le dimensioni della porta dal file Default.ini
Dim Width As String = String.Empty
DefaultGetPrivateProfileString(S_SIZE, K_WIDTH_INI, "", Width)
DefaultGetPrivateProfileString(S_SIZE, K_WIDTH_INI, "33.125", Width)
m_Width = Width
Dim Height As String = String.Empty
DefaultGetPrivateProfileString(S_SIZE, K_HEIGHT_INI, "", Height)
DefaultGetPrivateProfileString(S_SIZE, K_HEIGHT_INI, "88.2656", Height)
m_Height = Height
Dim Thickness As String = String.Empty
DefaultGetPrivateProfileString(S_SIZE, K_THICKNESS_INI, "", Thickness)
DefaultGetPrivateProfileString(S_SIZE, K_THICKNESS_INI, "1.8125", Thickness)
m_Thickness = Thickness
' carico i valori associati allo swing della porta
Dim SwingTypeList As New List(Of String)
DefaultGetPrivateProfileList(S_SIZE, K_SWING_LIST_INI, SwingTypeList)
m_SwingTypeList = SwingTypeList
Dim Swing As String = String.Empty
DefaultGetPrivateProfileString(S_SIZE, K_SWING_INI, "", Swing)
DefaultGetPrivateProfileString(S_SIZE, K_SWING_INI, "RH", Swing)
m_Swing = Swing
Dim Weight As String = String.Empty
DefaultGetPrivateProfileString(S_SIZE, K_WEIGHT_INI, "", Weight)
DefaultGetPrivateProfileString(S_SIZE, K_WEIGHT_INI, "25", Weight)
m_Weight = Weight
Dim WeightVisibility As Visibility = Visibility.Collapsed
DefaultGetPrivateProfilesVisibility(S_SIZE, K_WEIGHTISCHECKED_INI, WeightVisibility)
@@ -163,21 +163,21 @@ Friend Module OptionModule
End If
Next
Dim HingeEdgeType As String = String.Empty
DefaultGetPrivateProfileString(S_EDGE, K_HINGEDGE_INI, "", HingeEdgeType)
DefaultGetPrivateProfileString(S_EDGE, K_HINGEDGE_INI, "SQ", 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)
DefaultGetPrivateProfileString(S_EDGE, K_TOPEDGE_INI, "SQ", 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)
DefaultGetPrivateProfileString(S_EDGE, K_BOTTOMEDGE_INI, "SQ", BottomType)
For Index = 0 To OptionsViewModel.EdgeTypeList.Count - 1
If OptionsViewModel.EdgeTypeList(Index).Name = BottomType Then
m_BottomType = OptionsViewModel.EdgeTypeList(Index)