Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinDock
Private Sub ultraDockManager1_InitializePane(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinDock.InitializePaneEventArgs) Handles ultraDockManager1.InitializePane
' InitializePane is fired when the pane is first deserialized or created.
'
' Initialize some values for panes created by the dockmanager
' as the user repositions panes
If (e.CreatedAutomatically) Then
If TypeOf e.Pane Is DockAreaPane Then
Dim dockArea As DockAreaPane = CType(e.Pane, DockAreaPane)
If (dockArea.DockedState = DockedState.Floating) Then
dockArea.GroupSettings.CaptionLocation = Infragistics.Win.UltraWinDock.Location.Left
dockArea.DefaultPaneSettings.ShowCaption = DefaultableBoolean.False
dockArea.Settings.ShowCaption = DefaultableBoolean.True
dockArea.Text = "Floating Window"
End If
End If
e.Pane.Settings.BorderStyleCaption = UIElementBorderStyle.Etched
End If
End Sub