39 lines
1.2 KiB
VB.net
39 lines
1.2 KiB
VB.net
Imports DevExpress.XtraGrid
|
|
Imports DevExpress.XtraGrid.Views.Grid
|
|
|
|
Public Class ClassUIUtils
|
|
|
|
Public Shared Function ConfigureGridVieDefaults(View As GridView)
|
|
View.OptionsView.ShowAutoFilterRow = True
|
|
View.OptionsView.EnableAppearanceEvenRow = True
|
|
|
|
With View.Appearance
|
|
.EvenRow.BackColor = Color.Aquamarine
|
|
.FilterPanel.BackColor = Color.Orange
|
|
End With
|
|
|
|
Return View
|
|
End Function
|
|
|
|
Public Shared Function ConfigureGridViewReadOnly(View As GridView)
|
|
View.OptionsBehavior.Editable = False
|
|
View.OptionsBehavior.ReadOnly = True
|
|
Return View
|
|
End Function
|
|
|
|
Public Shared Function ConfigureGridControlDefaults(Grid As GridControl, Optional [ReadOnly] As Boolean = False) As GridControl
|
|
For Each oView In Grid.Views
|
|
Select Case oView.GetType
|
|
Case GetType(GridView)
|
|
oView = ConfigureGridVieDefaults(oView)
|
|
|
|
If [ReadOnly] Then
|
|
oView = ConfigureGridViewReadOnly(oView)
|
|
End If
|
|
End Select
|
|
Next
|
|
|
|
Return Grid
|
|
End Function
|
|
End Class
|