EgtDOORCreator 1.8d3 : - Aggiunta del delle CheckBox nella pagina delle impostazioni;

- Modifica della lista EdgwTypeList.

OptionsWindow/OptionModule.vb

@@ -16,6 +16,10 @@ Friend Module OptionModule
    Friend m_SelectedMeasureUnit As String
    Friend m_bIsMmUnit As Boolean
 
+   ' Paramaetri per la scelta del bevel
+   Friend m_bBevelUp As Boolean
+   Friend m_bBevelDown As Boolean
+
    Friend Enum LauncherWindow
       Open_window = 0
       Open_last_project = 1
@@ -27,7 +31,7 @@ Friend Module OptionModule
    Friend m_Thickness As String
    Friend m_SwingTypeList As New List(Of String)
    Friend m_Swing As String
-   Friend m_EdgeTypeList As New List(Of String)
+   'Friend m_EdgeTypeList As New ObservableCollection(Of String)
    Friend m_LockEdgeType As String
    Friend m_HingeEdgeType As String
    Friend m_TopType As String
@@ -93,6 +97,14 @@ Friend Module OptionModule
          IniFile.m_MyProjectDir = sMyProjectDir
       End If
 
+      ' leggo il tipo di Bevel selezionato
+      Dim BevelUp As Boolean
+      DefaultGetPrivateProfilesBevel(S_EDGE, K_BEVELU_INI, BevelUp)
+      m_bBevelUp = BevelUp
+      Dim BevelDown As Boolean
+      DefaultGetPrivateProfilesBevel(S_EDGE, K_BEVELD_INI, BevelDown)
+      m_bBevelDown = BevelDown
+
       ' Leggo le dimensioni della porta dal file Default.ini
       Dim Width As String = String.Empty
       DefaultGetPrivateProfileString(S_SIZE, K_WIDTH_INI, "", Width)
@@ -111,9 +123,10 @@ Friend Module OptionModule
       DefaultGetPrivateProfileString(S_SIZE, K_SWING_INI, "", Swing)
       m_Swing = Swing
       ' carico il valori associati al tipo di spigolo
-      Dim EdgeTypeList As New List(Of String)
-      DefaultGetPrivateProfileList(S_EDGE, K_EDGETYPE_LIST_INI, EdgeTypeList)
-      m_EdgeTypeList = EdgeTypeList
+      Dim EdgeTypeList As New ObservableCollection(Of String)
+      DefaultGetPrivateProfileObservableCollection(S_EDGE, K_EDGETYPE_LIST_INI, EdgeTypeList)
+      Door.EdgeTypeList = EdgeTypeList
+      SetEdgeTypeList(Door.EdgeTypeList, m_bBevelUp, m_bBevelDown)
       Dim LockEdgeType As String = String.Empty
       DefaultGetPrivateProfileString(S_EDGE, K_LOCKEDGE, "", LockEdgeType)
       m_LockEdgeType = LockEdgeType
@@ -165,7 +178,14 @@ Friend Module OptionModule
 
    End Sub
 
-
+   Friend Sub SetEdgeTypeList(EdgeTypeList As ObservableCollection(Of String), bBevelUp As Boolean, bBevelDown As Boolean)
+      If Not bBevelUp Then
+         EdgeTypeList.Remove("BU")
+      End If
+      If Not bBevelDown Then
+         EdgeTypeList.Remove("BD")
+      End If
+   End Sub
 
 End Module