EgtDOORCreator 1.8e7 :

- Inserimento della guida

OptionsWindow/OptionModule.vb

@@ -16,6 +16,9 @@ Friend Module OptionModule
    Friend m_SelectedMeasureUnit As String
    Friend m_bIsMmUnit As Boolean
 
+   ' Path Guide directory
+   Friend m_GuideDir As String = String.Empty
+
    ' Paramaetri per la scelta del bevel
    Friend m_bBevelUp As Visibility
    Friend m_bBevelDown As Visibility
@@ -70,6 +73,7 @@ Friend Module OptionModule
       Dim sMsgFilePath As String = sMsgDir & "\EgalTechEng.txt"
       For Each Language In OptionModule.m_LanguageList
          If Language.Name = sMsgName Then
+            GuideView.m_Language = sMsgName
             OptionModule.m_SelectedLanguage = Language
             sMsgFilePath = sMsgDir & "\" & Language.FilePath
          End If
@@ -92,6 +96,12 @@ Friend Module OptionModule
          nOptionLauncher = GetPrivateProfileInt(S_LAUNCHERWINDOW, K_LAUNCHER, 1)
       End If
 
+      ' leggo il direttorio della guida
+      Dim sGuideDir As String = String.Empty
+      If GetPrivateProfileString(S_GENERAL, K_GUIDEBROWSER, "", sGuideDir) <> 0 Then
+         m_GuideDir = sGuideDir
+      End If
+
       ' leggo il direttorio di salvataggio dei progetti
       Dim sMyProjectDir As String = String.Empty
       If GetPrivateProfileString(S_DOORS, K_MYPROJECTDIR, "", sMyProjectDir) <> 0 Then