Gestione Assembly/Door in OptionPage

OptionsWindow/OptionsViewModel.vb

@@ -650,11 +650,11 @@ Public Class OptionsVM
 
    '----------------------------------------------------------------------------------------------------------------------------------------------------
 
-   Public ReadOnly Property EnableAssembly As Boolean
-      Get
-         Return (OptionModule.m_ConfigurationSoftware = ConfigType.Assembly)
-      End Get
-   End Property
+   'Public ReadOnly Property EnableAssembly As Boolean
+   '   Get
+   '      Return (OptionModule.m_ConfigurationSoftware = ConfigType.Assembly)
+   '   End Get
+   'End Property
 
    Public Property LightUp As String
       Get
@@ -1145,6 +1145,12 @@ Public Class OptionsVM
       End Get
    End Property
 
+   Public ReadOnly Property ConfigurationSoftwareMsg As String
+      Get
+         Return "Assembly"
+      End Get
+   End Property
+
    Public ReadOnly Property General As String
       Get
          Return EgtMsg(MSG_MAINWINDOW + 201)
@@ -1676,6 +1682,29 @@ Public Class OptionsVM
       End Set
    End Property
 
+   Private m_VisibilityConfiguration As Visibility = Visibility.Collapsed
+   Public ReadOnly Property VisibilityConfiguration As Visibility
+      Get
+         If (GetMainPrivateProfileInt(S_GENERAL, "Debug", 0) > 4) Then
+            m_VisibilityConfiguration = Visibility.Visible
+         End If
+         Return m_VisibilityConfiguration
+      End Get
+   End Property
+
+   Private m_EnableAssembly As Boolean = If(OptionModule.m_ConfigurationSoftware = ConfigType.Assembly, True, False)
+   Public Property EnableAssembly As Boolean
+      Get
+         Return m_EnableAssembly
+      End Get
+      Set(value As Boolean)
+         m_EnableAssembly = value
+         WriteMainPrivateProfileString(S_GENERAL, K_RUNAS, If(m_EnableAssembly, "1", "0"))
+         OptionModule.m_ConfigurationSoftware = If(m_EnableAssembly, ConfigType.Assembly, ConfigType.Door)
+         NotifyPropertyChanged("EnableAssembly")
+      End Set
+   End Property
+
    ' Controllo di eliminare un bevel dalla lista: 1 se accendo un bevel, 2 se spengo un bevel, -1 tutti i casi che non sono questi
    Private Function CheckBevel(VisibilityBevel As Visibility, bValue As Boolean) As Integer
       Dim bAnser As Integer