From 80ff913cc6659466a2bcb85bbf3494e38433ef75 Mon Sep 17 00:00:00 2001
From: Emmanuele Sassi <emmanuele.sassi@egaltech.com>
Date: Sat, 21 Jan 2017 14:36:58 +0000
Subject: [PATCH] EgtCam5 : - Aggiunti tooltip in SetUp.

---
 SetUpWindow/SetUpView.xaml    |  2 +-
 SetUpWindow/SetUpViewModel.vb | 48 +++++++++++++++++++++++++++++++++++
 2 files changed, 49 insertions(+), 1 deletion(-)

diff --git a/SetUpWindow/SetUpView.xaml b/SetUpWindow/SetUpView.xaml
index fd1fb82..84608ab 100644
--- a/SetUpWindow/SetUpView.xaml
+++ b/SetUpWindow/SetUpView.xaml
@@ -140,7 +140,7 @@
                                              Background="{Binding ExitBtnBackgroundCol}"
                                              Style="{StaticResource EgtCAM5_SetUpToggleButton}"/>
                                           <Border x:Name="ToolBorder" Grid.Column="1" BorderBrush="{StaticResource EgaltechBlue1}"
-                                             BorderThickness="1">
+                                             BorderThickness="1" ToolTip="{Binding ToolTipMsg}">
                                              <Border.Style>
                                                 <Style TargetType="{x:Type Border}">
                                                    <Setter Property="Visibility" Value="Hidden"/>
diff --git a/SetUpWindow/SetUpViewModel.vb b/SetUpWindow/SetUpViewModel.vb
index a9451a4..be6028c 100644
--- a/SetUpWindow/SetUpViewModel.vb
+++ b/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