EgtDOORCreator 2.2c1:

-> gestione della stampa quote porta.

OptionsWindow/OptionModule.vb

@@ -37,6 +37,8 @@ Friend Module OptionModule
    Friend m_MaterialList As New ObservableCollection(Of MaterialType)
    Friend m_CurrMaterial As MaterialType
 
+   Friend m_VisibilityBtnDesign As Visibility = Visibility.Collapsed
+
    Friend Enum LauncherOpt As Integer
       Open_window = 0
       Open_last_project = 1
@@ -234,6 +236,22 @@ Friend Module OptionModule
          EgtOutLog(String.Format(EgtMsg(50180), sMachinDir))
       End If
 
+      Dim sListLabelDir As String = String.Empty
+      If GetMainPrivateProfileString(S_LISTLABEL, K_LISTLABELDIR, "", sListLabelDir) > 0 AndAlso Directory.Exists(sListLabelDir) Then
+         IniFile.m_sListLabelDir = sListLabelDir
+      Else
+         ' mantengo l'accesso a quello di default
+         EgtOutLog(String.Format(EgtMsg(50180), sListLabelDir))
+      End If
+
+      Dim sListLabelFile As String = String.Empty
+      If GetMainPrivateProfileString(S_LISTLABEL, K_LISTLABELFILE, "", sListLabelFile) > 0 AndAlso File.Exists(sListLabelFile) Then
+         IniFile.m_sListLabelCurrent = sListLabelFile
+      Else
+         ' mantengo l'accesso a quello di default
+         EgtOutLog(String.Format(EgtMsg(50180), sListLabelFile))
+      End If
+
       Dim nHelpSelct As Integer = 0
       Select Case GetMainPrivateProfileInt(S_GENERAL, K_SMARTHELP, 1)
          Case 0
@@ -261,6 +279,8 @@ Friend Module OptionModule
 
       m_DeleteProject = If(GetMainPrivateProfileInt(S_GENERAL, K_DELETEPROJECT, 0) = 1, True, False)
 
+      m_VisibilityBtnDesign = If(GetMainPrivateProfileInt(S_GENERAL, K_ENABLEBTNDESING, 0) = 1, Visibility.Visible, Visibility.Hidden)
+
       ' leggo il tipo di Bevel selezionato
       DefaultGetPrivateProfilesBevel(S_EDGE, K_BEVELU_INI, m_bBevelUp)
       DefaultGetPrivateProfilesBevel(S_EDGE, K_BEVELD_INI, m_bBevelDown)