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.

ToolsDbWindow/ToolsDbViewModel.vb

@@ -59,6 +59,7 @@ Namespace EgtCAM5
       Private m_cmdNew As ICommand
       Private m_cmdSave As ICommand
       Private m_cmdRemove As ICommand
+      Private m_cmdReloadTool As ICommand
       Private m_cmdCloseToolsDb As ICommand
 
 #Region "MESSAGES"
@@ -548,6 +549,37 @@ Namespace EgtCAM5
 
 #End Region ' RemoveCommand
 
+#Region "ReloadToolCommand"
+
+      ''' <summary>
+      ''' Returns a command that reload the current selected tool.
+      ''' </summary>
+      Public ReadOnly Property ReloadToolCommand() As ICommand
+         Get
+            If m_cmdReloadTool Is Nothing Then
+               m_cmdReloadTool = New RelayCommand(AddressOf ReloadTool)
+            End If
+            Return m_cmdReloadTool
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Reload the current selected tools. This method is invoked by the RemoveCommand.
+      ''' </summary>
+      Public Sub ReloadTool(ByVal param As Object)
+         If TypeOf param Is FamilyToolTreeViewItem Then
+            Return
+            ' Verifico se sia selezionato un utensile
+         ElseIf TypeOf param Is ToolTreeViewItem Then
+            Dim ToolToReload As ToolTreeViewItem = DirectCast(param, ToolTreeViewItem)
+            EgtSetCurrentContext(IniFile.m_ProjectSceneContext)
+            ToolToReload.ReadToolParam()
+            ToolToReload.IsModifiedReset()
+         End If
+      End Sub
+
+#End Region ' ReloadToolCommand
+
 #Region "CloseToolDbCommand"
 
       ''' <summary>