EgtCam5 :

- Aggiunti tooltip in SetUp.

SetUpWindow/SetUpViewModel.vb

@@ -696,6 +696,7 @@ Namespace EgtCAM5
             If ExitIndex = nExit - 1 Then
                Position.ExitToolAssociationList(ExitIndex).Tool = SelTool
                Position.ExitToolAssociationList(ExitIndex).IsOccupied = True
+               Position.ExitToolAssociationList(ExitIndex).NotifyPropertyChanged("ToolTipMsg")
                bOk = True
                Exit For
             End If
@@ -1008,6 +1009,52 @@ Public Class ExitToolAssociation
       End Set
    End Property
 
+#Region "Messages"
+
+   Public ReadOnly Property ToolTipMsg As String
+      Get
+         EgtTdbSetCurrTool(m_Tool.Name)
+         Dim dValue As Double = 0
+         Dim nType As Integer
+         EgtTdbGetCurrToolParam(MCH_TP.TYPE, nType)
+         EgtTdbGetCurrToolParam(MCH_TP.DIAM, dValue)
+         Dim sDiam As String = LenToString(dValue, 4)
+         EgtTdbGetCurrToolParam(MCH_TP.LEN, dValue)
+         Dim sLen As String = LenToString(dValue, 4)
+         EgtTdbGetCurrToolParam(MCH_TP.MAXMAT, dValue)
+         Dim MaxMat As String = LenToString(dValue, 4)
+         Return (EgtMsg(MSG_TOOLSDBPAGE + 53) & ": " & ConvertToolTypeToString(nType) & Environment.NewLine &
+                 EgtMsg(MSG_TOOLSDBPAGE + 56) & ": " & sDiam & Environment.NewLine &
+                 EgtMsg(MSG_TOOLSDBPAGE + 62) & ": " & sLen & Environment.NewLine &
+                 EgtMsg(MSG_TOOLSDBPAGE + 64) & ": " & MaxMat)
+      End Get
+   End Property
+
+   Private Function ConvertToolTypeToString(ToolType As Integer) As String
+      Select Case ToolType
+         Case MCH_TY.DRILL_STD
+            Return EgtMsg(MSG_TOOLSDBPAGE + 1)
+         Case MCH_TY.DRILL_LONG
+            Return EgtMsg(MSG_TOOLSDBPAGE + 6)
+         Case MCH_TY.SAW_STD
+            Return EgtMsg(MSG_TOOLSDBPAGE + 2)
+         Case MCH_TY.SAW_FLAT
+            Return EgtMsg(MSG_TOOLSDBPAGE + 7)
+         Case MCH_TY.MILL_STD
+            Return EgtMsg(MSG_TOOLSDBPAGE + 3)
+         Case MCH_TY.MILL_NOTIP
+            Return EgtMsg(MSG_TOOLSDBPAGE + 8)
+         Case MCH_TY.MORTISE_STD
+            Return EgtMsg(MSG_TOOLSDBPAGE + 4)
+         Case MCH_TY.COMPO
+            Return EgtMsg(MSG_TOOLSDBPAGE + 5)
+         Case Else
+            Return String.Empty
+      End Select
+   End Function
+
+#End Region    ' Messages
+
    ' Definizione comandi
    Private m_cmdSetUpTool As ICommand
 
@@ -1086,6 +1133,7 @@ Public Class ExitToolAssociation
                Exit For
             End If
          Next
+         NotifyPropertyChanged("ToolTipMsg")
       Else
          ' lo rimetto nella lista utensili
          For Index = 0 To sh_ToolsList.Count - 1