Reconfigure for GIT

2017-03-26 20:00:03 +02:00
commit 00637826ab
8056 changed files with 535977 additions and 0 deletions
@@ -0,0 +1,98 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.ExpressApp.Win.Templates.ActionContainers
+Imports DevExpress.ExpressApp.Model
+Imports DevExpress.XtraTreeList.Nodes
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.XtraTreeList
+Imports System.Drawing
+Imports DevExpress.Data.Filtering
+
+Partial Public Class NavbarTreeList
+    Inherits WindowController
+    Private navActionContainer As NavigationActionContainer
+    Public Sub New()
+        MyBase.New()
+
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        _ObjectSpace = Application.CreateObjectSpace()
+        _ListViewModel = CType(Application.FindModelView("RegistryTasks_ListView_Not_Completed"), IModelListView)
+        AddHandler Window.ProcessActionContainer, AddressOf Window_ProcessActionContainer
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        RemoveHandler Window.ProcessActionContainer, AddressOf Window_ProcessActionContainer
+        UnsubscribeFromContainerEvents()
+        navActionContainer = Nothing
+        MyBase.OnDeactivated()
+    End Sub
+    Private Sub Window_ProcessActionContainer(ByVal sender As Object, ByVal e As ProcessActionContainerEventArgs)
+        UnsubscribeFromContainerEvents()
+        If TypeOf e.ActionContainer Is NavigationActionContainer Then
+            navActionContainer = TryCast(e.ActionContainer, NavigationActionContainer)
+            SubscribeToContainerEvents()
+            SetupNavBar()
+        End If
+    End Sub
+    Private Sub SubscribeToContainerEvents()
+        If navActionContainer IsNot Nothing Then
+            AddHandler navActionContainer.NavigationControlCreated, AddressOf navigationControlCreated
+        End If
+    End Sub
+    Private Sub UnsubscribeFromContainerEvents()
+        If navActionContainer IsNot Nothing Then
+            RemoveHandler navActionContainer.NavigationControlCreated, AddressOf navigationControlCreated
+        End If
+    End Sub
+    Private Sub navigationControlCreated(ByVal sender As Object, ByVal e As EventArgs)
+        SetupNavBar()
+    End Sub
+    Private _TreeNode As TreeListNode
+    Private _ObjectSpace As Xpo.XPObjectSpace
+    Private _ListViewModel As IModelListView
+    Private Sub SetupNavBar()
+        If navActionContainer IsNot Nothing AndAlso TypeOf navActionContainer.NavigationControl Is TreeListNavigationControl Then
+            Dim treeListNavigationControl As TreeListNavigationControl = CType(navActionContainer.NavigationControl, TreeListNavigationControl)
+            Dim navItem As ChoiceActionItem = Window.GetController(Of ShowNavigationItemController)().ShowNavigationItemAction.Items.Find("@RegistryTask_ListView_Not_Completed", ChoiceActionItemFindType.Recursive, ChoiceActionItemFindTarget.Any)
+            If navItem IsNot Nothing Then
+                _TreeNode = treeListNavigationControl.FindNodeByActionItem(navItem)
+                AddHandler treeListNavigationControl.AfterExpand, AddressOf NavigationTreeList_AfterExpand
+                AddHandler treeListNavigationControl.NodeCellStyle, AddressOf NavigationTreeList_NodeCellStyle
+            End If
+        End If
+    End Sub
+    Private Sub NavigationTreeList_NodeCellStyle(ByVal sender As Object, ByVal e As GetCustomNodeCellStyleEventArgs)
+        If e.Node.GetDisplayText(e.Node.TreeList.Columns(0)).Contains(" [") Then
+            e.Appearance.Font = New Font(e.Appearance.Font, FontStyle.Bold)
+        End If
+    End Sub
+    Private Sub NavigationTreeList_AfterExpand(ByVal sender As Object, ByVal e As NodeEventArgs)
+        For Each node As TreeListNode In e.Node.Nodes
+            If node.Equals(_TreeNode) Then
+                Dim caption As String = _TreeNode.GetValue(_TreeNode.TreeList.Columns(0))
+                If caption.Contains(" [") Then
+                    caption = caption.Remove(caption.IndexOf(" ["))
+                End If
+                Dim count As Integer = CInt(_ObjectSpace.Session.Evaluate(_ListViewModel.ModelClass.TypeInfo.Type, New AggregateOperand("", Aggregate.Count), CriteriaOperator.Parse("Status<>4 and HRPerson.User.UserName=?", SecuritySystem.CurrentUserName)))
+                If count > 0 Then
+                    caption &= String.Format(" [{0}]", count)
+                End If
+                node.SetValue(_TreeNode.TreeList.Columns(0), caption)
+            End If
+        Next
+    End Sub
+
+
+End Class