bug-80752.vb

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

                        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.Unthemed
                    fmt = New TaskBoxFormat( _
                        SystemColors.InactiveCaption, _
                        SystemColors.InactiveCaption, _
                        SystemColors.ControlLightLight, _
                        Color.White, _
                        SystemColors.InactiveCaptionText, _
                        SystemColors.ActiveCaptionText, _
                        SystemColors.WindowText, _
                        SystemInformation.MenuFont, _
                        SystemInformation.MenuFont, _
                        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"))
            End Select

            Return fmt
        End Function

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

            Select Case theme
                Case ThemeStyle.NormalColor

                    fmt = New TaskBoxFormat( _
                        Color.FromArgb(1, 72, 178), _
                        Color.FromArgb(40, 91, 197), _
                        Color.FromArgb(239, 243, 255), _
                        Color.White, _
                        Color.White, _
                        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(122, 142, 67), _
                        Color.FromArgb(150, 168, 103), _
                        Color.FromArgb(246, 246, 236), _
                        Color.White, _
                        Color.White, _
                        Color.FromArgb(224, 231, 184), _
                        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.FromArgb(119, 119, 146), _
                        Color.FromArgb(179, 181, 199), _
                        Color.FromArgb(240, 241, 245), _
                        Color.White, _
                        Color.White, _
                        Color.FromArgb(230, 230, 230), _
                        Color.FromArgb(104, 104, 127), _
                        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.Unthemed
                    fmt = New TaskBoxFormat( _
                        SystemColors.ActiveCaption, _
                        SystemColors.ActiveCaption, _
                        SystemColors.ControlLightLight, _
                        Color.White, _
                        SystemColors.InactiveCaptionText, _
                        SystemColors.ActiveCaptionText, _
                        SystemColors.WindowText, _
                        SystemInformation.MenuFont, _
                        SystemInformation.MenuFont, _
                        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"))
            End Select

            Return fmt
        End Function

        Public Shared Function GetTaskPanelTheme(ByVal theme As ThemeStyle) As TaskPanelFormat
            Dim fmt As New TaskPanelFormat

            Select Case theme
                Case ThemeStyle.NormalColor
                    fmt = New TaskPanelFormat(Color.FromArgb(82, 130, 210), Color.FromArgb(40, 91, 197))
                Case ThemeStyle.HomeStead
                    fmt = New TaskPanelFormat(Color.FromArgb(203, 216, 172), Color.FromArgb(165, 189, 132))
                Case ThemeStyle.Metallic
                    fmt = New TaskPanelFormat(Color.FromArgb(195, 199, 211), Color.FromArgb(177, 179, 200))
                Case ThemeStyle.Unthemed
                    fmt = New TaskPanelFormat(SystemColors.ControlLight, SystemColors.ControlLight)

            End Select
            Return fmt
        End Function

        Public Shared Function GetSoftBarrierTheme(ByVal theme As ThemeStyle) As SoftBarrierFormat
            Dim fmt As New SoftBarrierFormat

            Select Case theme
                Case ThemeStyle.NormalColor
                    fmt = New SoftBarrierFormat(Color.FromArgb(0, 51, 153), _
                        Color.FromArgb(40, 91, 197), _
                        Color.FromArgb(85, 130, 210), _
                        Color.FromArgb(90, 126, 220), _
                        Color.FromArgb(214, 223, 245), _
                        New Font("Franklin Gothic Medium", 14, FontStyle.Bold), _
                        48)
                Case ThemeStyle.HomeStead
                    fmt = New SoftBarrierFormat(Color.FromArgb(150, 168, 103), _
                        Color.FromArgb(164, 168, 103), _
                        Color.FromArgb(165, 189, 132), _
                        Color.FromArgb(165, 189, 132), _
                        Color.FromArgb(224, 231, 184), _
                        New Font("Franklin Gothic Medium", 14, FontStyle.Bold), _
                        48)
                Case ThemeStyle.Metallic
                    fmt = New SoftBarrierFormat(Color.FromArgb(119, 119, 146), _
                        Color.FromArgb(176, 178, 199), _
                        Color.FromArgb(177, 179, 200), _
                        Color.FromArgb(177, 179, 200), _
                        Color.White, _
                        New Font("Franklin Gothic Medium", 14, FontStyle.Bold), _
                        48)
                Case ThemeStyle.Unthemed
                    fmt = New SoftBarrierFormat(SystemColors.ActiveCaption, _
                        SystemColors.InactiveCaption, _
                        SystemColors.ControlLight, _
                        SystemColors.ControlLightLight, _
                        SystemColors.ActiveCaptionText, _
                        New Font("Franklin Gothic Medium", 14, FontStyle.Bold), _
                        48)
            End Select

            Return fmt
        End Function

        Public Shared Function GetLetterboxTheme(ByVal theme As ThemeStyle) As LetterBoxFormat
            Dim fmt As New LetterBoxFormat

            Select Case theme
                Case ThemeStyle.NormalColor
                    fmt = New LetterBoxFormat( _
                        Color.FromArgb(0, 51, 153), _
                        Color.FromArgb(0, 51, 153), _
                        Color.FromArgb(85, 130, 210), _
                        Color.FromArgb(90, 126, 220), _
                        Color.FromArgb(214, 223, 245), _
                        New Font("Franklin Gothic Medium", 14, FontStyle.Bold))
                Case ThemeStyle.HomeStead
                    fmt = New LetterBoxFormat( _
                        Color.FromArgb(150, 168, 103), _
                        Color.FromArgb(150, 168, 103), _
                        Color.FromArgb(165, 189, 132), _
                        Color.FromArgb(165, 189, 132), _
                        Color.FromArgb(224, 231, 184), _
                        New Font("Franklin Gothic Medium", 14, FontStyle.Bold))
                Case ThemeStyle.Metallic
                    fmt = New LetterBoxFormat( _
                        Color.FromArgb(119, 119, 146), _
                        Color.FromArgb(119, 119, 146), _
                        Color.FromArgb(177, 179, 200), _
                        Color.FromArgb(177, 179, 200), _
                        Color.White, _
                        New Font("Franklin Gothic Medium", 14, FontStyle.Bold))
                Case ThemeStyle.Unthemed
                    fmt = New LetterBoxFormat( _
                        SystemColors.ActiveCaption, _
                        SystemColors.ActiveCaption, _
                        SystemColors.InactiveCaption, _
                        SystemColors.InactiveCaption, _
                        Color.White, _
                        New Font("Franklin Gothic Medium", 14, FontStyle.Bold))
            End Select

            Return fmt
        End Function

    End Class
End Namespace



Namespace ThemedControls

    ''' -----------------------------------------------------------------------------
    ''' Project	 : XPCommonControls
    ''' Class	 : XPCommonControls.XPTaskPanel
    ''' 
    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' hosts the taskbox(es)
    ''' </summary>
    ''' <remarks>
    ''' the control is painted with the specified themeing and hosts any taskbox or
    ''' any other control
    ''' </remarks>
    ''' <history>
    ''' 	[Mike]	14.03.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Class XPTaskPanel
        Inherits System.Windows.Forms.Panel
        Implements IThemed

        Private mTheme As ThemeStyle = ThemeStyle.NormalColor
        Private mThemeFormat As TaskPanelFormat = Theming.GetTaskPanelTheme(mTheme)

#Region " Vom Windows Form Designer generierter Code "

        Public Sub New()
            MyBase.New()

            ' Dieser Aufruf ist f黵 den Windows Form-Designer erforderlich.
            InitializeComponent()

            ' Initialisierungen nach dem Aufruf InitializeComponent() hinzuf黦en
            SetStyle(ControlStyles.ResizeRedraw, True)
            SetStyle(ControlStyles.AllPaintingInWmPaint, True)
            SetStyle(ControlStyles.UserPaint, True)
            SetStyle(ControlStyles.DoubleBuffer, True)
            SetStyle(ControlStyles.SupportsTransparentBackColor, True)
            SetStyle(ControlStyles.ContainerControl, True)

            MyBase.BackColor = Color.Transparent
        End Sub

        'UserControl 黚erschreibt den L鰏chvorgang zum Bereinigen der Komponentenliste.
        Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
            If disposing Then
                If Not (components Is Nothing) Then
                    components.Dispose()
                End If
            End If
            MyBase.Dispose(disposing)
        End Sub

        ' F黵 Windows Form-Designer erforderlich
        Private components As System.ComponentModel.IContainer

        'HINWEIS: Die folgende Prozedur ist f黵 den Windows Form-Designer erforderlich
        'Sie kann mit dem Windows Form-Designer modifiziert werden.
        'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
            '
            'TaskPanel
            '
            Me.AutoScroll = True
            Me.DockPadding.Bottom = 8
            Me.DockPadding.Left = 8
            Me.DockPadding.Right = 8

        End Sub

#End Region

#Region "public properties"
        <Description("Sets the theming of the control"), _
         Category("Appearance"), _
         Browsable(True), _
         DefaultValue(GetType(ThemeStyle), "NormalColor")> _
        Public Property Theme() As ThemeStyle Implements IThemed.Theme
            Get
                Return mTheme
            End Get
            Set(ByVal value As ThemeStyle)
                mTheme = value
                mThemeFormat = Theming.GetTaskPanelTheme(mTheme)
                Me.Invalidate()
            End Set
        End Property

        ''' -----------------------------------------------------------------------------
        ''' <summary>
        ''' The Theming Info of this control
        ''' </summary>
        ''' <value></value>
        ''' <remarks>
        ''' </remarks>
        ''' <history>
        ''' 	[Mike]	18.08.2004	Created
        ''' </history>
        ''' -----------------------------------------------------------------------------
        <Description("The Theming Info of this control"), _
         Category("Appearance"), _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Content), _
         TypeConverter(GetType(ExpandableObjectConverter))> _
        Public Property ThemeFormat() As TaskPanelFormat
            Get
                Return mThemeFormat
            End Get
            Set(ByVal Value As TaskPanelFormat)
                mThemeFormat = Value
                Me.Invalidate()
            End Set
        End Property

#End Region

#Region "overriden methods"
        Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
            'Dim lrectCtrl As Rectangle = CtrlHelper.CheckedRectangle(0, 0, Me.Width, Me.Height)
            'Dim lbrushBackground As New LinearGradientBrush(lrectCtrl, mThemeFormat.TopColor, mThemeFormat.BottomColor, LinearGradientMode.Vertical)

            'e.Graphics.FillRectangle(lbrushBackground, lrectCtrl)

            'lbrushBackground.Dispose()

            MyBase.OnPaint(e)
        End Sub
#End Region
    End Class
End Namespace