EgtDOORCreator 1.8k5 :

- migliorie varie per modalità solo anta e modalità assemblato.

OptionsWindow/OptionModule.vb

@@ -21,12 +21,17 @@ Friend Module OptionModule
    Friend m_bBevelUp As Visibility
    Friend m_bBevelDown As Visibility
 
-   Friend Enum LauncherWindow
+   Friend Enum LauncherWindow As Integer
       Open_window = 0
       Open_last_project = 1
       Empty = 2
    End Enum
 
+   Friend Enum ConfigType As Integer
+      Door = 0
+      Assembly = 1
+   End Enum
+
    Friend m_Width As String
    Friend m_Height As String
    Friend m_Thickness As String
@@ -51,7 +56,7 @@ Friend Module OptionModule
    Friend m_SwingTypeListLeftDoor As New List(Of String)
    Friend m_SwingTypeListRightDoor As New List(Of String)
 
-   Friend m_ConfigurationSoftware As String
+   Friend m_ConfigurationSoftware As ConfigType
 
    Friend m_ThicknessJamb As String
    Friend m_WidthJamb As String
@@ -121,13 +126,8 @@ Friend Module OptionModule
       End If
 
       'i valori della pagina dell'assemblato
-      Dim Config As String = String.Empty
-      GetPrivateProfileString(S_GENERAL, S_RUNAS, "1", Config)
-      If Config = "0" Then
-         m_ConfigurationSoftware = "Door"
-      Else
-         m_ConfigurationSoftware = "Assembly"
-      End If
+      Dim Config As Integer = GetPrivateProfileInt(S_GENERAL, S_RUNAS, 0)
+      m_ConfigurationSoftware = If(Config = 0, ConfigType.Door, ConfigType.Assembly)
 
       ' imposto unità di misura per interfaccia utente
       m_bIsMmUnit = (GetPrivateProfileInt(S_SCENE, K_MMUNITS, 1) <> 0)
@@ -138,11 +138,8 @@ Friend Module OptionModule
          m_SelectedMeasureUnit = m_MeasureUnitList(1)
       End If
 
-      Dim nOptionLauncher As Integer
-      ' leggo il valore 
-      If Not IsNothing(CStr(GetPrivateProfileInt(S_LAUNCHERWINDOW, K_LAUNCHER, 0))) Then
-         nOptionLauncher = GetPrivateProfileInt(S_LAUNCHERWINDOW, K_LAUNCHER, 0)
-      End If
+      ' imposto tipo di avvio
+      Dim nOptionLauncher As Integer = GetPrivateProfileInt(S_LAUNCHERWINDOW, K_LAUNCHER, 0)
 
       ' leggo il direttorio di salvataggio dei progetti
       Dim sMyProjectDir As String = String.Empty