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

EgtDOORCreator 1.8l8 :

Browse Source 
- migliorie varie a lettura/scrittura.
This commit is contained in:
Dario Sassi
2018-01-03 18:26:27 +00:00
parent 9f99979757
commit 00784e5477
17 changed files with 1050 additions and 1357 deletions
Download Patch File Download Diff File Expand all files Collapse all files
OptionsWindow/OptionModule.vb
+28 -20
View File
@@ -59,8 +59,8 @@ Friend Module OptionModule
Friend m_ConfigurationSoftware As ConfigType
Friend m_Disposition As New EdgeType("", Visibility.Visible)
Friend m_sDisposition As String
Friend m_Disposition As New EdgeType("BySwing", Visibility.Visible)
Friend m_sDisposition As String = "BySwing"
Friend m_ThicknessJamb As String
Friend m_WidthJamb As String
@@ -130,7 +130,7 @@ Friend Module OptionModule
End If
'i valori della pagina dell'assemblato
Dim Config As Integer = GetMainPrivateProfileInt(S_GENERAL, S_RUNAS, 0)
Dim Config As Integer = GetMainPrivateProfileInt(S_GENERAL, K_RUNAS, 0)
m_ConfigurationSoftware = If(Config = 0, ConfigType.Door, ConfigType.Assembly)
' imposto unità di misura per interfaccia utente
@@ -197,45 +197,49 @@ Friend Module OptionModule
DefaultGetPrivateProfilesBevel(S_EDGE, K_BEVELD_INI, BevelDown)
m_bBevelDown = BevelDown
'disposizione in macchina delle porte
Dim Disp As String = String.Empty
GetMainPrivateProfileString(S_GENERAL, "Disposition", "0", Disp)
' questa variabile sarà chiamata in tutto il programma per avere una lettura globale del bevel dela porta
m_Disposition.Name = Disp
'disposizione in macchina delle porte (variabile globale)
Select Case GetMainPrivateProfileInt(S_GENERAL, K_DISPOSITION, 0)
Case 0
m_Disposition.Name = "BySwing"
Case 1
m_Disposition.Name = "BD"
Case 2
m_Disposition.Name = "BU"
End Select
' questa variabile deve essere usata solo in locale per settare la visibilità della optionpage dei bevel
m_sDisposition = Disp
' se esizte una selezione allora non mostrare a video
If Not IsNothing(m_Disposition) And m_Disposition.Name.Contains("BU") Then
m_sDisposition = m_Disposition.Name
' se esiste una selezione allora non mostrare a video
If m_Disposition.Name.Contains("BU") Then
m_bBevelUp = Visibility.Visible
m_bBevelDown = Visibility.Collapsed
ElseIf Not IsNothing(m_Disposition) And m_Disposition.Name.Contains("BD") Then
ElseIf m_Disposition.Name.Contains("BD") Then
m_bBevelUp = Visibility.Collapsed
m_bBevelDown = Visibility.Visible
End If
' Leggo le dimensioni della porta dal file Default.ini
Dim Width As String = String.Empty
DefaultGetPrivateProfileString(S_SIZE, K_WIDTH_INI, "33.125", Width)
DefaultGetPrivateProfileString(S_SIZE_INI, K_WIDTH_INI, "32", Width)
m_Width = Width
Dim Height As String = String.Empty
DefaultGetPrivateProfileString(S_SIZE, K_HEIGHT_INI, "88.2656", Height)
DefaultGetPrivateProfileString(S_SIZE_INI, K_HEIGHT_INI, "80", Height)
m_Height = Height
Dim Thickness As String = String.Empty
DefaultGetPrivateProfileString(S_SIZE, K_THICKNESS_INI, "1.8125", Thickness)
DefaultGetPrivateProfileString(S_SIZE_INI, K_THICKNESS_INI, "1.75", 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)
DefaultGetPrivateProfileList(S_SIZE_INI, K_SWING_LIST_INI, SwingTypeList)
m_SwingTypeList = SwingTypeList
Dim Swing As String = String.Empty
DefaultGetPrivateProfileString(S_SIZE, K_SWING_INI, "RH", Swing)
DefaultGetPrivateProfileString(S_SIZE_INI, K_SWING_INI, "RH", Swing)
m_Swing = Swing
LoadSwingList()
Dim Weight As String = String.Empty
DefaultGetPrivateProfileString(S_SIZE, K_WEIGHT_INI, "25", Weight)
DefaultGetPrivateProfileString(S_SIZE_INI, K_WEIGHT_INI, "25", Weight)
m_Weight = Weight
Dim WeightVisibility As Visibility = Visibility.Collapsed
DefaultGetPrivateProfilesVisibility(S_SIZE, K_WEIGHTISCHECKED_INI, WeightVisibility)
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)
@@ -244,12 +248,13 @@ Friend Module OptionModule
OptionsVM.CreateEdgeTypeList()
' carico i valori associati agli spigoli
Dim LockEdgeType As String = String.Empty
DefaultGetPrivateProfileString(S_EDGE, K_LOCKEDGE, "", LockEdgeType)
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)
End If
Next
If String.IsNullOrWhiteSpace(m_LockEdgeType.Name) Then m_LockEdgeType = OptionsVM.EdgeTypeList(0)
Dim HingeEdgeType As String = String.Empty
DefaultGetPrivateProfileString(S_EDGE, K_HINGEDGE_INI, "SQ", HingeEdgeType)
For Index = 0 To OptionsVM.EdgeTypeList.Count - 1
@@ -257,6 +262,7 @@ Friend Module OptionModule
m_HingeEdgeType = OptionsVM.EdgeTypeList(Index)
End If
Next
If String.IsNullOrWhiteSpace(m_HingeEdgeType.Name) Then m_HingeEdgeType = OptionsVM.EdgeTypeList(0)
Dim TopType As String = String.Empty
DefaultGetPrivateProfileString(S_EDGE, K_TOPEDGE_INI, "SQ", TopType)
For Index = 0 To OptionsVM.EdgeTypeList.Count - 1
@@ -264,6 +270,7 @@ Friend Module OptionModule
m_TopType = OptionsVM.EdgeTypeList(Index)
End If
Next
If String.IsNullOrWhiteSpace(m_TopType.Name) Then m_TopType = OptionsVM.EdgeTypeList(0)
Dim BottomType As String = String.Empty
DefaultGetPrivateProfileString(S_EDGE, K_BOTTOMEDGE_INI, "SQ", BottomType)
For Index = 0 To OptionsVM.EdgeTypeList.Count - 1
@@ -271,6 +278,7 @@ Friend Module OptionModule
m_BottomType = OptionsVM.EdgeTypeList(Index)
End If
Next
If String.IsNullOrWhiteSpace(m_BottomType.Name) Then m_BottomType = OptionsVM.EdgeTypeList(0)
' Carico i valori booleani associati alla lavorazione
Dim LockEdgeMachining As Boolean = False