Option Strict On
Option Explicit On

Namespace Nexamas.UI.Rendering

    ''' <summary>
    ''' Describes which reusable visual subsystems participate in a surface visual style.
    ''' The type is declarative only; it does not draw and does not wrap any older API.
    ''' </summary>
    Friend NotInheritable Class MASSurfaceVisualStyleFeatures

        Friend Shared ReadOnly PlatformDialogFrame As New MASSurfaceVisualStyleFeatures(
            usesSurfaceMaterial:=True,
            usesSurfaceFrame:=True,
            usesSurfaceChrome:=True)

        Friend ReadOnly Property UsesSurfaceMaterial As Boolean
        Friend ReadOnly Property UsesSurfaceFrame As Boolean
        Friend ReadOnly Property UsesSurfaceChrome As Boolean

        Friend Sub New(usesSurfaceMaterial As Boolean,
                       usesSurfaceFrame As Boolean,
                       usesSurfaceChrome As Boolean)

            Me.UsesSurfaceMaterial = usesSurfaceMaterial
            Me.UsesSurfaceFrame = usesSurfaceFrame
            Me.UsesSurfaceChrome = usesSurfaceChrome
        End Sub

    End Class

End Namespace