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/OptionsViewModel.vb

@@ -168,6 +168,41 @@ Public Class OptionsViewModel
       End Set
    End Property
 
+   Public Property WeightValue As String
+      Get
+         Return OptionModule.m_Weight
+      End Get
+      Set(value As String)
+         OptionModule.m_Weight = value
+         DefaultWritePrivateProfileString(S_SIZE, K_WEIGHT_INI, OptionModule.m_Weight)
+      End Set
+   End Property
+
+   Public Shared Property IsCheckedWeight As Boolean
+      Get
+         If Door.IsCheckedWeight = Visibility.Visible Then
+            Return True
+         Else
+            Return False
+         End If
+      End Get
+      Set(value As Boolean)
+         If value Then
+            Door.IsCheckedWeight = Visibility.Visible
+            DefaultWritePrivateProfileString(S_SIZE, K_WEIGHTISCHECKED_INI, "1")
+         Else
+            If Door.IsCheckedWeight = Visibility.Visible Then
+               If MessageBox.Show("Caution. Weight is setted in the current door. Do you want to remove?", "Questyion", MessageBoxButton.YesNo, MessageBoxImage.Question, MessageBoxResult.No) = MessageBoxResult.Yes Then
+                  Door.IsCheckedWeight = Visibility.Collapsed
+                  DefaultWritePrivateProfileString(S_SIZE, K_WEIGHTISCHECKED_INI, "0")
+               Else
+                  Return
+               End If
+            End If
+            End If
+      End Set
+   End Property
+
    Public ReadOnly Property SwingTypeList As List(Of String)
       Get
          Return OptionModule.m_SwingTypeList
@@ -495,6 +530,13 @@ Public Class OptionsViewModel
       End Get
    End Property
 
+   Public ReadOnly Property WeightMsg As String
+      Get
+         Return EgtMsg(MSG_MAINWINDOW + 47)
+      End Get
+   End Property
+
+
    Public ReadOnly Property BottomMsg As String
       Get
          Return EgtMsg(MSG_MAINWINDOW + 8)
@@ -689,6 +731,12 @@ Public Class OptionsViewModel
       For Each Window In Application.Current.Windows
          If TypeOf Window Is OptionsView Then
             Dim OptionsWindow As OptionsView = DirectCast(Window, OptionsView)
+            ' se eseguo una modifica prima di avere una porta...controllo bene!!
+            If Not IsNothing(m_rfCurrDoor) Then
+               m_rfCurrDoor.VisibilityWeight = Door.IsCheckedWeight
+               m_rfCurrDoor.NotifyPropertyChanged("Weight")
+               m_rfCurrDoor.NotifyPropertyChanged("VisibilityWeight")        
+         End If
             OptionsWindow.Close()
          End If
       Next