EgtDOORCreator 1.8d4 :

- Stampa "secure : 0" nel file DDF;
- tutti i file DDF che non hanno "secure" sono automaticamnete aggiornati aggiungendo "secure" dopo "swing".

OptionsWindow/OptionsViewModel.vb

@@ -4,6 +4,9 @@ Imports EgtUILib
 
 Public Class OptionsViewModel
    Implements INotifyPropertyChanged
+
+   Dim m_rfCurrDoor As Door
+
    Public ReadOnly Property LanguageList As ObservableCollection(Of Language)
       Get
          Return OptionModule.m_LanguageList
@@ -80,13 +83,17 @@ Public Class OptionsViewModel
          Return OptionModule.m_bBevelUp
       End Get
       Set(value As Boolean)
-         OptionModule.m_bBevelUp = value
-         If value Then
-            DefaultWritePrivateProfileString(S_EDGE, K_BEVELU_INI, "1")
+         If QuestionSetBevel(CheckBevel(OptionModule.m_bBevelUp, value)) Then
+            OptionModule.m_bBevelUp = value
+            If value Then
+               DefaultWritePrivateProfileString(S_EDGE, K_BEVELU_INI, "1")
+            Else
+               DefaultWritePrivateProfileString(S_EDGE, K_BEVELU_INI, "0")
+            End If
+            RefreshEdgeTypeList()
          Else
-            DefaultWritePrivateProfileString(S_EDGE, K_BEVELU_INI, "0")
+            Return
          End If
-         RefreshEdgeTypeList()
       End Set
    End Property
 
@@ -95,13 +102,17 @@ Public Class OptionsViewModel
          Return OptionModule.m_bBevelDown
       End Get
       Set(value As Boolean)
-         OptionModule.m_bBevelDown = value
-         If value Then
-            DefaultWritePrivateProfileString(S_EDGE, K_BEVELD_INI, "1")            
+         If QuestionSetBevel(CheckBevel(OptionModule.m_bBevelDown, value)) Then
+            OptionModule.m_bBevelDown = value
+            If value Then
+               DefaultWritePrivateProfileString(S_EDGE, K_BEVELD_INI, "1")
+            Else
+               DefaultWritePrivateProfileString(S_EDGE, K_BEVELD_INI, "0")
+            End If
+            RefreshEdgeTypeList()
          Else
-            DefaultWritePrivateProfileString(S_EDGE, K_BEVELD_INI, "0")
+            Return
          End If
-         RefreshEdgeTypeList()
       End Set
    End Property
 
@@ -154,11 +165,21 @@ Public Class OptionsViewModel
 
    Public Property EdgeTypeList As ObservableCollection(Of String)
       Get
-         Return Door.EdgeTypeList
+         Return Door.m_EdgeTypeList
       End Get
       Set(value As ObservableCollection(Of String))
-         Door.EdgeTypeList = value
+         ' carico la lista degli EdgeType appena aggiornata
+         Door.m_EdgeTypeList = value
+         ' aggiorno le lista pressenti nella pagina delle impostazioni
          NotifyPropertyChanged("EdgeTypeList")
+         ' verifico che esista una porta
+         If Not IsNothing(m_rfCurrDoor) Then
+            ' Aggiorno le liste degli elementi 
+            m_rfCurrDoor.NotifyPropertyChanged("EdgeTypeList")
+            'EdgeDoorControl(m_rfCurrDoor.LockEdgeType)
+            m_rfCurrDoor.NotifyPropertyChanged("LockEdgeType")
+            m_rfCurrDoor.NotifyPropertyChanged("HingeEdgeType")
+         End If
       End Set
    End Property
 
@@ -496,16 +517,67 @@ Public Class OptionsViewModel
       End Get
    End Property
 
+   Public ReadOnly Property MachinePositionMsg As String
+      Get
+         Return EgtMsg(50222)
+      End Get
+   End Property
+
 #End Region
 
-   ' Aggiorno la lista deli bevel 
+   ' Aggiorno la lista dei bevel 
    Private Sub RefreshEdgeTypeList()
+      ' creo una variabile locale di tipo ObservableCollection
       Dim rEdgeTypeList As New ObservableCollection(Of String)
+      ' Carico questa lista leggendo il file  Default.ini
       DefaultGetPrivateProfileObservableCollection(S_EDGE, K_EDGETYPE_LIST_INI, rEdgeTypeList)
+      ' Confronto la lista appena creata con le indicazioni raccolte nell'OptionModule (verifico se i bevel up e down sono selezionati)
+      ' quindi aggiorno la lista eliminando se serve i bevel
       SetEdgeTypeList(rEdgeTypeList, OptionModule.m_bBevelUp, OptionModule.m_bBevelDown)
+      ' richiamo la proprietà pubblica di questa classe
       EdgeTypeList = rEdgeTypeList
    End Sub
 
+   ' Controllo di eliminare un bevel dalla lista
+   Private Function CheckBevel(bBevel As Boolean, bValue As Boolean) As Integer
+      Dim bAnser As Integer
+      If bBevel And Not bValue Then
+         ' significa che sta togliendo dalla lista
+         bAnser = 1
+      ElseIf Not bBevel And bValue Then
+         bAnser = 2
+      Else
+         bAnser = -1
+      End If
+      Return bAnser
+   End Function
+
+   ' chiedo se vuole continuare
+   Private Function QuestionSetBevel(bCheckBevel As Integer) As Boolean
+      If bCheckBevel = 1 Then
+         If m_rfCurrDoor.LockEdgeType = "BU" Or m_rfCurrDoor.LockEdgeType = "BD" Or m_rfCurrDoor.HingeEdgeType = "BU" Or m_rfCurrDoor.HingeEdgeType = "BD" Then
+            If MessageBox.Show("It is a bevel of the current door. Do You want to proced?", "Caution", MessageBoxButton.YesNo, MessageBoxImage.Asterisk, MessageBoxResult.No) = MessageBoxResult.No Then
+               Return False
+            Else
+               ' se decido di continuare
+               Return True
+            End If
+         Else
+            Return True
+         End If
+      ElseIf bCheckBevel = 2 Then
+         Return True
+      Else
+         Return False
+      End If
+   End Function
+
+
+   Sub New(rCurrDoor As Door)
+      m_rfCurrDoor = rCurrDoor
+
+   End Sub
+
 #Region "COMMANDS"
 
 #Region "CloseOptionsCommand"