Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinDock
Private Sub InitializeManagerGroupSettings()
' If the default group settings have been initialize, reset them
If (Me.ultraDockManager1.HasDefaultGroupSettings) Then
Me.ultraDockManager1.DefaultGroupSettings.Reset()
End If
' The 'DefaultGroupSettings' is the default value used when resolving
' the 'GroupSettings' properties for DockableGroupPane instances. by
' initializing them here, we are setting the ultimate default values
' for these properties but they can still be overriden on the group
' panes
Me.InitializeGroupSettings(Me.ultraDockManager1.DefaultGroupSettings)
End Sub
Private Sub InitializeGroupSettings(ByVal settings As GroupSettings)
' Display the pane captions on the left side of the pane
settings.CaptionLocation = Infragistics.Win.UltraWinDock.Location.Left
' Use a single pixel border on the sliding group buttons
' when the mouse moves over them
settings.SlidingGroupButtonStyle = UIElementButtonStyle.ButtonSoft
' The buttons should be displayed horizontally - this only
' affects the sliding group buttons in a group pane whose ChildPaneStyle
' is SlidingGroup
settings.SlidingGroupOrientation = DefaultableOrientation.Horizontal
' Initialize the backcolor for the area behind the tabs in a tabgroup
settings.TabAreaAppearance.BackColor = Color.AntiqueWhite
' Since the caption will be positioned to the left by default,
' we'll position the tabs to the right.
settings.TabLocation = Infragistics.Win.UltraWinDock.Location.Right
' Display the image and text for the active tab but only the
' image for the other tabs
settings.TabSizing = Infragistics.Win.UltraWinTabs.TabSizing.Compressed
' Display visual studio style tabs
settings.TabStyle = Infragistics.Win.UltraWinTabs.TabStyle.VisualStudio
End Sub