EgtWPFLib5 :

- in simulazione aggiunta gestione di eventuale check per traccia utensile.

OptionPanel/SimulationVM.vb

@@ -163,8 +163,8 @@ Public Class SimulationVM
       End Get
       Set(value As Boolean)
          m_VMillActive = value
-         NotifyPropertyChanged(NameOf(VMillActive))
          VMillActiveInfoTitle(m_VMillActive)
+         NotifyPropertyChanged(NameOf(VMillActive))
       End Set
    End Property
    Public Sub SetVMillActive(value As Boolean)
@@ -194,6 +194,40 @@ Public Class SimulationVM
       End Set
    End Property
 
+   Private m_TraceActive As Boolean = False
+   Public Property TraceActive As Boolean
+      Get
+         Return m_TraceActive
+      End Get
+      Set(value As Boolean)
+         m_TraceActive = value
+         EgtSimEnableToolTipTrace( m_TraceActive)
+         NotifyPropertyChanged(NameOf(TraceActive))
+      End Set
+   End Property
+
+   Private m_Trace_Visibility As Visibility = Visibility.Collapsed
+   Public Property Trace_Visibility As Visibility
+      Get
+         Return m_Trace_Visibility
+      End Get
+      Set(value As Visibility)
+         m_Trace_Visibility = value
+         NotifyPropertyChanged(NameOf(Trace_Visibility))
+      End Set
+   End Property
+
+   Private m_Trace_IsEnabled As Boolean = False
+   Public Property Trace_IsEnabled As Boolean
+      Get
+         Return m_Trace_IsEnabled
+      End Get
+      Set(value As Boolean)
+         m_Trace_IsEnabled = value
+         NotifyPropertyChanged(NameOf(Trace_IsEnabled))
+      End Set
+   End Property
+
    ' Definizione comandi
    Private m_cmdStep As ICommand
    Private m_cmdPlayPause As ICommand
@@ -213,6 +247,12 @@ Public Class SimulationVM
       End Get
    End Property
 
+   Public ReadOnly Property TraceMsg As String
+      Get
+         Return EgtMsg(5321)     ' Tool Tip Tracing
+      End Get
+   End Property
+
    Public ReadOnly Property PauseMsg As String
       Get
          Return m_PauseMsg