EgtCAM5 :

- Migliorie varie.

ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderViewModel.vb

@@ -37,6 +37,7 @@ Namespace EgtCAM5
       Private m_cmdNewLayer As ICommand
       Private m_cmdLayerColor As ICommand
       Private m_cmdTreeViewDoubleClick As ICommand
+      Private m_cmdTreeViewMouseRightButton As ICommand
 
       ' Lista dei layer
       Private m_LayerList As New ObservableCollection(Of LayerTreeViewItem)
@@ -209,6 +210,39 @@ Namespace EgtCAM5
 
 #End Region ' TreeViewDoubleClickCommand
 
+#Region "TreeViewMouseRightButtonCommand"
+
+      ''' <summary>
+      ''' Returns a command that do Point.
+      ''' </summary>
+      Public ReadOnly Property TreeViewMouseRightButtonCommand As ICommand
+         Get
+            If m_cmdTreeViewMouseRightButton Is Nothing Then
+               m_cmdTreeViewMouseRightButton = New RelayCommand(AddressOf TreeViewMouseRightButton, AddressOf CanTreeViewMouseRightButton)
+            End If
+            Return m_cmdTreeViewMouseRightButton
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the Point.  This method is invoked by the PointCommand.
+      ''' </summary>
+      Public Sub TreeViewMouseRightButton(ByVal param As Object)
+         If m_nObjTreeOldId <> GDB_ID.NULL Then
+            Application.Msn.NotifyColleagues(Application.SETLASTINTEGER, m_nObjTreeOldId)
+            Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.SETCURRPARTLAYER)
+         End If
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanTreeViewMouseRightButton(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' TreeViewMouseRightButtonCommand
+
 #End Region    ' Commands
 
 #Region "METHODS"