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,54 @@
+Imports Microsoft.VisualBasic
+Imports System
+Imports DevExpress.Data
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Model
+Imports DevExpress.ExpressApp.Web.Editors.ASPx
+Imports DevExpress.Web
+
+Public Class WebGroupFooterViewController
+    Inherits ViewController(Of ListView)
+    Public Sub New()
+        MyBase.New()
+
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+    Protected Overrides Sub OnViewControlsCreated()
+        MyBase.OnViewControlsCreated()
+        Dim displayFormat As String = ""
+        Dim modelListView As IModelListViewExtender = TryCast(View.Model, IModelListViewExtender)
+        If modelListView IsNot Nothing AndAlso modelListView.IsGroupFooterVisible Then
+            Dim gridListEditor As ASPxGridListEditor = TryCast(View.Editor, ASPxGridListEditor)
+            If gridListEditor IsNot Nothing Then
+                Dim gridView As ASPxGridView = gridListEditor.Grid
+                gridView.Settings.ShowGroupFooter = GridViewGroupFooterMode.VisibleAlways
+                For Each modelColumn As IModelColumn In View.Model.Columns
+                    Dim modelColumnExtender As IModelColumnExtender = TryCast(modelColumn, IModelColumnExtender)
+                    If modelColumnExtender IsNot Nothing AndAlso modelColumnExtender.GroupFooterSummaryType <> SummaryItemType.None Then
+                        Dim fieldName As String = modelColumn.ModelMember.MemberInfo.BindingName
+                        Dim summaryItem As ASPxSummaryItem = Nothing
+                        For Each currentItem As ASPxSummaryItem In gridView.GroupSummary
+                            If currentItem.FieldName = fieldName Then
+                                currentItem.ShowInGroupFooterColumn = modelColumn.Caption
+                                summaryItem = currentItem
+                                Exit For
+                            End If
+                        Next currentItem
+                        If summaryItem Is Nothing Then
+                            summaryItem = New ASPxSummaryItem(fieldName, modelColumnExtender.GroupFooterSummaryType)
+                            summaryItem.ShowInGroupFooterColumn = modelColumn.Caption
+                            summaryItem.DisplayFormat = modelColumn.DisplayFormat
+                            gridView.GroupSummary.Add(summaryItem)
+                        End If
+                    End If
+                Next modelColumn
+            End If
+        End If
+    End Sub
+End Class
+
+
+