43 lines
1.5 KiB
VB.net
43 lines
1.5 KiB
VB.net
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
|
|
|