CaptionButtonAlignment Property

Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinDock

Private Sub btnInitializeManager_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInitializeManager.Click

    ' SupportThemes determines if the component will make use of
    ' the windows themes when the system themes are available and
    ' enabled. we will disable them to allow custom appearances
    ' to be set. if true, the system themed captions, buttons, etc
    ' will be used to render the component
    Me.ultraDockManager1.SupportThemes = False

    ' Allowdrop only works in a single threaded apartment
    ' when enabled, unpinned control panes will flyout when
    ' dragging (see System.Windows.Forms.Control.DoDragDrop for
    ' more on drag drop in .net) over the tabs of the unpinned
    ' panes and will also switch the tabs of docked and floating
    ' tab groups.
    Me.ultraDockManager1.AllowDrop = True

    ' Allow flyout animations - if disabled, the flyout window
    ' will not appear to slide out but will simply be positioned
    ' with the appropriate flyout size
    Me.ultraDockManager1.AnimationEnabled = True

    ' Add an appearance to the components appearances collection
    ' the appearance will be saved in any created layouts and
    ' may be shared by the various appearance properties
    Dim tabAreaAppearance As Infragistics.Win.Appearance = Me.ultraDockManager1.Appearances.Add("unpinnedTabArea")
    tabAreaAppearance.BackColor = SystemColors.InactiveCaption
    tabAreaAppearance.BorderColor = SystemColors.InactiveBorder

    ' Initialize the unpinned tab area appearance to use this appearance
    ' object we just created
    Me.ultraDockManager1.UnpinnedTabAreaAppearance = tabAreaAppearance

    ' Alter the appearance for the unpinned tab area - this is the 
    ' area around the edge of the hosting control (form or usercontrol) 
    ' that contains the tabs representing the unpinned control panes
    Me.ultraDockManager1.BorderStyleUnpinnedTabArea = UIElementBorderStyle.Etched

    ' Set the position for the caption buttons
    Me.ultraDockManager1.CaptionButtonAlignment = CaptionButtonAlignment.Near

    ' Soft popup when active
    Me.ultraDockManager1.CaptionButtonStyle = UIElementButtonStyle.PopupSoftBorderless

    ' Use VS style captions - this will affect the general appearance
    ' and colors of the captions as well as the images used for the 
    ' button images
    Me.ultraDockManager1.CaptionStyle = CaptionStyle.VSNet

    ' Use layered windows instead of a drag outline - layered windows
    ' makes use of the Opacity of the form which internally relies upon
    ' the LayeredWindow api's and therefore is only supported under
    ' windows 2000. if layered windows are not supported by the os on
    ' which the app is running, the drag outline will be rendered instead
    Me.ultraDockManager1.DragWindowStyle = DragWindowStyle.LayeredWindow

    ' The layered window should be red with a 30% opacity
    Me.ultraDockManager1.DragWindowColor = Color.Red
    Me.ultraDockManager1.DragWindowOpacity = 0.3D

    ' Set the imagelist that will be used by the component. the imagelist
    ' is used to access images when an appearance's 'Image' property is
    ' set to an integer and is assumed to be the index of the image
    ' in the associated imagelist
    Me.ultraDockManager1.ImageList = Me.imageList1

    ' We want to make sure that floating windows are currently displayed.
    ' this can be set to false to hide the floating windows without hiding
    ' all of the docked manager's panes. to hide all the panes, use the 
    ' 'Visible' property of the component.
    Me.ultraDockManager1.ShowFloatingWindows = True

    ' Prevent the dock manager from showing tooltips. by default, tooltips
    ' are displayed when the text for a tab or caption is not large enough
    ' to display the text.
    Me.ultraDockManager1.ShowToolTips = False

    ' Make the splitter bars appear a little different from the 
    ' default control color used for the panes so they are more
    ' noticable
    Me.ultraDockManager1.SplitterBarAppearance.BackColor = SystemColors.ControlLightLight

    ' Initialize the border style used for the caption area
    Me.ultraDockManager1.DefaultPaneSettings.BorderStyleCaption = UIElementBorderStyle.Solid

    ' The default width for a fixed width tab will be 75 pixels. this 
    ' will only affect the width of tabs' whose GroupSettingsResolved.TabSizing
    ' is set to 'TabSizing.Fixed'.
    Me.ultraDockManager1.DefaultPaneSettings.TabWidth = 75

End Sub