First create solution

2017-03-08 11:21:27 +01:00
commit a2fb86bacf
5508 changed files with 1082238 additions and 0 deletions
@@ -0,0 +1,33 @@
+Imports DevExpress.ExpressApp.Web.Editors.ASPx
+Imports DevExpress.Web
+Imports DevExpress.Utils
+
+Public Class WebAllowSortListViewController
+    Inherits AllowSortListViewController
+    Protected Overrides Sub OnViewControlsCreated()
+        MyBase.OnViewControlsCreated()
+        UpdateAllowSort()
+    End Sub
+    Protected Overrides Sub UpdateAllowSort()
+        'Dim gridListEditor As ASPxGridListEditor = TryCast(View.Editor, ASPxGridListEditor)
+        'If gridListEditor IsNot Nothing Then
+        '    Dim allowSortListView As Boolean = GetAllowSortListView()
+        '    gridListEditor.Grid.SettingsBehavior.AllowSort = allowSortListView
+        '    If allowSortListView Then
+        '        For Each column As GridViewColumn In gridListEditor.Grid.Columns
+        '            Dim dataColumn As GridViewDataColumn = TryCast(column, GridViewDataColumn)
+        '            If dataColumn IsNot Nothing Then
+        '                If GetAllowSortColumn(dataColumn) Then
+        '                    dataColumn.Settings.AllowSort = DefaultBoolean.True
+        '                Else
+        '                    dataColumn.Settings.AllowSort = DefaultBoolean.False
+        '                End If
+
+        '            End If
+        '        Next column
+        '    End If
+        'End If
+    End Sub
+End Class
+
+