EgtDOORCreator :

- Correzione visualizzazione disposition.

OptionsWindow/OptionModule.vb

@@ -60,6 +60,7 @@ Friend Module OptionModule
    Friend m_ConfigurationSoftware As ConfigType
 
    Friend m_Disposition As New EdgeType("", Visibility.Visible)
+   Friend m_sDisposition As String
 
    Friend m_ThicknessJamb As String
    Friend m_WidthJamb As String
@@ -199,7 +200,10 @@ Friend Module OptionModule
       'disposizione in macchina delle porte
       Dim Disp As String = String.Empty
       GetMainPrivateProfileString(S_GENERAL, "Disposition", "0", Disp)
+      ' questa variabile sarà chiamata in tutto il programma per avere una lettura globale del bevel dela porta
       m_Disposition.Name = Disp
+      ' questa variabile deve essere usata solo in locale per settare la visibilità della optionpage dei bevel
+      m_sDisposition = Disp
       ' se esizte una selezione allora non mostrare a video
       If Not IsNothing(m_Disposition) And m_Disposition.Name.Contains("BU") Then
          m_bBevelUp = Visibility.Visible
@@ -453,9 +457,9 @@ Friend Module OptionModule
 
    Public Function DispositionBoolean() As Boolean
       ' per rendere selezionabile la disposizione dalla pagina delle opzioni
-      If IsNothing(m_Disposition) Then
+      If IsNothing(m_sDisposition) Then
          Return True
-      ElseIf m_Disposition.Name <> "BU" And m_Disposition.Name <> "BD" Then
+      ElseIf m_sDisposition <> "BU" And m_sDisposition <> "BD" Then
          Return True
       Else
          Return False