Imports DevExpress.XtraBars.Docking2010.Views
Imports DevExpress.XtraBars.Ribbon
Imports DevExpress.XtraTab
Imports DigitalData.Modules.Logging

Public Class frmAdministrationZooFlow
    Private Const IDB_ATTRIBUTES = "IDB_ATTRIBUTES"
    Private Const IDB_ENTITIES = "IDB_ENTITIES"
    Private Const GLOBIX = "GLOBIX"
    Private Const CLIPBOARD_WATCHER = "CLIPBOARD_WATCHER"

    Private Logger As Logger

    Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Logger = My.LogConfig.GetLogger


    End Sub

    Sub DisplayTab(PageToDisplay As XtraTabPage)
        Try
            For Each oDocument As XtraTabPage In XtraTabControl.TabPages
                If oDocument.Name = PageToDisplay.Name Then
                    oDocument.PageVisible = True
                Else
                    oDocument.PageVisible = False
                End If
            Next
        Catch ex As Exception
            Logger.Error(ex)
        End Try
    End Sub

    Sub DisplayRibbonPage(PageToDisplay As RibbonPage)
        Try
            For Each oPage As RibbonPage In RibbonControl1.Pages
                If oPage.Name = PageToDisplay.Name Then
                    oPage.Visible = True
                Else
                    oPage.Visible = False
                End If
            Next
        Catch ex As Exception
            Logger.Error(ex)
        End Try
    End Sub

    Private Sub TreeList1_FocusedNodeChanged(sender As Object, e As DevExpress.XtraTreeList.FocusedNodeChangedEventArgs) Handles TreeList1.FocusedNodeChanged
        If e.Node Is Nothing OrElse e.Node.Tag Is Nothing Then
            Exit Sub
        End If

        Select Case e.Node.Tag.ToString
            Case IDB_ATTRIBUTES
                'DisplayTab(ctrl)
            Case IDB_ENTITIES
                'DisplayTab(XtraTabPage_Entities)
            Case GLOBIX
                DisplayTab(XtraTabPage_GlobalIndexer)
                DisplayRibbonPage(RibbonPage_GlobalIndexer)
            Case CLIPBOARD_WATCHER
                DisplayTab(XtraTabPage_ClipboardWatcher)
                DisplayRibbonPage(RibbonPage_ClipboardWatcher)
        End Select
    End Sub

    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick

    End Sub

End Class