EgtCAM5 :

- Aggiunta voce SplitArcs nelle MachOptions.
- Aggiunto modulo con parametri utili della finestra Options.
- Piccola miglioria progetto selezione avanzata(scalo le linee sul piano di vista corrente).

MainWindow/MainWindowViewModel.vb

@@ -338,17 +338,19 @@ Namespace EgtCAM5
          Dim nIndex As Integer = 1
          Dim ReadLanguage As Language = GetPrivateProfileLanguage(S_LANGUAGES, K_LANGUAGE & nIndex)
          While Not IsNothing(ReadLanguage)
-            IniFile.m_LanguageList.Add(ReadLanguage)
+            OptionModule.m_LanguageList.Add(ReadLanguage)
             nIndex += 1
             ReadLanguage = GetPrivateProfileLanguage(S_LANGUAGES, K_LANGUAGE & nIndex)
          End While
+         ' Inizializzo OptionModule
+         OptionModule.InitOptionModule()
          ' Leggo file messaggi
          Dim sMsgName As String = String.Empty
          GetPrivateProfileString(S_GENERAL, K_MESSAGES, "", sMsgName)
          Dim sMsgFilePath As String = sMsgDir & "\EgalTechIta.txt"
-         For Each Language In IniFile.m_LanguageList
+         For Each Language In OptionModule.m_LanguageList
             If Language.Name = sMsgName Then
-               IniFile.m_SelectedLanguage = Language
+               OptionModule.m_SelectedLanguage = Language
                sMsgFilePath = sMsgDir & "\" & Language.FilePath
             End If
          Next