EgtDOORCreator 1.8d1 :

- modifiche e migliorie varie.

OptionsWindow/OptionModule.vb

@@ -12,7 +12,7 @@ Friend Module OptionModule
    Friend m_sLastProject As String = String.Empty
 
    ' Parametri che contengono lista delle unità di misura disponibili e quella selezionata
-   Friend m_MeasureUnitList As New List(Of String)({"mm", "inches"})
+   Friend m_MeasureUnitList As New List(Of String)({"mm", "Inches"})
    Friend m_SelectedMeasureUnit As String
    Friend m_bIsMmUnit As Boolean
 
@@ -41,6 +41,8 @@ Friend Module OptionModule
    Friend m_TopOverMaterial As String
    Friend m_BottomOverMaterial As String
 
+   Friend m_CompoPaneOrder As List(Of String) = New List(Of String)
+
    ' inizializzazione lettura variabili ad inizio programma
    Friend Sub InitOptionModule()
       ' Leggo elenco lingue disponibili da file ini
@@ -56,6 +58,7 @@ Friend Module OptionModule
       If GetPrivateProfileString(S_GENERAL, K_MESSAGESDIR, "", sMsgDir) = 0 Then
          sMsgDir = IniFile.m_sConfigDir
       End If
+
       ' Leggo file messaggi
       Dim sMsgName As String = String.Empty
       GetPrivateProfileString(S_GENERAL, K_MESSAGES, "", sMsgName)
@@ -84,6 +87,12 @@ Friend Module OptionModule
          nOptionLauncher = GetPrivateProfileInt(S_LAUNCHERWINDOW, K_LAUNCHER, 1)
       End If
 
+      ' leggo il direttorio di salvataggio dei progetti
+      Dim sMyProjectDir As String = String.Empty
+      If GetPrivateProfileString(S_DOORS, K_MYPROJECTDIR, "", sMyProjectDir) <> 0 Then
+         IniFile.m_MyProjectDir = sMyProjectDir
+      End If
+
       ' Leggo le dimensioni della porta dal file Default.ini
       Dim Width As String = String.Empty
       DefaultGetPrivateProfileString(S_SIZE, K_WIDTH_INI, "", Width)
@@ -145,6 +154,8 @@ Friend Module OptionModule
       m_BottomOverMaterial = BottomOverMaterial
       ' carico l'ordinamento delle componenti
       DefaultGetPrivateProfileList(S_COMPOORDER, K_COMPOORDER_INI, DdfFile.CompoListOrder)
+      ' carico l'ordinamento dei bottoni 
+      DefaultGetPrivateProfileList(S_COMPOORDER, K_COMPOORDER_INI, m_CompoPaneOrder)
 
       m_OptionLauncherList.Add(EgtMsg(50206))
       m_OptionLauncherList.Add(EgtMsg(50207))