Add TreeListDefaults, Rename GridListDefaults

This commit is contained in:
Jonathan Jenne
2019-03-06 15:23:23 +01:00
parent 4447844b9f
commit 6de1c6f630
9 changed files with 96 additions and 56 deletions

View File

@@ -1,7 +1,7 @@
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Grid
Public Class ClassGridControl
Public Class GridControlDefaults
Public Shared Sub DefaultGridSettings(grid As GridControl, Container As Control)
For Each oView In grid.Views
If TypeOf oView Is GridView Then

View File

@@ -0,0 +1,29 @@
Imports DevExpress.XtraTreeList
Public Class TreeListDefaults
Public Shared Sub DefaultTreeListSettings(TreeList As TreeList, Container As Control)
With TreeList.OptionsView
.FocusRectStyle = DrawFocusRectStyle.None
.ShowColumns = False
.ShowHorzLines = False
.ShowIndentAsRowStyle = True
.ShowIndicator = False
.ShowVertLines = False
End With
With TreeList.OptionsSelection
.EnableAppearanceFocusedCell = False
End With
With TreeList.Appearance.Empty
.BackColor = Color.Transparent
.Options.UseBackColor = True
End With
With TreeList.Appearance.Row
.BackColor = Color.Transparent
.Options.UseBackColor = True
End With
End Sub
End Class