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,42 @@
+Imports Microsoft.VisualBasic
+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.Editors
+Imports DevExpress.XtraGrid.Columns
+Imports DevExpress.Utils
+
+
+Public Class WinAllowSortListViewController
+    Inherits AllowSortListViewController
+    Protected Overrides Sub OnViewControlsCreated()
+        MyBase.OnViewControlsCreated()
+        UpdateAllowSort()
+    End Sub
+    Protected Overrides Sub UpdateAllowSort()
+        'Dim gridListEditor As GridListEditor = TryCast(View.Editor, GridListEditor)
+        'If gridListEditor IsNot Nothing Then
+        '    Dim allowSortListView As Boolean = GetAllowSortListView()
+        '    gridListEditor.GridView.OptionsCustomization.AllowSort = allowSortListView
+        '    If allowSortListView Then
+        '        For Each column As GridColumn In gridListEditor.GridView.Columns
+        '            Dim xafColumn As GridColumn = TryCast(column, GridColumn)
+        '            If xafColumn IsNot Nothing Then
+        '                If GetAllowSortColumn(xafColumn) Then
+        '                    xafColumn.OptionsColumn.AllowSort = DefaultBoolean.True
+        '                Else
+        '                    xafColumn.OptionsColumn.AllowSort = DefaultBoolean.False
+        '                End If
+
+        '            End If
+        '        Next column
+        '    End If
+        'End If
+    End Sub
+End Class
+