EgtCAM5 :

-Miglioramenti vari.

ToolsDbWindow/ToolTreeView2.vb

@@ -100,14 +100,16 @@ Public Class ToolTreeViewItem
                EgtSetCurrentContext(IniFile.m_ProjectSceneContext)
                EgtTdbSetCurrTool(Me.Name)
                ReadToolParam()
+               IsModifiedReset()
                NotifyPropertyChanged("Type")
             Else
                WriteToolParam()
-               If EgtTdbIsCurrToolModified() Or Me.NewTool Then
-
+               If EgtTdbIsCurrToolModified() Or m_IsModifiedName Or Me.NewTool Then
                   Select Case MsgBox(EgtMsg(MSG_TOOLSERRORS), MsgBoxStyle.YesNo, EgtMsg(MSG_TOOLSERRORS + 1))
                      Case MsgBoxResult.Yes
                         m_NewTool = False
+                        m_Name = m_Name.Trim()
+                        WriteToolName()
                         If IsUUID(Path.GetFileNameWithoutExtension(m_Draw)) Then
                            SaveToolDraw()
                         End If
@@ -116,10 +118,14 @@ Public Class ToolTreeViewItem
                      Case MsgBoxResult.No
                         If m_NewTool Then
                            Application.Msn.NotifyColleagues(Application.REMOVETOOL, Me)
+                        ElseIf m_IsModifiedName Then
+                           Dim DbName As String = String.Empty
+                           EgtSetCurrentContext(IniFile.m_ProjectSceneContext)
+                           EgtTdbGetCurrToolParam(MCH_TP.NAME, DbName)
+                           NamePar = DbName
                         End If
                   End Select
                End If
-
             End If
             NotifyPropertyChanged("IsSelected")
          End If
@@ -893,11 +899,14 @@ Public Class ToolTreeViewItem
       EgtTdbSetCurrToolParam(MCH_TP.MINFEED, dValue)
       EgtTdbSetCurrToolParam(MCH_TP.DRAW, Draw)
       EgtTdbSetCurrToolParam(MCH_TP.HEAD, Head)
-      EgtTdbSetCurrToolParam(MCH_TP.NAME, NamePar)
       EgtTdbSetCurrToolParam(MCH_TP.USERNOTES, UserNotes)
       EgtTdbSetCurrToolParam(MCH_TP.TCPOS, TcPos)
    End Sub
 
+   Private Sub WriteToolName()
+      EgtTdbSetCurrToolParam(MCH_TP.NAME, NamePar)
+   End Sub
+
 #Region "ToolSceneUpdate"
 
    ' Enum che indica le proprietà di disegno dell'utensile
@@ -1147,6 +1156,34 @@ Public Class ToolTreeViewItem
       End Get
    End Property
 
+   Private Sub IsModifiedReset()
+      m_IsModifiedCorr = False
+      m_IsModifiedExit = False
+      m_IsModifiedCornRad = False
+      m_IsModifiedDiam = False
+      m_IsModifiedFeed = False
+      m_IsModifiedEndFeed = False
+      m_IsModifiedStartFeed = False
+      m_IsModifiedTipFeed = False
+      m_IsModifiedLen = False
+      m_IsModifiedTotLen = False
+      m_IsModifiedMaxMat = False
+      m_IsModifiedLonOffset = False
+      m_IsModifiedRadOffset = False
+      m_IsModifiedSpeed = False
+      m_IsModifiedSideAng = False
+      m_IsModifiedMaxSpeed = False
+      m_IsModifiedThick = False
+      m_IsModifiedMaxAbsorption = False
+      m_IsModifiedMinFeed = False
+      m_IsModifiedDraw = False
+      m_IsModifiedHead = False
+      m_IsModifiedName = False
+      m_IsModifiedUserNotes = False
+      m_IsModifiedTcPos = False
+   End Sub
+
+
    Private Shared ReadOnly ValidatedProperties() As String = {"Draw", "MaxMat", "Thick", "Diam", "Len", "TotLen", "Speed", "NamePar"}
 
    Private Function GetValidationError(ByVal propertyName As String) As String