65 lines
2.0 KiB
VB.net
65 lines
2.0 KiB
VB.net
Imports DevExpress.XtraGrid
|
|
Imports DevExpress.XtraGrid.Views.Grid
|
|
|
|
Public Class ClassGridControl
|
|
Public Shared Sub DefaultGridSettings(grid As GridControl)
|
|
For Each oView In grid.Views
|
|
If TypeOf oView Is GridView Then
|
|
DefaultGridViewSettings(oView)
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
Public Shared Sub ReadOnlyGridSettings(grid As GridControl)
|
|
For Each oView In grid.Views
|
|
If TypeOf oView Is GridView Then
|
|
ReadonlyGridViewSettings(oView)
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
Public Shared Sub CheckboxSelectGridSettings(grid As GridControl)
|
|
For Each oView In grid.Views
|
|
If TypeOf oView Is GridView Then
|
|
CheckboxSelectGridViewSettings(oView)
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Set a view to readonly
|
|
''' </summary>
|
|
Private Shared Sub ReadonlyGridViewSettings(ByRef View As GridView)
|
|
View.OptionsBehavior.Editable = False
|
|
View.OptionsBehavior.ReadOnly = True
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Set view Multiselect with checkboxes
|
|
''' </summary>
|
|
Private Shared Sub CheckboxSelectGridViewSettings(ByRef View As GridView)
|
|
View.OptionsSelection.MultiSelectMode = GridMultiSelectMode.CheckBoxRowSelect
|
|
View.OptionsSelection.MultiSelect = True
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Set default settings for view
|
|
''' </summary>
|
|
Private Shared Sub DefaultGridViewSettings(ByRef View As GridView)
|
|
View.OptionsView.ShowAutoFilterRow = True
|
|
|
|
' Color Settings
|
|
View.OptionsView.EnableAppearanceEvenRow = True
|
|
View.Appearance.EvenRow.BackColor = Color.Aquamarine
|
|
View.Appearance.FilterPanel.BackColor = Color.Orange
|
|
|
|
AddHandler View.RowStyle, AddressOf GridView_RowStyle
|
|
End Sub
|
|
|
|
Private Shared Sub GridView_RowStyle(sender As Object, e As RowStyleEventArgs)
|
|
If e.RowHandle = GridControl.AutoFilterRowHandle Then
|
|
e.Appearance.BackColor = Color.LightSalmon
|
|
End If
|
|
End Sub
|
|
End Class
|