diff --git a/DoorManager/DoorManagerViewModel.vb b/DoorManager/DoorManagerViewModel.vb index dcb1810..83d33f7 100644 --- a/DoorManager/DoorManagerViewModel.vb +++ b/DoorManager/DoorManagerViewModel.vb @@ -121,7 +121,7 @@ Public Class DoorManagerViewModel End If End If If IsNothing(SelDoor) Then - MessageBox.Show("Impossible to create the current door.", "Information", MessageBoxButton.OK, MessageBoxImage.Exclamation) + MessageBox.Show(EgtMsg(50145), EgtMsg(50118), MessageBoxButton.OK, MessageBoxImage.Exclamation) DoorParametersViewModel.CurrDoor = Nothing DeleteDoorFromList() End If @@ -200,7 +200,7 @@ Public Class DoorManagerViewModel Dim NameExist As Boolean = True Dim ImportTemplate As String = String.Empty 'Prima di tutto chiedo se vuole aprire un template - If MessageBox.Show("Do you want to open a template?", "Question", MessageBoxButton.YesNo, MessageBoxImage.Question, MessageBoxResult.Yes) = MessageBoxResult.Yes Then + If MessageBox.Show(EgtMsg(50146), EgtMsg(50110), MessageBoxButton.YesNo, MessageBoxImage.Question, MessageBoxResult.Yes) = MessageBoxResult.Yes Then ' Apro la finestra di dailogo aperta direttamente sulla cartella cercata Dim OpenFileDialog As New System.Windows.Forms.OpenFileDialog OpenFileDialog.InitialDirectory = IniFile.m_TemplateDir diff --git a/DoorParameters/Compo.vb b/DoorParameters/Compo.vb index c52ab56..4562ec4 100644 --- a/DoorParameters/Compo.vb +++ b/DoorParameters/Compo.vb @@ -362,7 +362,8 @@ Public Class Compo NewCompoParam = New TextBoxParam(Trim(sItems(1).Split("/"c)(0)), Trim(MsgControl(sItems(1).Split("/"c)(0), sItems(1).Split("/"c)(1), sErrorList)), "0.000", Nothing, Nothing) End If - MessageBox.Show("Error expression in " & NewCompoParam.Name & ". " & sItems(2) & " does not match anything.", "Error", MessageBoxButton.OK, MessageBoxImage.Error) + Dim ErrorExpression As String = String.Format(EgtMsg(50147), NewCompoParam.Name, sItems(2)) + MessageBox.Show(ErrorExpression, EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error) Return True End If @@ -464,7 +465,8 @@ Public Class Compo NewCompoParam = New TextBoxOnOffParam(Trim(sItems(1).Split("/"c)(0)), Trim(MsgControl(sItems(1).Split("/"c)(0), sItems(1).Split("/"c)(1), sErrorList)), "0.000", Nothing, Nothing) End If - MessageBox.Show("Error expression in " & NewCompoParam.Name & ". " & sItems(2) & " does not match anything.", "Error", MessageBoxButton.OK, MessageBoxImage.Error) + Dim ErrorExpression As String = String.Format(EgtMsg(50147), NewCompoParam.Name, sItems(2)) + MessageBox.Show(ErrorExpression, EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error) Return True End If diff --git a/DoorParameters/Door.vb b/DoorParameters/Door.vb index a41590b..36aa1f4 100644 --- a/DoorParameters/Door.vb +++ b/DoorParameters/Door.vb @@ -133,7 +133,7 @@ Public Class Door If StringToDouble(value, dVal) Then m_Height = value Else - MessageBox.Show("Invalid Value", "Error", MessageBoxButton.OK, MessageBoxImage.Asterisk) + MessageBox.Show(EgtMsg(50148), EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Asterisk) End If m_IsModifyDoor = True SetTitle() @@ -153,7 +153,7 @@ Public Class Door If StringToDouble(value, dVal) Then m_Width = value Else - MessageBox.Show("Invalid Value", "Error", MessageBoxButton.OK, MessageBoxImage.Asterisk) + MessageBox.Show(EgtMsg(50148), EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Asterisk) End If m_IsModifyDoor = True SetTitle() @@ -172,7 +172,7 @@ Public Class Door If StringToDouble(value, dVal) Then m_Thickness = value Else - MessageBox.Show("Invalid Value", "Error", MessageBoxButton.OK, MessageBoxImage.Asterisk) + MessageBox.Show(EgtMsg(50148), EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Asterisk) End If m_IsModifyDoor = True SetTitle() @@ -195,7 +195,7 @@ Public Class Door If StringToDouble(value, dVal) Then m_Weight = value Else - MessageBox.Show("Invalid Value", "Error", MessageBoxButton.OK, MessageBoxImage.Asterisk) + MessageBox.Show(EgtMsg(50148), EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Asterisk) End If m_IsModifyDoor = True SetTitle() @@ -398,7 +398,7 @@ Public Class Door If StringToDouble(value, dVal) Then m_LockEdgeOverMaterial = value Else - MessageBox.Show("Invalid Value", "Error", MessageBoxButton.OK, MessageBoxImage.Asterisk) + MessageBox.Show(EgtMsg(50148), EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Asterisk) End If 'If SetChange <> 0 Then ' SetChange += 1 @@ -418,7 +418,7 @@ Public Class Door If StringToDouble(value, dVal) Then m_HingeEdgeOverMaterial = value Else - MessageBox.Show("Invalid Value", "Error", MessageBoxButton.OK, MessageBoxImage.Asterisk) + MessageBox.Show(EgtMsg(50148), EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Asterisk) End If 'If SetChange <> 0 Then ' SetChange += 1 @@ -438,7 +438,7 @@ Public Class Door If StringToDouble(value, dVal) Then m_TopOverMaterial = value Else - MessageBox.Show("Invalid Value", "Error", MessageBoxButton.OK, MessageBoxImage.Asterisk) + MessageBox.Show(EgtMsg(50148), EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Asterisk) End If m_IsModifyDoor = True SetTitle() @@ -455,7 +455,7 @@ Public Class Door If StringToDouble(value, dVal) Then m_BottomOverMaterial = value Else - MessageBox.Show("Invalid Value", "Error", MessageBoxButton.OK, MessageBoxImage.Asterisk) + MessageBox.Show(EgtMsg(50148), EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Asterisk) End If 'If SetChange <> 0 Then ' SetChange += 1 @@ -796,7 +796,7 @@ Public Class Door If String.IsNullOrEmpty(ReadDoor.m_Weight) Then If m_IsCheckedWeight = Visibility.Visible Then ' se il valore è acceso ma non è presente nel ddf chiedo se spegnere - If MessageBox.Show("Caution: Weight is setted in OptionPage. Do you want to remove?", "Question", MessageBoxButton.YesNo, MessageBoxImage.Question, MessageBoxResult.Yes) = MessageBoxResult.Yes Then + If MessageBox.Show(EgtMsg(50149), EgtMsg(50110), MessageBoxButton.YesNo, MessageBoxImage.Question, MessageBoxResult.Yes) = MessageBoxResult.Yes Then ' decido di spegnere OptionsViewModel.IsCheckedWeight = False Else @@ -1034,7 +1034,7 @@ Public Class Door ' confronto con il dato che è stato salvato nell'option page, se il valore è acceso If m_IsCheckedWeight = Visibility.Visible Then ' se il valore è acceso ma non è presente nel ddf chiedo se spegnere - If MessageBox.Show("Caution: Weight is setted in OptionPage. Do you want to remove?", "Question", MessageBoxButton.YesNo, MessageBoxImage.Question, MessageBoxResult.Yes) = MessageBoxResult.Yes Then + If MessageBox.Show(EgtMsg(50149), EgtMsg(50110), MessageBoxButton.YesNo, MessageBoxImage.Question, MessageBoxResult.Yes) = MessageBoxResult.Yes Then ' decido di spegnere OptionsViewModel.IsCheckedWeight = False Else @@ -1049,7 +1049,7 @@ Public Class Door ' se la parola chiave esiste ma non è associato nessun valore Else If m_IsCheckedWeight = Visibility.Collapsed Then - If MessageBox.Show("Caution: Weight is setted in DDF. Do you want to add?", "Question", MessageBoxButton.YesNo, MessageBoxImage.Question, MessageBoxResult.Yes) = MessageBoxResult.Yes Then + If MessageBox.Show(EgtMsg(50150), EgtMsg(50110), MessageBoxButton.YesNo, MessageBoxImage.Question, MessageBoxResult.Yes) = MessageBoxResult.Yes Then ' decido di accendere OptionsViewModel.IsCheckedWeight = True m_Weight = OptionModule.m_Weight @@ -1068,7 +1068,7 @@ Public Class Door ' se il valore esiste Weight Else If m_IsCheckedWeight = Visibility.Collapsed Then - If MessageBox.Show("Caution: Weight is setted in DDF. Do you want to add?", "Question", MessageBoxButton.YesNo, MessageBoxImage.Question, MessageBoxResult.Yes) = MessageBoxResult.Yes Then + If MessageBox.Show(EgtMsg(50150), EgtMsg(50110), MessageBoxButton.YesNo, MessageBoxImage.Question, MessageBoxResult.Yes) = MessageBoxResult.Yes Then ' decido di accendere m_IsCheckedWeight = Visibility.Visible OptionsViewModel.IsCheckedWeight = True @@ -1265,7 +1265,8 @@ Public Class Door End If Next If bFound Then - MessageBox.Show(Edge & " is not a member of the current list of EdgeType. Check Bevel in option page.", "Caution", MessageBoxButton.OK, MessageBoxImage.Asterisk) + Dim CautionBevel As String = String.Format(EgtMsg(50151), Edge) + MessageBox.Show(CautionBevel, EgtMsg(50151), MessageBoxButton.OK, MessageBoxImage.Asterisk) Return False Else Return True diff --git a/MainWindow/MainWindowViewModel.vb b/MainWindow/MainWindowViewModel.vb index ac2bdb1..8b2befe 100644 --- a/MainWindow/MainWindowViewModel.vb +++ b/MainWindow/MainWindowViewModel.vb @@ -215,7 +215,8 @@ Public Class MainWindowViewModel ''If Not DdfFile.ComparisonFileDDF(IniFile.m_sTempDir & "\CurrDoor.ddf", SelDoor) Then If Not DdfFile.SetModify(Me) Then ' se la risposta è di non salavre non faccio nulla - If MessageBox.Show("Do you want to save this file (" & Path.GetFileNameWithoutExtension(SelDoor) & ")?", "Question", MessageBoxButton.YesNo, MessageBoxImage.Warning) = MessageBoxResult.No Then + Dim QuestionSave As String = String.Format(EgtMsg(50152), Path.GetFileNameWithoutExtension(SelDoor)) + If MessageBox.Show(QuestionSave, EgtMsg(50110), MessageBoxButton.YesNo, MessageBoxImage.Warning) = MessageBoxResult.No Then Else ' altrimenti sovrascrivo il DDF DdfFile.WriteDDF(DirectCast(Me.DoorParameters.DataContext, DoorParametersViewModel).CurrDoor, SelDoor, True) diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index 103d7eb..d4a0201 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -72,5 +72,5 @@ Imports System.Windows ' by using the '*' as shown below: ' - - + + diff --git a/OptionsWindow/OptionsViewModel.vb b/OptionsWindow/OptionsViewModel.vb index 244ea79..2d8004c 100644 --- a/OptionsWindow/OptionsViewModel.vb +++ b/OptionsWindow/OptionsViewModel.vb @@ -192,7 +192,7 @@ Public Class OptionsViewModel DefaultWritePrivateProfileString(S_SIZE, K_WEIGHTISCHECKED_INI, "1") Else If Door.IsCheckedWeight = Visibility.Visible Then - If MessageBox.Show("Caution. Weight is setted in the current door. Do you want to remove?", "Questyion", MessageBoxButton.YesNo, MessageBoxImage.Question, MessageBoxResult.No) = MessageBoxResult.Yes Then + If MessageBox.Show(EgtMsg(50153), EgtMsg(50110), MessageBoxButton.YesNo, MessageBoxImage.Question, MessageBoxResult.No) = MessageBoxResult.Yes Then Door.IsCheckedWeight = Visibility.Collapsed DefaultWritePrivateProfileString(S_SIZE, K_WEIGHTISCHECKED_INI, "0") Else @@ -634,7 +634,7 @@ Public Class OptionsViewModel ' controllo se to oliminando da uno degli elementi della lista: se si chiedo di continuare If m_rfCurrDoor.LockEdgeType.Name = "BU" Or m_rfCurrDoor.LockEdgeType.Name = "BD" Or m_rfCurrDoor.HingeEdgeType.Name = "BU" Or m_rfCurrDoor.HingeEdgeType.Name = "BD" Then ' Se blocco tutto non accade nulla - If MessageBox.Show("It is a bevel of the current door. Do You want to proced?", "Caution", MessageBoxButton.YesNo, MessageBoxImage.Asterisk, MessageBoxResult.No) = MessageBoxResult.No Then + If MessageBox.Show(EgtMsg(50154), EgtMsg(50115), MessageBoxButton.YesNo, MessageBoxImage.Asterisk, MessageBoxResult.No) = MessageBoxResult.No Then Return False Else ' se decido di continuare diff --git a/ProjectManager/ProjectManagerViewModel.vb b/ProjectManager/ProjectManagerViewModel.vb index 199c9b0..bb3839f 100644 --- a/ProjectManager/ProjectManagerViewModel.vb +++ b/ProjectManager/ProjectManagerViewModel.vb @@ -543,7 +543,7 @@ Public Class ProjectManagerViewModel End If DdfFile.WriteDDF(rfCurrDoor, SaveFileDialog.FileName, False) Else - MessageBox.Show("Impossible to create a template if there is not a door!", "Error", MessageBoxButton.OK, MessageBoxImage.Exclamation) + MessageBox.Show(EgtMsg(50155), EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Exclamation) End If End Sub