EgtCAM5 :

- migliorie gestione albero geometrie.

ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/LayerTreeView.vb

@@ -4,6 +4,9 @@ Imports EgtUILib
 Public Class LayerTreeViewItem
    Inherits TreeViewItemBase
 
+   Friend Shared m_SendCmd As Boolean = True
+   Friend Shared m_MarkOnSel As Boolean = True
+
    Private m_Id As Integer
    Public ReadOnly Property Id As Integer
       Get
@@ -23,7 +26,11 @@ Public Class LayerTreeViewItem
             m_IsSelected = value
             If value Then
                ' recupero l'Id del nuovo oggetto selezionato
-               Application.Msn.NotifyColleagues(Application.UPDATEOBJINOBJTREE, Me.Id)
+               If m_MarkOnSel Then
+                  Application.Msn.NotifyColleagues(Application.UPDATEOBJINOBJTREE, Me.Id)
+               Else
+                  Application.Msn.NotifyColleagues(Application.UPDATEOBJINOBJTREENOMARK, Me.Id)
+               End If
             End If
          End If
       End Set
@@ -41,10 +48,6 @@ Public Class LayerTreeViewItem
          ' In realtà il valore di value è insignificante perchè la cosa importante è che il click esegua questo Set
          m_IsRightSelected = value
          Application.Msn.NotifyColleagues(Application.RIGHTCLICKEDLAYERTREEITEM, Me.Id)
-         'If value Then
-         '   ' recupero l'Id del nuovo oggetto selezionato
-         '   Application.Msn.NotifyColleagues(Application.UPDATEOBJINOBJTREE, Me.Id)
-         'End If
       End Set
    End Property
 
@@ -66,12 +69,14 @@ Public Class LayerTreeViewItem
       Set(value As Boolean)
          If m_OnOff <> value Then
             m_OnOff = value
-            ' eseguo operazione
-            Application.Msn.NotifyColleagues(Application.SETLASTINTEGER, Id)
-            If value Then
-               Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.SHOW)
-            Else
-               Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.HIDE)
+            ' se abilitato, eseguo operazione
+            If m_SendCmd Then
+               Application.Msn.NotifyColleagues(Application.SETLASTINTEGER, Id)
+               If value Then
+                  Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.SHOW)
+               Else
+                  Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.HIDE)
+               End If
             End If
          End If
       End Set