bug-80752.vb

大名鼎鼎的mono是.NET平台的跨平台（支持linux

        Private _headerHeight As Integer
        Private _headerTextColor As Color
        Private _headerTextFont As Font
        Private _leftHeaderColor As Color
        Private _rightHeaderColor As Color
        Private _topBodyColor As Color
        Private _bottomBodyColor As Color

#Region "public properties"
        Public Property HeaderHeight() As Integer
            Get
                Return _headerHeight
            End Get
            Set(ByVal Value As Integer)
                _headerHeight = Value
                Me.OnPropertyChanged(New PropertyChangedEventArgs("HeaderHeight"))
            End Set
        End Property

        Public Property HeaderTextColor() As Color
            Get
                Return _headerTextColor
            End Get
            Set(ByVal Value As Color)
                _headerTextColor = Value
                Me.OnPropertyChanged(New PropertyChangedEventArgs("HeaderTextColor"))
            End Set
        End Property

        Public Property HeaderTextFont() As Font
            Get
                Return _headerTextFont
            End Get
            Set(ByVal Value As Font)
                _headerTextFont = Value
                Me.OnPropertyChanged(New PropertyChangedEventArgs("HeaderTextFont"))
            End Set
        End Property

        Public Property LeftHeaderColor() As Color
            Get
                Return _leftHeaderColor
            End Get
            Set(ByVal Value As Color)
                _leftHeaderColor = Value
                Me.OnPropertyChanged(New PropertyChangedEventArgs("LeftHeaderColor"))
            End Set
        End Property

        Public Property RightHeaderColor() As Color
            Get
                Return _rightHeaderColor
            End Get
            Set(ByVal Value As Color)
                _rightHeaderColor = Value
                Me.OnPropertyChanged(New PropertyChangedEventArgs("RightHeaderColor"))
            End Set
        End Property

        Public Property TopBodyColor() As Color
            Get
                Return _topBodyColor
            End Get
            Set(ByVal Value As Color)
                _topBodyColor = Value
                Me.OnPropertyChanged(New PropertyChangedEventArgs("TopBodyColor"))
            End Set
        End Property

        Public Property BottomBodyColor() As Color
            Get
                Return _bottomBodyColor
            End Get
            Set(ByVal Value As Color)
                _bottomBodyColor = Value
                Me.OnPropertyChanged(New PropertyChangedEventArgs("BottomBodyColor"))
            End Set
        End Property
#End Region

#Region "constructors"
        Public Sub New()

        End Sub

        Public Sub New(ByVal lHdrCol As Color, _
            ByVal rHdrCol As Color, _
            ByVal topBodyCol As Color, _
            ByVal bottomBodyCol As Color, _
            ByVal hdrTxtCol As Color, _
            ByVal hdrTxtFnt As Font, _
            ByVal hdrHeight As Integer)

            _leftHeaderColor = lHdrCol
            _rightHeaderColor = rHdrCol
            _topBodyColor = topBodyCol
            _bottomBodyColor = bottomBodyCol
            _headerTextColor = hdrTxtCol
            _headerTextFont = hdrTxtFnt
            _headerHeight = hdrHeight
        End Sub
#End Region

        Overrides Function ToString() As String
            Return "SoftBarrierFormat"
        End Function
    End Class

    ''' -----------------------------------------------------------------------------
    ''' Project	 : XPCommonControls
    ''' Class	 : Windows.Forms.LetterBoxFormat
    ''' 
    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' this class holds all format information for the letterbox format
    ''' </summary>
    ''' <remarks>
    ''' </remarks>
    ''' <history>
    ''' 	[Mike]	18.08.2004	Created
    ''' </history>
    ''' ''' -----------------------------------------------------------------------------
    <Serializable()> Public Class LetterBoxFormat
        Inherits ThemeFormatBase

        Private _headerTextColor As Color
        Private _headerTextFont As Font
        Private _headerColor As Color
        Private _footerColor As Color
        Private _topBodyColor As Color
        Private _bottomBodyColor As Color

#Region "public properties"
        Public Property HeaderTextColor() As Color
            Get
                Return _headerTextColor
            End Get
            Set(ByVal Value As Color)
                _headerTextColor = Value
                Me.OnPropertyChanged(New PropertyChangedEventArgs("HeaderTextColor"))
            End Set
        End Property

        Public Property HeaderTextFont() As Font
            Get
                Return _headerTextFont
            End Get
            Set(ByVal Value As Font)
                _headerTextFont = Value
                Me.OnPropertyChanged(New PropertyChangedEventArgs("HeaderTextFont"))
            End Set
        End Property

        Public Property HeaderColor() As Color
            Get
                Return _headerColor
            End Get
            Set(ByVal Value As Color)
                _headerColor = Value
                Me.OnPropertyChanged(New PropertyChangedEventArgs("HeaderColor"))
            End Set
        End Property

        Public Property FooterColor() As Color
            Get
                Return _footerColor
            End Get
            Set(ByVal Value As Color)
                _footerColor = Value
                Me.OnPropertyChanged(New PropertyChangedEventArgs("FooterColor"))
            End Set
        End Property

        Public Property TopBodyColor() As Color
            Get
                Return _topBodyColor
            End Get
            Set(ByVal Value As Color)
                _topBodyColor = Value
                Me.OnPropertyChanged(New PropertyChangedEventArgs("TopBodyColor"))
            End Set
        End Property

        Public Property BottomBodyColor() As Color
            Get
                Return _bottomBodyColor
            End Get
            Set(ByVal Value As Color)
                _bottomBodyColor = Value
                Me.OnPropertyChanged(New PropertyChangedEventArgs("BottomBodyColor"))
            End Set
        End Property
#End Region

#Region "constructors"
        Public Sub New()

        End Sub

        Public Sub New(ByVal hdrCol As Color, _
            ByVal ftrCol As Color, _
            ByVal topBodyCol As Color, _
            ByVal bottomBodyCol As Color, _
            ByVal hdrTxtCol As Color, _
            ByVal hdrTxtFnt As Font)

            _headerTextColor = hdrTxtCol
            _headerTextFont = hdrTxtFnt
            _headerColor = hdrCol
            _footerColor = ftrCol
            _topBodyColor = topBodyCol
            _bottomBodyColor = bottomBodyCol
        End Sub
#End Region

        Overrides Function ToString() As String
            Return "LetterBoxFormat"
        End Function
    End Class
End Namespace

Namespace ThemedControls
    ''' -----------------------------------------------------------------------------
    ''' Project	 : XPCommonControls
    ''' Interface	 : XPCommonControls.IThemed
    ''' 
    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Interface to apply theme to "themeable" controls
    ''' </summary>
    ''' <remarks>
    ''' any control that should be automatically themed by the theme listener
    ''' must implement this interface
    ''' </remarks>
    ''' <history>
    ''' 	[Mike]	14.03.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Interface IThemed
        Property Theme() As ThemeStyle
    End Interface
End Namespace


Namespace ThemedControls
    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' the available theme styles in windows XP
    ''' </summary>
    ''' <remarks>
    ''' if a new theme is added, the theming must be changed...
    ''' </remarks>
    ''' <history>
    ''' 	[Mike]	14.03.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Enum ThemeStyle
        NormalColor
        HomeStead
        Metallic
        Unthemed
    End Enum

    'this class themes the controls manually!
    'no need for UxTheme or WinXP

    ''' -----------------------------------------------------------------------------
    ''' Project	 : XPCommonControls
    ''' Class	 : XPCommonControls.Theming
    ''' 
    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Theme definition for manually setting theme colors, fonts, ...
    ''' </summary>
    ''' <remarks>
    ''' this class themes the controls manually! There is no need for UxTheme or WinXP.
    ''' The good side: you do not need WinXP to get the themed look.
    ''' The down side: if a new theme is added to WinXP it has to be hardcoded here.
    ''' </remarks>
    ''' <history>
    ''' 	[Mike]	14.03.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Class Theming

        Public Shared Function GetTaskBoxThemeGeneric(ByVal theme As ThemeStyle) As TaskBoxFormat
            Dim fmt As New TaskBoxFormat
            Dim path As String = [Enum].GetName(GetType(ThemeStyle), theme) & "_Generic_"

            Select Case theme
                Case ThemeStyle.NormalColor
                    fmt = New TaskBoxFormat( _
                        Color.White, _
                        Color.FromArgb(197, 210, 240), _
                        Color.FromArgb(197, 210, 240), _
                        Color.White, _
                        Color.FromArgb(33, 93, 198), _
                        Color.FromArgb(66, 142, 255), _
                        Color.FromArgb(33, 93, 198), _
                        New Font("Tahoma", 8, FontStyle.Bold), _
                        New Font("Tahoma", 8, FontStyle.Regular), _
                        New Bitmap(GetType(Theming), path & "up.png"), _
                        New Bitmap(GetType(Theming), path & "up_over.png"), _
                        New Bitmap(GetType(Theming), path & "down.png"), _
                        New Bitmap(GetType(Theming), path & "down_over.png"))
                Case ThemeStyle.HomeStead
                    fmt = New TaskBoxFormat( _
                        Color.FromArgb(255, 252, 236), _
                        Color.FromArgb(224, 231, 187), _
                        Color.FromArgb(246, 246, 236), _
                        Color.White, _
                        Color.FromArgb(86, 102, 45), _
                        Color.FromArgb(114, 146, 29), _
                        Color.FromArgb(150, 168, 103), _
                        New Font("Tahoma", 8, FontStyle.Bold), _
                        New Font("Tahoma", 8, FontStyle.Regular), _
                        New Bitmap(GetType(Theming), path & "up.png"), _
                        New Bitmap(GetType(Theming), path & "up_over.png"), _
                        New Bitmap(GetType(Theming), path & "down.png"), _
                        New Bitmap(GetType(Theming), path & "down_over.png"))
                Case ThemeStyle.Metallic
                    fmt = New TaskBoxFormat( _
                        Color.White, _
                        Color.FromArgb(216, 217, 226), _
                        Color.FromArgb(240, 241, 245), _
                        Color.White, _
                        Color.FromArgb(63, 61, 61), _
                        Color.FromArgb(126, 124, 124), _
                        Color.FromArgb(104, 104, 127), _
                        New Font("Tahoma", 8, FontStyle.Bold), _
                        New Font("Tahoma", 8, FontStyle.Regular), _
                        New Bitmap(GetType(Theming), path & "up.png"), _