AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Common: Add Support for TreeList in GridBuilder

Browse Source
This commit is contained in:
Jonathan Jenne 2021-05-19 13:17:41 +02:00
parent f3e7090a01
commit dd2ed7d6a0
1 changed files with 29 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
GUIs.Common/GridBuilder.vb
View File

@ -1,7 +1,10 @@
Imports DevExpress.XtraGrid Imports System.Drawing
Imports DevExpress.XtraGrid.Views.Grid Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraTreeList
Public Class GridBuilder Public Class GridBuilder
Private ReadOnly EvenRowBackColor = Color.Gainsboro
Public ReadOnly Property Views As New List(Of GridView) Public ReadOnly Property Views As New List(Of GridView)
Public Sub New(GridView As GridView) Public Sub New(GridView As GridView)
@ -26,9 +29,23 @@ Public Class GridBuilder
''' <summary> ''' <summary>
''' Applies common properties to the supplied GridView ''' Applies common properties to the supplied GridView
''' </summary> ''' </summary>
Public Function WithDefaults(GridView As GridView) Public Function WithDefaults(GridView As GridView) As GridBuilder
GridView.OptionsView.EnableAppearanceEvenRow = True GridView.OptionsView.EnableAppearanceEvenRow = True
GridView.OptionsView.ShowAutoFilterRow = True GridView.OptionsView.ShowAutoFilterRow = True
GridView.Appearance.EvenRow.BackColor = EvenRowBackColor
GridView.Appearance.EvenRow.Options.UseBackColor = True
Return Me
End Function
''' <summary>
''' Applies common properties to the supplied TreeList
''' </summary>
Public Function WithDefaults(TreeList As TreeList) As GridBuilder
TreeList.OptionsView.EnableAppearanceEvenRow = True
TreeList.OptionsView.ShowAutoFilterRow = True
TreeList.Appearance.EvenRow.BackColor = EvenRowBackColor
TreeList.Appearance.EvenRow.Options.UseBackColor = True
Return Me Return Me
End Function End Function
@ -53,4 +70,14 @@ Public Class GridBuilder
Return Me Return Me
End Function End Function
''' <summary>
''' Applies read-only properties to the supplied TreeList
''' </summary>
Public Function WithReadOnlyOptions(TreeList As TreeList) As GridBuilder
TreeList.OptionsBehavior.Editable = False
TreeList.OptionsBehavior.ReadOnly = True
Return Me
End Function
End Class End Class