EgtCAM5 :

- migliorie al Setup.

SetUpWindow/SetUpViewModel.vb

@@ -38,10 +38,19 @@ Namespace EgtCAM5
          End Set
       End Property
 
-      Public ReadOnly Property TcPosImage As String
+      Public ReadOnly Property SetUpImage As String
          Get
-            Dim sImagePath As String = IniFile.m_sMachinesRoot & "\" & IniFile.m_sMachineName & "\SetUp\TcPosImage.png"
-            Return If(File.Exists(sImagePath), sImagePath, String.Empty)
+            ' Cerco png
+            Dim sImagePath As String = IniFile.m_sCurrMachSetUpDirPath & "\SetupImage.png"
+            If File.Exists(sImagePath) Then Return sImagePath
+            ' Cerco jpeg
+            sImagePath = IniFile.m_sCurrMachSetUpDirPath & "\SetupImage.jpg"
+            If File.Exists(sImagePath) Then Return sImagePath
+            ' Cerco bmp
+            sImagePath = IniFile.m_sCurrMachSetUpDirPath & "\SetupImage.bmp"
+            If File.Exists(sImagePath) Then Return sImagePath
+            ' Non trovato alcunché
+            Return String.Empty
          End Get
       End Property
 
@@ -1314,7 +1323,9 @@ Public Class ToolItem
 
    Public ReadOnly Property ToolTipMsg As String
       Get
-         Return (EgtMsg(MSG_TOOLSDBPAGE + 75) & ": " & m_Name & Environment.NewLine & EgtMsg(MSG_TOOLSDBPAGE + 74) & ": " & m_Head & Environment.NewLine & EgtMsg(MSG_TOOLSDBPAGE + 52) & ": " & m_Exit)
+         Return (EgtMsg(MSG_TOOLSDBPAGE + 75) & ": " & m_Name & Environment.NewLine &
+                 EgtMsg(MSG_TOOLSDBPAGE + 78) & ": " & m_TcPos & Environment.NewLine &
+                 EgtMsg(MSG_TOOLSDBPAGE + 74) & ": " & m_Head & "." & m_Exit)
       End Get
    End Property