Imports System.Collections.ObjectModel
Imports EgtUILib
Imports EgtCAM5.IniFile

Namespace EgtCAM5

   Public Class ManageLayerExpanderViewModel
      Inherits ViewModelBase

#Region "FIELDS & PROPERTIES"

      ' Expander Header Properties
      Private m_HeaderName As String
      Public Property HeaderName As String
         Get
            Return m_HeaderName
         End Get
         Set(value As String)
            m_HeaderName = value
            OnPropertyChanged("HeaderName")
         End Set
      End Property

      Private m_HeaderColor As SolidColorBrush
      Public Property HeaderColor As SolidColorBrush
         Get
            Return m_HeaderColor
         End Get
         Set(value As SolidColorBrush)
            m_HeaderColor = value
            OnPropertyChanged("HeaderColor")
         End Set
      End Property

      ' Definizione comandi
      Private m_cmdNewPart As ICommand
      Private m_cmdNewLayer As ICommand
      Private m_cmdLayerColor As ICommand
      Private m_cmdTreeViewDoubleClick As ICommand
      Private m_cmdTreeViewMouseUp As ICommand
      Private m_cmdTreeViewMouseRightButton As ICommand
      Private m_cmdSelect As ICommand
      Private m_cmdDeselect As ICommand
      Private m_cmdName As ICommand
      Private m_cmdInfo As ICommand
      Private m_cmdRelocate As ICommand
      Private m_cmdCopy As ICommand
      Private m_cmdDelete As ICommand
      Private m_cmdSave As ICommand

      ' Lista dei layer
      Private m_LayerList As New ObservableCollection(Of LayerTreeViewItem)
      Public Property LayerList As ObservableCollection(Of LayerTreeViewItem)
         Get
            Return m_LayerList
         End Get
         Set(value As ObservableCollection(Of LayerTreeViewItem))
            m_LayerList = value
         End Set
      End Property

      Private m_IsRightClickedTreeItem As Boolean
      Public ReadOnly Property IsRightClickedTreeItem As Integer
         Get
            Return m_RightClickedTreeItemId
         End Get
      End Property

      Private m_RightClickedTreeItemId As Integer
      Public ReadOnly Property RightClickedTreeItemId As Integer
         Get
            Return m_RightClickedTreeItemId
         End Get
      End Property

#Region "Messages"

      Public ReadOnly Property NewPartMsg As String
         Get
            Return EgtMsg(MSG_DRAWOPTION + 2)
         End Get
      End Property
      Public ReadOnly Property NewLayerMsg As String
         Get
            Return EgtMsg(MSG_DRAWOPTION + 3)
         End Get
      End Property
      Public ReadOnly Property ColorMsg As String
         Get
            Return EgtMsg(MSG_DRAWOPTION + 4)
         End Get
      End Property
      Public ReadOnly Property SelectMsg As String
         Get
            Return EgtMsg(MSG_DRAWOPTION + 6)
         End Get
      End Property
      Public ReadOnly Property DeselectMsg As String
         Get
            Return EgtMsg(MSG_DRAWOPTION + 7)
         End Get
      End Property
      Public ReadOnly Property NameMsg As String
         Get
            Return EgtMsg(MSG_DRAWOPTION + 8)
         End Get
      End Property
      Public ReadOnly Property InfoMsg As String
         Get
            Return EgtMsg(MSG_DRAWOPTION + 9)
         End Get
      End Property
      Public ReadOnly Property RelocateMsg As String
         Get
            Return EgtMsg(MSG_DRAWOPTION + 10)
         End Get
      End Property
      Public ReadOnly Property CopyMsg As String
         Get
            Return EgtMsg(MSG_DRAWOPTION + 11)
         End Get
      End Property
      Public ReadOnly Property DeleteMsg As String
         Get
            Return EgtMsg(MSG_DRAWOPTION + 12)
         End Get
      End Property
      Public ReadOnly Property SaveMsg As String
         Get
            Return EgtMsg(MSG_DRAWOPTION + 13)
         End Get
      End Property

#End Region

#End Region

#Region "CONSTRUCTOR"

      Sub New()
         'Imposto tempo di evidenziazione delle entità clickate
         ObjTreeTimer.Interval = TimeSpan.FromMilliseconds(1000)
         Application.Msn.Register(Application.LOADOBJTREE, Sub()
                                                              LoadObjTree()
                                                           End Sub)
         Application.Msn.Register(Application.UPDATEOBJINOBJTREE, Sub(nId As Integer)
                                                                     UpdateObjInObjTree(nId)
                                                                  End Sub)
         Application.Msn.Register(Application.UPDATEOBJINOBJTREENOMARK, Sub(nId As Integer)
                                                                           UpdateObjInObjTreeNoMark(nId)
                                                                        End Sub)
         Application.Msn.Register(Application.SELECTIDINOBJTREE, Sub(nId As Integer)
                                                                    SelectIdInObjTree(nId, True)
                                                                 End Sub)
         Application.Msn.Register(Application.SELECTIDINOBJTREENOMARK, Sub(nId As Integer)
                                                                    SelectIdInObjTree(nId, False)
                                                                 End Sub)
         Application.Msn.Register(Application.CLEAROBJTREE, Sub()
                                                               ClearObjTree()
                                                            End Sub)
         Application.Msn.Register(Application.UPDATEOBJTREE, Sub()
                                                                UpdateObjTree()
                                                             End Sub)
         Application.Msn.Register(Application.UPDATEHEADERNAME, Sub(HeaderName As String)
                                                                   Me.HeaderName = HeaderName
                                                                End Sub)
         Application.Msn.Register(Application.UPDATEHEADERCOLOR, Sub(HeaderColor As Color3d)
                                                                    Me.HeaderColor = New SolidColorBrush(Color.FromArgb(CByte(HeaderColor.A * 255 / 100), CByte(HeaderColor.R), CByte(HeaderColor.G), CByte(HeaderColor.B)))
                                                                 End Sub)
         Application.Msn.Register(Application.UPDATEOBJTREEOLDID, Sub(ObjTreeOldId As Integer)
                                                                     Me.m_nObjTreeOldId = ObjTreeOldId
                                                                  End Sub)
         Application.Msn.Register(Application.RIGHTCLICKEDLAYERTREEITEM, Sub(Id As Integer)
                                                                            EgtResetMark(m_RightClickedTreeItemId)
                                                                            m_RightClickedTreeItemId = Id
                                                                         End Sub)
         Application.Msn.Register(Application.ISRIGHTCLICKEDLAYERTREEITEM, Sub(Value As Boolean)
                                                                              m_IsRightClickedTreeItem = Value
                                                                           End Sub)

      End Sub

#End Region    ' Constructor

#Region "COMMANDS"

#Region "NewPartCommand"

      ''' <summary>
      ''' Returns a command that do Point.
      ''' </summary>
      Public ReadOnly Property NewPartCommand As ICommand
         Get
            If m_cmdNewPart Is Nothing Then
               m_cmdNewPart = New RelayCommand(AddressOf NewPart)
            End If
            Return m_cmdNewPart
         End Get
      End Property

      ''' <summary>
      ''' Execute the Point.  This method is invoked by the PointCommand.
      ''' </summary>
      Public Sub NewPart(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.NEWPART)
         ' Seleziono nell'albero il layer del pezzo appena creato
         SelectIdInObjTree(EgtGetCurrLayer(), False)
      End Sub

#End Region ' NewPartCommand

#Region "NewLayerCommand"

      ''' <summary>
      ''' Returns a command that do Point.
      ''' </summary>
      Public ReadOnly Property NewLayerCommand As ICommand
         Get
            If m_cmdNewLayer Is Nothing Then
               m_cmdNewLayer = New RelayCommand(AddressOf NewLayer)
            End If
            Return m_cmdNewLayer
         End Get
      End Property

      ''' <summary>
      ''' Execute the Point.  This method is invoked by the PointCommand.
      ''' </summary>
      Public Sub NewLayer(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.NEWLAYER)
         ' Seleziono nell'albero il layer appena creato
         SelectIdInObjTree(EgtGetCurrLayer(), False)
      End Sub

#End Region ' NewLayerCommand

#Region "LayerColorCommand"

      ''' <summary>
      ''' Returns a command that do Point.
      ''' </summary>
      Public ReadOnly Property LayerColorCommand As ICommand
         Get
            If m_cmdLayerColor Is Nothing Then
               m_cmdLayerColor = New RelayCommand(AddressOf LayerColor)
            End If
            Return m_cmdLayerColor
         End Get
      End Property

      ''' <summary>
      ''' Execute the Point.  This method is invoked by the PointCommand.
      ''' </summary>
      Public Sub LayerColor(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.LAYERCOLOR)
         Application.Msn.NotifyColleagues(Application.LOADOBJTREE)
      End Sub

#End Region ' LayerColorCommand

#Region "TreeViewDoubleClickCommand"

      ''' <summary>
      ''' Returns a command that do Point.
      ''' </summary>
      Public ReadOnly Property TreeViewDoubleClickCommand As ICommand
         Get
            If m_cmdTreeViewDoubleClick Is Nothing Then
               m_cmdTreeViewDoubleClick = New RelayCommand(AddressOf TreeViewDoubleClick)
            End If
            Return m_cmdTreeViewDoubleClick
         End Get
      End Property

      ''' <summary>
      ''' Execute the Point.  This method is invoked by the PointCommand.
      ''' </summary>
      Public Sub TreeViewDoubleClick(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

#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)
            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

#End Region ' TreeViewMouseRightButtonCommand

#Region "TreeViewMouseUpCommand"

      ''' <summary>
      ''' Returns a command that do Point.
      ''' </summary>
      Public ReadOnly Property TreeViewMouseUpCommand As ICommand
         Get
            If m_cmdTreeViewMouseUp Is Nothing Then
               m_cmdTreeViewMouseUp = New RelayCommand(AddressOf TreeViewMouseUp)
            End If
            Return m_cmdTreeViewMouseUp
         End Get
      End Property

      ''' <summary>
      ''' Execute the Point.  This method is invoked by the PointCommand.
      ''' </summary>
      Public Sub TreeViewMouseUp(ByVal param As Object)
         ' determino Id di eventuale item sotto il mouse
         Dim nId As Integer = GDB_ID.NULL
         If m_IsRightClickedTreeItem Then
            nId = m_RightClickedTreeItemId
         Else
            nId = m_nObjTreeOldId
         End If
         ' se Id coincide con il corrente
         If nId <> GDB_ID.NULL Then 'And nId = m_nObjTreeOldId Then
            ' evidenzio
            EgtSetMark(nId)
            EgtDraw()
            ' lancio timer per successiva de-evidenziazione
            ObjTreeTimer.Stop()
            ObjTreeTimer.Start()
         End If
         ' se rilascio tasto destro
         'If e.Button = Windows.Forms.MouseButtons.Right Then
         '   ' Id pezzo sotto il mouse
         '   m_nObjTreeMenuId = nId
         '   ' verifico stato visualizzazione per abilitare voci menù
         '   Dim nStat As GDB_ST = GDB_ST.ON_
         '   Dim bOn As Boolean = EgtGetCalcStatus(m_nObjTreeMenuId, nStat) And nStat <> GDB_ST.OFF
         '   For Each Item As ToolStripItem In ContextMenuTreeView1.Items
         '      If Item.Name = "cmdSetName" Or Item.Name = "cmdSetInfo" Then
         '         Item.Enabled = True
         '      Else
         '         Item.Enabled = bOn
         '      End If
         '   Next
         '   'ContextMenuTreeView1.Show(TreeView1, e.Location)
         'End If
      End Sub

#End Region ' TreeViewMouseUpCommand

#Region "SelectCommand"

      ''' <summary>
      ''' Returns a command that do Point.
      ''' </summary>
      Public ReadOnly Property SelectCommand As ICommand
         Get
            If m_cmdSelect Is Nothing Then
               m_cmdSelect = New RelayCommand(AddressOf SelectCmd)
            End If
            Return m_cmdSelect
         End Get
      End Property

      ''' <summary>
      ''' Execute the Point.  This method is invoked by the PointCommand.
      ''' </summary>
      Public Sub SelectCmd(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.SETLASTINTEGER, RightClickedTreeItemId)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.SELECTPARTLAYEROBJ)
      End Sub

#End Region ' SelectCommand

#Region "DeselectCommand"

      ''' <summary>
      ''' Returns a command that do Point.
      ''' </summary>
      Public ReadOnly Property DeselectCommand As ICommand
         Get
            If m_cmdDeselect Is Nothing Then
               m_cmdDeselect = New RelayCommand(AddressOf Deselect)
            End If
            Return m_cmdDeselect
         End Get
      End Property

      ''' <summary>
      ''' Execute the Point.  This method is invoked by the PointCommand.
      ''' </summary>
      Public Sub Deselect(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.SETLASTINTEGER, RightClickedTreeItemId)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.DESELECTPARTLAYEROBJ)
      End Sub

#End Region ' DeselectCommand

#Region "NameCommand"

      ''' <summary>
      ''' Returns a command that do Point.
      ''' </summary>
      Public ReadOnly Property NameCommand As ICommand
         Get
            If m_cmdName Is Nothing Then
               m_cmdName = New RelayCommand(AddressOf Name)
            End If
            Return m_cmdName
         End Get
      End Property

      ''' <summary>
      ''' Execute the Point.  This method is invoked by the PointCommand.
      ''' </summary>
      Public Sub Name(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.SETLASTINTEGER, RightClickedTreeItemId)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.SETNAME)
      End Sub

#End Region ' NameCommand

#Region "InfoCommand"

      ''' <summary>
      ''' Returns a command that do Point.
      ''' </summary>
      Public ReadOnly Property InfoCommand As ICommand
         Get
            If m_cmdInfo Is Nothing Then
               m_cmdInfo = New RelayCommand(AddressOf Info)
            End If
            Return m_cmdInfo
         End Get
      End Property

      ''' <summary>
      ''' Execute the Point.  This method is invoked by the PointCommand.
      ''' </summary>
      Public Sub Info(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.SETLASTINTEGER, RightClickedTreeItemId)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.SETINFO)
      End Sub

#End Region ' InfoCommand

#Region "RelocateCommand"

      ''' <summary>
      ''' Returns a command that do Point.
      ''' </summary>
      Public ReadOnly Property RelocateCommand As ICommand
         Get
            If m_cmdRelocate Is Nothing Then
               m_cmdRelocate = New RelayCommand(AddressOf Relocate)
            End If
            Return m_cmdRelocate
         End Get
      End Property

      ''' <summary>
      ''' Execute the Point.  This method is invoked by the PointCommand.
      ''' </summary>
      Public Sub Relocate(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.SETLASTINTEGER, RightClickedTreeItemId)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.RELOCATEPARTLAYEROBJ)
      End Sub

#End Region ' RelocateCommand

#Region "CopyCommand"

      ''' <summary>
      ''' Returns a command that do Point.
      ''' </summary>
      Public ReadOnly Property CopyCommand As ICommand
         Get
            If m_cmdCopy Is Nothing Then
               m_cmdCopy = New RelayCommand(AddressOf Copy)
            End If
            Return m_cmdCopy
         End Get
      End Property

      ''' <summary>
      ''' Execute the Point.  This method is invoked by the PointCommand.
      ''' </summary>
      Public Sub Copy(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.SETLASTINTEGER, RightClickedTreeItemId)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.COPYPARTLAYEROBJ)
      End Sub

#End Region ' CopyCommand

#Region "DeleteCommand"

      ''' <summary>
      ''' Returns a command that do Point.
      ''' </summary>
      Public ReadOnly Property DeleteCommand As ICommand
         Get
            If m_cmdDelete Is Nothing Then
               m_cmdDelete = New RelayCommand(AddressOf Delete)
            End If
            Return m_cmdDelete
         End Get
      End Property

      ''' <summary>
      ''' Execute the Point.  This method is invoked by the PointCommand.
      ''' </summary>
      Public Sub Delete(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.SETLASTINTEGER, RightClickedTreeItemId)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.DELETE)
      End Sub

#End Region ' DeleteCommand

#Region "SaveCommand"

      ''' <summary>
      ''' Returns a command that do Point.
      ''' </summary>
      Public ReadOnly Property SaveCommand As ICommand
         Get
            If m_cmdSave Is Nothing Then
               m_cmdSave = New RelayCommand(AddressOf Save)
            End If
            Return m_cmdSave
         End Get
      End Property

      ''' <summary>
      ''' Execute the Point.  This method is invoked by the PointCommand.
      ''' </summary>
      Public Sub Save(ByVal param As Object)
         Dim sDir As String = String.Empty
         GetPrivateProfileString(S_GENERAL, K_LASTNGEOBJDIR, "", sDir)
         Dim nType As NGE = DirectCast(GetPrivateProfileInt(S_GEOMDB, K_SAVETYPE, NGE.CMPTEXT), NGE)
         Application.Msn.NotifyColleagues(Application.SAVEOBJECT, New SaveObjectParam(m_RightClickedTreeItemId, sDir, nType))
      End Sub

#End Region ' SaveCommand

#End Region    ' Commands

#Region "METHODS"

      Private WithEvents ObjTreeTimer As New System.Windows.Threading.DispatcherTimer
      Private m_nObjTreeOldId As Integer = GDB_ID.NULL
      Private m_nObjTreeMenuId As Integer = GDB_ID.NULL
      Private m_bEnableUpdateObjInObjTree As Boolean = True

      Private Sub ObjTreeTickEvent(source As Object, e As EventArgs) Handles ObjTreeTimer.Tick
         Dim nId As Integer = GDB_ID.NULL
         If m_IsRightClickedTreeItem Then
            nId = m_RightClickedTreeItemId
         Else
            nId = m_nObjTreeOldId
         End If
         If nId <> GDB_ID.NULL Then
            EgtResetMark(nId)
            EgtDraw()
         End If
         ObjTreeTimer.Stop()
      End Sub

      Public Sub LoadObjTree()
         LayerTreeViewItem.m_SendCmd = False
         Dim nOldId As Integer = ClearObjTree()
         AddGroupInObjTree(GDB_ID.ROOT, GDB_LV.USER, 0, LayerList)
         If nOldId <> GDB_ID.NULL Then
            m_bEnableUpdateObjInObjTree = False
            SelectIdInObjTree(nOldId, True)
            m_bEnableUpdateObjInObjTree = True
         Else
            Application.Msn.NotifyColleagues(Application.SETINFOBOX, String.Empty)
         End If
         LayerTreeViewItem.m_SendCmd = True
      End Sub

      Private Function ClearObjTree() As Integer
         Dim nOldId As Integer = RevertOldIdInObjTree()
         LayerList.Clear()
         Return nOldId
      End Function

      Private Sub AddGroupInObjTree(ByVal nGroupId As Integer, ByVal nLevel As Integer, ByVal nDepth As Integer, ByRef PrevNodColl As ObservableCollection(Of LayerTreeViewItem))

         Dim CurrNodColl As ObservableCollection(Of LayerTreeViewItem)

         If nGroupId = GDB_ID.ROOT Then
            CurrNodColl = PrevNodColl
         Else
            ' livello
            Dim nObjLev As Integer = GDB_LV.USER
            EgtGetLevel(nGroupId, nObjLev)
            If nObjLev = GDB_LV.TEMP Then
               nLevel = GDB_LV.TEMP
            ElseIf nLevel = GDB_LV.USER Then
               nLevel = nObjLev
            End If
            ' tipo
            Dim nGroupType As Integer = 0         ' 0=gruppo generico, 1=pezzo, 2=layer
            If nLevel = GDB_LV.USER Then
               nGroupType = nDepth
            End If
            ' nome
            Dim sName As String = String.Empty
            Dim sText As String = String.Empty
            If EgtGetName(nGroupId, sName) Then
               If nGroupType = 1 Then
                  sText = sName + " (Part " + nGroupId.ToString + ")"
               ElseIf nGroupType = 2 Then
                  sText = sName + " (Layer " + nGroupId.ToString + ")"
               Else
                  sText = sName + " (Group " + nGroupId.ToString + ")"
               End If
            Else
               If nGroupType = 1 Then
                  sText = "Part " + nGroupId.ToString
               ElseIf nGroupType = 2 Then
                  sText = "Layer " + nGroupId.ToString
               Else
                  sText = "Group " + nGroupId.ToString
               End If
            End If
            ' per visualizzare oggetti di livello diverso da utente, si deve avere il permesso
            If nLevel <> GDB_LV.USER And m_nUserLevel < 5 Then
               Return
            End If
            ' inserisco il nodo nell'albero
            Dim CurrColor As Color3d
            EgtGetCalcColor(nGroupId, CurrColor)
            Dim sImage As String = TypeToImageInObjTree(GDB_TY.GROUP, nGroupType)
            Dim CurrNod As LayerTreeViewItem = New LayerTreeViewItem(nGroupId, sText, sImage, CurrColor)
            PrevNodColl.Add(CurrNod)
            CurrNodColl = CurrNod.Items
            Dim nStat As Integer = GDB_ST.ON_
            EgtGetStatus(nGroupId, nStat)
            CurrNod.OnOff = (nStat <> GDB_ST.OFF)
         End If

         Dim nObjs As Integer = EgtGetGroupObjs(nGroupId)
         If (nObjs > 275000) Then
            Dim sText As String = "Too many entities (" + nObjs.ToString() + ")"
            CurrNodColl.Add(New LayerTreeViewItem(GDB_ID.NULL, sText))
            Return
         End If

         Dim nId As Integer = EgtGetFirstInGroup(nGroupId)
         While nId <> GDB_ID.NULL
            'recupero il tipo di nodo
            Dim nType As Integer = EgtGetType(nId)
            'se gruppo
            If nType = GDB_TY.GROUP Then
               AddGroupInObjTree(nId, nLevel, nDepth + 1, CurrNodColl)
               'se oggetto geometrico
            ElseIf nType >= GDB_TY.GEO_VECTOR Then
               Dim sTitle As String = String.Empty
               EgtGetTitle(nId, sTitle)
               Dim sName As String = String.Empty
               Dim sText As String = String.Empty
               If EgtGetName(nId, sName) Then
                  sText = sName + " (" + sTitle + " " + nId.ToString + ")"
               Else
                  sText = sTitle + " " + nId.ToString
               End If
               Dim CurrColor As New Color3d(0, 0, 0, 0)
               EgtGetColor(nId, CurrColor)
               Dim sImage As String = TypeToImageInObjTree(nType, nDepth)
               Dim CurrNod As LayerTreeViewItem = New LayerTreeViewItem(nId, sText, sImage, CurrColor)
               CurrNodColl.Add(CurrNod)
               Dim nStat As Integer = GDB_ST.ON_
               EgtGetStatus(nId, nStat)
               CurrNod.OnOff = (nStat <> GDB_ST.OFF)
            End If
            'passo al successivo
            nId = EgtGetNext(nId)
         End While
      End Sub

      Private Function TypeToImageInObjTree(ByVal nType As Integer, ByVal nSubType As Integer) As String

         Select Case nType
            Case GDB_TY.GROUP
               If nSubType = 1 Then
                  Return "/Resources/TreeView/Folder.png"
               ElseIf nSubType = 2 Then
                  Return "/Resources/TreeView/Folder.png"
               Else
                  Return "/Resources/TreeView/Group.ico"
               End If
            Case GDB_TY.GEO_VECTOR
               Return "/Resources/TreeView/Vector.ico"
            Case GDB_TY.GEO_POINT
               Return "/Resources/TreeView/Point.ico"
            Case GDB_TY.GEO_FRAME
               Return "/Resources/TreeView/Frame.ico"
            Case GDB_TY.CRV_LINE
               Return "/Resources/TreeView/Line.ico"
            Case GDB_TY.CRV_ARC
               Return "/Resources/TreeView/Arc.ico"
            Case GDB_TY.CRV_BEZ
               Return "/Resources/TreeView/CBezier.ico"
            Case GDB_TY.CRV_COMPO
               Return "/Resources/TreeView/CCompo.ico"
            Case GDB_TY.SRF_MESH
               Return "/Resources/TreeView/STriMesh.ico"
            Case GDB_TY.SRF_FRGN
               Return "/Resources/TreeView/SFlatRegion.ico"
            Case GDB_TY.VOL_ZMAP
               Return "/Resources/TreeView/VolZmap.ico"
            Case GDB_TY.EXT_TEXT
               Return "/Resources/TreeView/Text.ico"
         End Select
         Return ""
      End Function

      Private Sub UpdateObjTree()
         ' per aggiornare l'albero senza ricostruirlo da capo
         ' se c'è una entità corrente, ne aggiorno i dati
         If m_nObjTreeOldId <> GDB_ID.NULL Then
            Application.Msn.NotifyColleagues(Application.UPDATEOBJDATAINOBJTREE, m_nObjTreeOldId)
         End If
      End Sub

      Private Sub UpdateObjInObjTree(nId As Integer)
         If m_bEnableUpdateObjInObjTree Then
            ' ripristino eventuale vecchio oggetto selezionato
            RevertOldIdInObjTree()
            ' stampa dei dati del nuovo oggetto
            Application.Msn.NotifyColleagues(Application.UPDATEOBJDATAINOBJTREE, nId)
            ' evidenzio l'oggetto
            EgtSetMark(nId)
            m_nObjTreeOldId = nId
            ' imposto il ridisegno della scena
            EgtDraw()
            ' lancio timer per successiva de-evidenziazione
            ObjTreeTimer.Stop()
            ObjTreeTimer.Start()
         Else
            ' stampa dei dati del nuovo oggetto
            Application.Msn.NotifyColleagues(Application.UPDATEOBJDATAINOBJTREE, nId)
         End If
      End Sub

      Private Sub UpdateObjInObjTreeNoMark(nId As Integer)
         If m_bEnableUpdateObjInObjTree Then
            ' ripristino eventuale vecchio oggetto selezionato
            RevertOldIdInObjTree()
            ' stampa dei dati del nuovo oggetto
            Application.Msn.NotifyColleagues(Application.UPDATEOBJDATAINOBJTREE, nId)
            ' salvo id corrente
            m_nObjTreeOldId = nId
         Else
            ' stampa dei dati del nuovo oggetto
            Application.Msn.NotifyColleagues(Application.UPDATEOBJDATAINOBJTREE, nId)
         End If
      End Sub

      Private Function RevertOldIdInObjTree() As Integer
         ' salvo il vecchio Id
         Dim nOldId As Integer = m_nObjTreeOldId
         ' se non nullo...
         If EgtExistsObj(m_nObjTreeOldId) Then
            ' smarco l'oggetto
            EgtResetMark(m_nObjTreeOldId)
            ' annullo oggetto da ripristinare
            m_nObjTreeOldId = GDB_ID.NULL
         End If
         Return nOldId
      End Function

      Private Function SelectIdInObjTree(nId As Integer, bMark As Boolean) As Boolean
         Dim tNode As LayerTreeViewItem = SearchIdInLayerList(LayerList, nId, True)
         If Not IsNothing(tNode) Then
            If Not bMark Then LayerTreeViewItem.m_MarkOnSel = False
            tNode.IsSelected = True
            If Not bMark Then LayerTreeViewItem.m_MarkOnSel = True
            tNode.IsExpanded = True
            m_nObjTreeOldId = nId
            Return True
         Else
            m_nObjTreeOldId = GDB_ID.NULL
            Return False
         End If
      End Function

      Private Function SearchIdInLayerList(Tree As ObservableCollection(Of LayerTreeViewItem), nId As Integer, bExpand As Boolean) As LayerTreeViewItem
         For Each Item In Tree
            If Item.Id = nId Then
               If bExpand Then Item.IsExpanded = True
               Return Item
            ElseIf Item.Items.Count() > 0 Then
               Dim Item2 As LayerTreeViewItem = SearchIdInLayerList(Item.Items, nId, bExpand)
               If Not IsNothing(Item2) Then
                  If bExpand Then Item.IsExpanded = True
                  Return Item2
               End If
            End If
         Next
         Return Nothing
      End Function

      'Private Sub MenuObjTree_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ContextMenuTreeView1.ItemClicked
      '   If e.ClickedItem.Name = "cmdSelectPartLayObj" Then
      '      m_Controller.SetLastInteger(m_nObjTreeMenuId)
      '      m_Controller.ExecuteCommand(CMD.SELECTPARTLAYEROBJ)
      '   ElseIf e.ClickedItem.Name = "cmdDeselectPartLayObj" Then
      '      m_Controller.SetLastInteger(m_nObjTreeMenuId)
      '      m_Controller.ExecuteCommand(CMD.DESELECTPARTLAYEROBJ)
      '   ElseIf e.ClickedItem.Name = "cmdSetName" Then
      '      m_Controller.SetLastInteger(m_nObjTreeMenuId)
      '      m_Controller.ExecuteCommand(CMD.SETNAME)
      '   ElseIf e.ClickedItem.Name = "cmdSetInfo" Then
      '      m_Controller.SetLastInteger(m_nObjTreeMenuId)
      '      m_Controller.ExecuteCommand(CMD.SETINFO)
      '   ElseIf e.ClickedItem.Name = "cmdRelocatePartLayObj" Then
      '      m_Controller.SetLastInteger(m_nObjTreeMenuId)
      '      m_Controller.ExecuteCommand(CMD.RELOCATEPARTLAYEROBJ)
      '   ElseIf e.ClickedItem.Name = "cmdCopyPartLayObj" Then
      '      m_Controller.SetLastInteger(m_nObjTreeMenuId)
      '      m_Controller.ExecuteCommand(CMD.COPYPARTLAYEROBJ)
      '   ElseIf e.ClickedItem.Name = "cmdDeletePartLayObj" Then
      '      m_Controller.SetLastInteger(m_nObjTreeMenuId)
      '      m_Controller.ExecuteCommand(CMD.DELETE)
      '   ElseIf e.ClickedItem.Name = "cmdSavePartLay" Then
      '      ContextMenuTreeView1.Close()
      '      Dim sDir As String = String.Empty
      '      GetPrivateProfileString(S_GENERAL, K_LASTNGEOBJDIR, "", sDir, m_sIniFile)
      '      Dim nType As NGE = GetPrivateProfileInt(S_GEOMDB, K_SAVETYPE, NGE.CMPTEXT, m_sIniFile)
      '      m_Controller.SaveObject(m_nObjTreeMenuId, sDir, nType)
      '   End If
      'End Sub

#End Region    ' Methods

   End Class

End Namespace