EgtCAM5 :

- Migliorie varie.

ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderViewModel.vb

@@ -54,6 +54,8 @@ Namespace EgtCAM5
 #Region "CONSTRUCTOR"
 
       Sub New()
+         'Imposto tempo di evidenziazione delle entità clickate
+         ObjTreeTimer.Interval = New TimeSpan(0, 0, 1)
          Application.Msn.Register(Application.LOADOBJTREE, Sub()
                                                               LoadObjTree()
                                                            End Sub)
@@ -228,9 +230,9 @@ Namespace EgtCAM5
          AddGroupInObjTree(GDB_ID.ROOT, GDB_LV.USER, 0, LayerList)
          If nOldId <> GDB_ID.NULL Then
             SelectIdInObjTree(nOldId)
-            'UpdateObjDataInObjTree(m_nObjTreeOldId)
+            Application.Msn.NotifyColleagues(Application.UPDATEOBJDATAINOBJTREE, m_nObjTreeOldId)
          Else
-            'tBoxInfo.Text = String.Empty
+            Application.Msn.NotifyColleagues(Application.SETINFOBOX, String.Empty)
          End If
       End Sub
 
@@ -374,7 +376,7 @@ Namespace EgtCAM5
          ' per aggiornare l'albero senza ricostruirlo da capo
          ' se c'è una entità corrente, ne aggiorno i dati
          If m_nObjTreeOldId <> GDB_ID.NULL Then
-            'UpdateObjDataInObjTree(m_nObjTreeOldId)
+            Application.Msn.NotifyColleagues(Application.UPDATEOBJDATAINOBJTREE, m_nObjTreeOldId)
          End If
       End Sub
 
@@ -416,7 +418,7 @@ Namespace EgtCAM5
          ' ripristino eventuale vecchio oggetto selezionato
          RevertOldIdInObjTree()
          ' stampa dei dati del nuovo oggetto
-         'UpdateObjDataInObjTree(nId)
+         Application.Msn.NotifyColleagues(Application.UPDATEOBJDATAINOBJTREE, nId)
          ' evidenzio l'oggetto
          EgtSetMark(nId)
          m_nObjTreeOldId = nId