Add TreeListDefaults, Rename GridListDefaults
This commit is contained in:
@@ -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
|
||||
29
EDMI_ClientSuite/ControlDefaults/TreeListDefaults.vb
Normal file
29
EDMI_ClientSuite/ControlDefaults/TreeListDefaults.vb
Normal 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
|
||||
Reference in New Issue
Block a user