Appearance Property (PaneSettings)

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

Private Sub InitializeManagerPaneSettings()

    ' If the default pane settings have been initialized, reset them
    If (Me.ultraDockManager1.HasDefaultPaneSettings) Then
        Me.ultraDockManager1.DefaultPaneSettings.Reset()
    End If

    ' The 'DefaultPaneSettings' is the default value used when resolving
    ' the 'Settings' properties for DockablePaneBase instances 
    ' (i.e. all panes). by/ initializing them here, we are setting the 
    ' ultimate default values for these properties but they can still be 
    ' overriden for items in a particular group by changing the group
    ' pane's 'DefaultPaneSettings' or for a specific pane by changing
    ' the pane's 'Settings' property.
    Me.InitializePaneSettings(Me.ultraDockManager1.DefaultPaneSettings)

End Sub

Private Sub InitializePaneSettings(ByVal settings As PaneSettings)

    ' Active appearances affect the associated pane elements when
    ' the pane is the active pane - that is, the control contained
    ' by the control pane has focus. it also affects the groups
    ' containing the active pane. to determine which pane is active,
    ' use the DockManager's 'ActivePane' property
    '

    ' Match the active caption appearance to the system colors
    ' this appearance will only affect the caption area for the
    ' active pane. in this example, we're changing the forecolor
    ' of the caption buttons by changing the forecolor appearance
    settings.ActiveCaptionAppearance.BackColor = SystemColors.ActiveCaption
    settings.ActiveCaptionAppearance.ForeColor = SystemColors.ActiveCaptionText
    settings.ActiveCaptionAppearance.TextHAlign = HAlign.Center
    settings.ActiveCaptionAppearance.BackHatchStyle = BackHatchStyle.None

    ' The PaneAppearances (ActivePaneAppearance, PaneAppearance) affect
    ' the area where the control is sited so in most cases, will be covered
    ' by the contained control but for controls that alter their own size
    ' (e.g. autosized textbox, etc) part of the background of the pane will 
    ' be visible. this area is affected by the 2 mentioned appearances
    settings.ActivePaneAppearance.BackColor = Color.Aqua

    ' The following affect the appearance of the respective item when the
    ' associated pane is the active pane. to determine which is the active
    ' pane, you can use the dock manager's 'ActivePane' property
    settings.ActiveSlidingGroupAppearance.BackColor = Color.Chartreuse
    settings.ActiveTabAppearance.ForeColor = SystemColors.HotTrack
    settings.ActiveTabAppearance.BackColor = Color.Chartreuse


    ' The 'HotTracking' appearances properties affect how the respective areas
    ' appear when the mouse is over the associate element
    '

    ' This will affect how the caption area appears when the mouse is moved
    ' over the caption area
    settings.HotTrackingCaptionAppearance.ForeColor = Color.Red

    ' The following does the same but for the sliding group buttons in a 
    ' 'SlidingGroup' style group pane
    settings.HotTrackingSlidingGroupAppearance.ForeColor = Color.Red

    ' The following affects the appearance of the tab under the mouse
    settings.HotTrackingTabAppearance.ForeColor = Color.Red

    ' The following appearance properties are the default properties
    ' for the respective items when they are not active and the mouse
    ' is not over the item

    ' PaneAppearance is the default appearance for the pane content area 
    ' (the area containing a control or other panes),
    settings.PaneAppearance.BackColor = Color.Transparent

    ' SlidingGroupAppearance is the default appearance for a sliding group 
    ' button
    settings.SlidingGroupAppearance.Cursor = Cursors.Hand

    ' TabAppearance is the default appearance for tabs - both those
    ' displayed for items grouped together in a 'TabGroup' style 
    ' DockableGroupPane and for the tab used to represent an unpinned
    ' DockableControlPane in the UnpinnedTabArea
    settings.TabAppearance.BackColor = Color.Blue
    settings.TabAppearance.BackColor2 = Color.Cyan
    settings.TabAppearance.BackGradientStyle = GradientStyle.Horizontal
    settings.TabAppearance.Image = Bitmap.FromHicon(SystemIcons.Question.Handle)

    ' The 'CaptionAppearance' affects the appearance of all panes but
    ' can be overriden for the active control by changing the
    ' 'ActiveCaptionAppearance' property.
    settings.CaptionAppearance.BackColor = SystemColors.ActiveCaption
    settings.CaptionAppearance.BackColor2 = SystemColors.InactiveCaption
    settings.CaptionAppearance.BackHatchStyle = BackHatchStyle.Percent10
    settings.CaptionAppearance.ForeColor = SystemColors.InactiveCaptionText


    ' The 'Appearance' property is the default appearance for the caption,
    ' tab, sliding group and pane area. Setting properties on the
    ' 'Appearance' property will affect all those areas unless overriden
    ' at a lower level - i.e. via one of the other appearance properties
    ' listed above
    settings.Appearance.BorderColor3DBase = SystemColors.Control

End Sub