EgtDOORcreator 2.2e1:;

-> aggiunto nuovo parametro ("other_door:1") in ddf per le componenti dei frame Top/BOttom,
-> aggiunti i nuovi parametri della soglia nella pagina delle impostazioni.

OptionsWindow/OptionModule.vb

@@ -117,6 +117,11 @@ Friend Module OptionModule
    Friend m_DoorsListNumber As New List(Of String)
    Friend m_DoorsNumber As String
 
+   Friend m_OverlapBottom As String
+   Friend m_ThicknessBottom As String
+   Friend m_DepthBottom As String
+   Friend m_DeltaBottom As String
+
    Friend m_TopJambChk As Boolean
    Friend m_LeftJambChk As Boolean
    Friend m_BottomJambChk As Boolean
@@ -507,7 +512,11 @@ Friend Module OptionModule
          End Try
       End If
       '-----------------------------------------------------------------------------------------------------------------
-
+      ' SIZE JAMB
+      Dim ThicknessHead As String = String.Empty
+      DefaultGetPrivateProfileString(S_OVERLAP, S_SIZEJAMB, "0", ThicknessHead)
+      Utility.ConvertCompoConfig(ThicknessHead, 100)
+      m_ThicknessHead = ThicknessHead
       Dim ThicknessJamb As String = String.Empty
       DefaultGetPrivateProfileString(S_SIZEJAMB, K_THICKNESS, "25", ThicknessJamb)
       Utility.ConvertCompoConfig(ThicknessJamb, 100)
@@ -516,7 +525,7 @@ Friend Module OptionModule
       DefaultGetPrivateProfileString(S_SIZEJAMB, K_WIDTH, "25", WidthJamb)
       Utility.ConvertCompoConfig(WidthJamb, 100)
       m_WidthJamb = WidthJamb
-
+      ' LIGHT
       Dim LightUp As String = String.Empty
       DefaultGetPrivateProfileString(S_LIGHT, K_LIGHTUP, "25", LightUp)
       Utility.ConvertCompoConfig(LightUp, 100)
@@ -537,10 +546,7 @@ Friend Module OptionModule
       Dim DoorsNumber As String = String.Empty
       DefaultGetPrivateProfileString(S_DOORSNUMBER, K_DOORSELECTEDTNUMBER, "0", DoorsNumber)
       m_DoorsNumber = DoorsNumber
-      Dim ThicknessHead As String = String.Empty
-      DefaultGetPrivateProfileString(S_OVERLAP, K_THICKNESSHEAD, "0", ThicknessHead)
-      Utility.ConvertCompoConfig(ThicknessHead, 100)
-      m_ThicknessHead = ThicknessHead
+      ' OVERLAP
       Dim OverlapHinge As String = String.Empty
       DefaultGetPrivateProfileString(S_OVERLAP, K_OVERLAPHINGE, "0", OverlapHinge)
       Utility.ConvertCompoConfig(OverlapHinge, 100)
@@ -549,9 +555,6 @@ Friend Module OptionModule
       DefaultGetPrivateProfileString(S_OVERLAP, K_OVERLAPLOCK, "0", OverlapLock)
       Utility.ConvertCompoConfig(OverlapLock, 100)
       m_OverlapLock = OverlapLock
-      Dim Exterior As Boolean = False
-      DefaultGetPrivateProfilesMachining(S_OVERLAP, K_EXTERIOR, Exterior)
-      m_Exterior = Exterior
       Dim OverlapTop As String = String.Empty
       DefaultGetPrivateProfileString(S_OVERLAP, K_OVERLAPTOP, "0", OverlapTop)
       Utility.ConvertCompoConfig(OverlapTop, 100)
@@ -560,7 +563,27 @@ Friend Module OptionModule
       DefaultGetPrivateProfileString(S_OVERLAP, K_DELTAT, "0", DeltaT)
       Utility.ConvertCompoConfig(DeltaT, 100)
       m_DeltaThickness = DeltaT
-
+      ' THRESHOLD
+      Dim Exterior As Boolean = False
+      DefaultGetPrivateProfilesMachining(S_THRESHOLD, K_EXTERIOR, Exterior)
+      m_Exterior = Exterior
+      Dim OverlapBottom As String = String.Empty
+      DefaultGetPrivateProfileString(S_THRESHOLD, K_OVERLAPBOTTOM, "0", OverlapBottom)
+      Utility.ConvertCompoConfig(OverlapBottom, 100)
+      m_OverlapBottom = OverlapBottom
+      Dim ThicknessBottom As String = String.Empty
+      DefaultGetPrivateProfileString(S_THRESHOLD, K_THICKNESSBOTTOM, "0", ThicknessBottom)
+      Utility.ConvertCompoConfig(ThicknessBottom, 100)
+      m_ThicknessBottom = ThicknessBottom
+      Dim DepthBottom As String = String.Empty
+      DefaultGetPrivateProfileString(S_THRESHOLD, K_DEPTHBOTTOM, "0", DepthBottom)
+      Utility.ConvertCompoConfig(DepthBottom, 100)
+      m_DepthBottom = DepthBottom
+      Dim DeltaBottom As String = String.Empty
+      DefaultGetPrivateProfileString(S_THRESHOLD, K_DELTABOTTOM, "0", DeltaBottom)
+      Utility.ConvertCompoConfig(DeltaBottom, 100)
+      m_DeltaBottom = DeltaBottom
+      '--------------------------------------------------------------------------------
       Dim TotalDim As Boolean = False
       DefaultGetPrivateProfilesMachining(S_TOTALDIMENSION, K_STATIC, TotalDim)
       m_TotalDimension = TotalDim