move clientsuite to GUIs.ClientSuite folder
This commit is contained in:
29
GUIs.ClientSuite/ControlDefaults/TreeListDefaults.vb
Normal file
29
GUIs.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