EgtCAM5 1.9l1 :

- migliorate icone della TopBar e di esecuzione script
- aggiunti a opzioni fattori di scala per import Dxf, Stl e immagini
- aggiunte a opzioni dimensioni immagini di export.

MainWindow/MainWindowVM.vb

@@ -339,26 +339,10 @@ Public Class MainWindowVM
       If GetPrivateProfileString(S_GENERAL, K_MESSAGESDIR, "", sMsgDir) = 0 Then
          sMsgDir = m_sConfigDir
       End If
-      ' Leggo elenco lingue disponibili da file ini
-      Dim nIndex As Integer = 1
-      Dim ReadLanguage As Language = GetPrivateProfileLanguage(S_LANGUAGES, K_LANGUAGE & nIndex)
-      While Not IsNothing(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 OptionModule.m_LanguageList
-         If Language.Name = sMsgName Then
-            OptionModule.m_SelectedLanguage = Language
-            sMsgFilePath = sMsgDir & "\" & Language.FilePath
-         End If
-      Next
+      Dim sMsgFilePath As String = sMsgDir & "\" & OptionModule.m_SelectedLanguage.FilePath
       If Not EgtLoadMessages(sMsgFilePath) Then
          EgtOutLog("Error in EgtLoadMessages")
       End If