EgtCAM5 :

- Migliorie SetUp.
- Migliorie simulazione.

ToolsDbWindow/ToolTreeView.vb

@@ -804,23 +804,30 @@ Public Class ToolTreeViewItem
       End Set
    End Property
 
+   Friend Shared m_TcPosList As New List(Of String)
+   Public ReadOnly Property TcPosList As List(Of String)
+      Get
+         Return m_TcPosList
+      End Get
+   End Property
+
    Private m_IsModifiedTcPos As Boolean = False
-   Private m_TcPos As String
+   Private m_SelectedTcPos As String
    ''' <summary>
    ''' Property that read and write to the tool's database the Tc Pos
    ''' </summary>
-   Public Property TcPos As String
+   Public Property SelectedTcPos As String
       Get
-         Return m_TcPos
+         Return m_SelectedTcPos
       End Get
       Set(value As String)
-         If value = String.Empty Or value <> m_TcPos Then
+         If value = String.Empty Or value <> m_SelectedTcPos Then
             Dim DbTcPos As String = String.Empty
             EgtSetCurrentContext(IniFile.m_ProjectSceneContext)
             EgtTdbGetCurrToolParam(MCH_TP.TCPOS, DbTcPos)
             m_IsModifiedTcPos = If(value <> DbTcPos, True, False)
-            m_TcPos = value
-            NotifyPropertyChanged("TcPos")
+            m_SelectedTcPos = value
+            NotifyPropertyChanged("SelectedTcPos")
          End If
       End Set
    End Property
@@ -910,7 +917,7 @@ Public Class ToolTreeViewItem
       EgtTdbGetCurrToolParam(MCH_TP.USERNOTES, sValue)
       UserNotes = sValue
       EgtTdbGetCurrToolParam(MCH_TP.TCPOS, sValue)
-      TcPos = sValue
+      SelectedTcPos = sValue
       EgtTdbGetCurrToolParam(MCH_TP.UUID, sValue)
       m_Uuid = sValue
       ' Ora che tutti i parametri sono aggiornati, aggiorno il disegno
@@ -974,7 +981,7 @@ Public Class ToolTreeViewItem
       EgtTdbSetCurrToolParam(MCH_TP.DRAW, Draw)
       EgtTdbSetCurrToolParam(MCH_TP.HEAD, Head)
       EgtTdbSetCurrToolParam(MCH_TP.USERNOTES, UserNotes)
-      EgtTdbSetCurrToolParam(MCH_TP.TCPOS, TcPos)
+      EgtTdbSetCurrToolParam(MCH_TP.TCPOS, SelectedTcPos)
    End Sub
 
    Public Sub WriteToolName()