EgtCAM5 :

- Tradotti un po' di messaggi in italiano.
- Aggiunta possibilità in Db utensili e lavorazioni di annullare le modifiche apportate ad un elemento premendo il tasto Esc.

MainWindow/MainWindowViewModel.vb

@@ -339,10 +339,24 @@ Namespace EgtCAM5
          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)
+            IniFile.m_LanguageList.Add(ReadLanguage)
+            nIndex += 1
+            ReadLanguage = GetPrivateProfileLanguage(S_LANGUAGES, K_LANGUAGE & nIndex)
+         End While
          ' Leggo file messaggi
-         Dim sMsgFile As String = String.Empty
-         GetPrivateProfileString(S_GENERAL, K_MESSAGES, "", sMsgFile)
-         Dim sMsgFilePath As String = sMsgDir & "\" & sMsgFile
+         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
+            If Language.Name = sMsgName Then
+               IniFile.m_SelectedLanguage = Language
+               sMsgFilePath = sMsgDir & "\" & Language.FilePath
+            End If
+         Next
          If Not EgtLoadMessages(sMsgFilePath) Then
             EgtOutLog("Error in EgtLoadMessages")
          End If