EgtDOORCreator 1.8n7 :

- modifica disposizione in macchina.

OptionsWindow/OptionModule.vb

@@ -59,6 +59,8 @@ Friend Module OptionModule
 
    Friend m_ConfigurationSoftware As ConfigType
 
+   Friend m_Disposition As New EdgeType("", Visibility.Visible)
+
    Friend m_ThicknessJamb As String
    Friend m_WidthJamb As String
    Friend m_LightUp As String
@@ -194,6 +196,19 @@ Friend Module OptionModule
       DefaultGetPrivateProfilesBevel(S_EDGE, K_BEVELD_INI, BevelDown)
       m_bBevelDown = BevelDown
 
+      'disposizione in macchina delle porte
+      Dim Disp As String = String.Empty
+      GetMainPrivateProfileString(S_GENERAL, "Disposition", "0", Disp)
+      m_Disposition.Name = 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
+         m_bBevelDown = Visibility.Collapsed
+      ElseIf Not IsNothing(m_Disposition) And m_Disposition.Name.Contains("BD") Then
+         m_bBevelUp = Visibility.Collapsed
+         m_bBevelDown = Visibility.Visible
+      End If
+
       ' Leggo le dimensioni della porta dal file Default.ini
       Dim Width As String = String.Empty
       DefaultGetPrivateProfileString(S_SIZE, K_WIDTH_INI, "33.125", Width)
@@ -425,6 +440,28 @@ Friend Module OptionModule
       Next
    End Sub
 
+   Public Function DispositionVisibility() As Visibility
+      ' se non è selezionata nessuna disposizione allora deve essere selezionabile da interfaccia
+      If IsNothing(m_Disposition) Then
+         Return Visibility.Visible
+      ElseIf m_Disposition.Name <> "BU" And m_Disposition.Name <> "BD" Then
+         Return Visibility.Visible
+      Else
+         Return Visibility.Collapsed
+      End If
+   End Function
+
+   Public Function DispositionBoolean() As Boolean
+      ' per rendere selezionabile la disposizione dalla pagina delle opzioni
+      If IsNothing(m_Disposition) Then
+         Return True
+      ElseIf m_Disposition.Name <> "BU" And m_Disposition.Name <> "BD" Then
+         Return True
+      Else
+         Return False
+      End If
+   End Function
+
 End Module
 
 ' Classe che identifica una lingua del programma con nome e path del file dei messaggi