EgtCAM5 :

- Migliorie varie.

ProjectPage/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderViewModel.vb

@@ -6,6 +6,8 @@ Namespace EgtCAM5
    Public Class OperationExpanderViewModel
       Inherits ViewModelBase
 
+      ' Ultima lavorazione evidenziata
+      Private m_LastMarkedOperationId As Integer = GDB_ID.NULL
       Private m_IsExpanded As Boolean
       Public Property IsExpanded As Boolean
          Get
@@ -34,7 +36,15 @@ Namespace EgtCAM5
             Return m_SelectedOperation
          End Get
          Set(value As OperationListBoxItem)
-            m_SelectedOperation = value
+            If value IsNot m_SelectedOperation Then
+               If m_LastMarkedOperationId <> GDB_ID.NULL Then
+                  EgtResetMark(m_LastMarkedOperationId)
+               End If
+               EgtSetMark(value.Id)
+               m_LastMarkedOperationId = value.Id
+               EgtDraw()
+               m_SelectedOperation = value
+            End If
          End Set
       End Property
 
@@ -47,6 +57,10 @@ Namespace EgtCAM5
          Application.Msn.Register(Application.LOADOPERATIONLIST, Sub()
                                                                     LoadOperationList()
                                                                  End Sub)
+         Application.Msn.Register(Application.REMOVEMARKFROMLASTOPERATION, Sub()
+                                                                              EgtResetMark(m_LastMarkedOperationId)
+                                                                           End Sub)
+
       End Sub
 #Region "COMMANDS"