Option Strict On
Option Explicit On

Imports SkiaSharp

Namespace Nexamas.UI.Rendering

    ''' <summary>
    ''' Resolved immutable chrome plan for a titled surface header.
    ''' The plan contains colors only; component-specific layout, title text, icon kind,
    ''' and close-button behavior remain owned by the consuming component shell.
    ''' </summary>
    Friend Structure MASSurfaceHeaderChromePlan
        Friend ReadOnly HeaderTop As SKColor
        Friend ReadOnly HeaderMid As SKColor
        Friend ReadOnly HeaderBottom As SKColor
        Friend ReadOnly HeaderSheen As SKColor
        Friend ReadOnly HeaderSeparator As SKColor
        Friend ReadOnly TextTitle As SKColor
        Friend ReadOnly TextSubtitle As SKColor
        Friend ReadOnly TextIcon As SKColor
        Friend ReadOnly TextAccent As SKColor
        Friend ReadOnly ShadowBase As SKColor
        Friend ReadOnly ShadowAmbient As SKColor
        Friend ReadOnly ShadowContact As SKColor
        Friend ReadOnly DividerLight As SKColor
        Friend ReadOnly DividerDark As SKColor
        Friend ReadOnly Glow As SKColor

        Friend Sub New(headerTop As SKColor,
                       headerMid As SKColor,
                       headerBottom As SKColor,
                       headerSheen As SKColor,
                       headerSeparator As SKColor,
                       textTitle As SKColor,
                       textSubtitle As SKColor,
                       textIcon As SKColor,
                       textAccent As SKColor,
                       shadowBase As SKColor,
                       shadowAmbient As SKColor,
                       shadowContact As SKColor,
                       dividerLight As SKColor,
                       dividerDark As SKColor,
                       glow As SKColor)

            Me.HeaderTop = headerTop
            Me.HeaderMid = headerMid
            Me.HeaderBottom = headerBottom
            Me.HeaderSheen = headerSheen
            Me.HeaderSeparator = headerSeparator
            Me.TextTitle = textTitle
            Me.TextSubtitle = textSubtitle
            Me.TextIcon = textIcon
            Me.TextAccent = textAccent
            Me.ShadowBase = shadowBase
            Me.ShadowAmbient = shadowAmbient
            Me.ShadowContact = shadowContact
            Me.DividerLight = dividerLight
            Me.DividerDark = dividerDark
            Me.Glow = glow
        End Sub
    End Structure

End Namespace