EgtDOORCreator 1.8e2 :

- aggiunto il campo "Weight" al general del door,
- aggiunta di una variabile booleana alla funzione ReadDDF nella classe Door per permettere di stampare le funzioni scritte nelle textbox, attualmente no è in uso (settata True)

OptionsWindow/OptionModule.vb

@@ -29,6 +29,7 @@ Friend Module OptionModule
    Friend m_Width As String
    Friend m_Height As String
    Friend m_Thickness As String
+   Friend m_Weight As String
    Friend m_SwingTypeList As New List(Of String)
    Friend m_Swing As String
    Friend m_StaticEdgeTypeList As New ObservableCollection(Of String)
@@ -122,6 +123,12 @@ Friend Module OptionModule
       Dim Swing As String = String.Empty
       DefaultGetPrivateProfileString(S_SIZE, K_SWING_INI, "", Swing)
       m_Swing = Swing
+      Dim Weight As String = String.Empty
+      DefaultGetPrivateProfileString(S_SIZE, K_WEIGHT_INI, "", Weight)
+      m_Weight = Weight
+      Dim WeightVisibility As Visibility = Visibility.Collapsed
+      DefaultGetPrivateProfilesVisibility(S_SIZE, K_WEIGHTISCHECKED_INI, WeightVisibility)
+      Door.IsCheckedWeight = WeightVisibility
 
       ' carico il valori associati al tipo di spigolo
       Dim EdgeTypeList As New ObservableCollection(Of String)
@@ -132,6 +139,7 @@ Friend Module OptionModule
       m_StaticEdgeTypeList = EdgeTypeList
       OptionsViewModel.CreateEdgeTypeList()
 
+      ' carico i valori associati agli spigoli
       Dim LockEdgeType As String = String.Empty
       DefaultGetPrivateProfileString(S_EDGE, K_LOCKEDGE, "", LockEdgeType)
       For Index = 0 To OptionsViewModel.EdgeTypeList.Count - 1