EgtDOORCreator :

- revisione generale.

OptionsWindow/OptionModule.vb

@@ -1,6 +1,7 @@
 Imports System.Collections.ObjectModel
-Imports EgtUILib
 Imports System.IO
+Imports EgtUILib
+Imports EgtWPFLib5
 
 Friend Module OptionModule
 
@@ -106,13 +107,13 @@ Friend Module OptionModule
       End While
       ' Leggo direttorio dei messaggi (se manca uso direttorio di configurazione)
       Dim sMsgDir As String = String.Empty
-      If GetPrivateProfileString(S_GENERAL, K_MESSAGESDIR, "", sMsgDir) = 0 Then
+      If GetMainPrivateProfileString(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)
+      GetMainPrivateProfileString(S_GENERAL, K_MESSAGES, "", sMsgName)
       Dim sMsgFilePath As String = sMsgDir & "\EgalTechEng.txt"
       For Each Language In OptionModule.m_LanguageList
          If Language.Name = sMsgName Then
@@ -126,11 +127,11 @@ Friend Module OptionModule
       End If
 
       'i valori della pagina dell'assemblato
-      Dim Config As Integer = GetPrivateProfileInt(S_GENERAL, S_RUNAS, 0)
+      Dim Config As Integer = GetMainPrivateProfileInt(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)
+      m_bIsMmUnit = (GetMainPrivateProfileInt(S_SCENE, K_MMUNITS, 1) <> 0)
       EgtSetUiUnits(m_bIsMmUnit)
       If m_bIsMmUnit Then
          m_SelectedMeasureUnit = m_MeasureUnitList(0)
@@ -139,11 +140,11 @@ Friend Module OptionModule
       End If
 
       ' imposto tipo di avvio
-      Dim nOptionLauncher As Integer = GetPrivateProfileInt(S_LAUNCHERWINDOW, K_LAUNCHER, 0)
+      Dim nOptionLauncher As Integer = GetMainPrivateProfileInt(S_LAUNCHERWINDOW, K_LAUNCHER, 0)
 
       ' leggo il direttorio di salvataggio dei progetti
       Dim sMyProjectDir As String = String.Empty
-      If GetPrivateProfileString(S_DOORS, K_MYPROJECTDIR, "", sMyProjectDir) <> 0 Then
+      If GetMainPrivateProfileString(S_DOORS, K_MYPROJECTDIR, "", sMyProjectDir) <> 0 Then
          ' se non esiste il direttorio
          If Not Directory.Exists(sMyProjectDir) Then
             ' manntego l'accesso a quello di default
@@ -159,7 +160,7 @@ Friend Module OptionModule
       End If
 
       Dim sTemplateDir As String = String.Empty
-      If GetPrivateProfileString(S_DOORS, K_TEMPLATEDIR, "", sTemplateDir) <> 0 Then
+      If GetMainPrivateProfileString(S_DOORS, K_TEMPLATEDIR, "", sTemplateDir) <> 0 Then
          ' se non esiste il direttorio
          If Not Directory.Exists(sTemplateDir) Then
             ' manntego l'accesso a quello di default