staxrip/Source/UI/Theme.vb

Imports System.ComponentModel
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
Imports Microsoft.VisualBasic
Imports StaxRip.Theme

Public Class Theme
    Private Shared ReadOnly _baseHue As Integer = 210
    Private Shared ReadOnly _highlightHue As Integer = 0
    Private Shared ReadOnly _defaultBackHighlightColor As New ColorHSL(_highlightHue, 0.75, 0.75, 1)

    Protected _usesSystemColors As Boolean = True

    Public ReadOnly Property Name As String

    Public ReadOnly Property UsesSystemColors As Boolean
        Get
            Return _usesSystemColors
        End Get
    End Property

    Public Overridable ReadOnly Property BaseHue As Integer
        Get
            Return _baseHue
        End Get
    End Property

    Public Overridable ReadOnly Property HighlightHue As Integer
        Get
            Return _highlightHue
        End Get
    End Property




    Private _generalThemeColors As GeneralThemeColors
    Private _appsFormThemeColors As AppsFormThemeColors
    Private _codeEditorThemeColors As CodeEditorThemeColors
    Private _cropFormThemeColors As CropFormThemeColors
    Private _mainFormThemeColors As MainFormThemeColors
    Private _processingFormThemeColors As ProcessingFormThemeColors
    Private _taskDialogThemeColors As TaskDialogThemeColors
    Private _videoComparisonFormThemeColors As VideoComparisonFormThemeColors

    Public Property General As GeneralThemeColors
        Get
            _generalThemeColors = If(_generalThemeColors, New GeneralThemeColors())
            Return _generalThemeColors
        End Get
        Set(value As GeneralThemeColors)
            _generalThemeColors = value
        End Set
    End Property

    Public Property AppsForm As AppsFormThemeColors
        Get
            _appsFormThemeColors = If(_appsFormThemeColors, New AppsFormThemeColors())
            Return _appsFormThemeColors
        End Get
        Set(value As AppsFormThemeColors)
            _appsFormThemeColors = value
        End Set
    End Property

    Public Property CodeEditor As CodeEditorThemeColors
        Get
            _codeEditorThemeColors = If(_codeEditorThemeColors, New CodeEditorThemeColors())
            Return _codeEditorThemeColors
        End Get
        Set(value As CodeEditorThemeColors)
            _codeEditorThemeColors = value
        End Set
    End Property

    Public Property CropForm As CropFormThemeColors
        Get
            _cropFormThemeColors = If(_cropFormThemeColors, New CropFormThemeColors())
            Return _cropFormThemeColors
        End Get
        Set(value As CropFormThemeColors)
            _cropFormThemeColors = value
        End Set
    End Property

    Public Property MainForm As MainFormThemeColors
        Get
            _mainFormThemeColors = If(_mainFormThemeColors, New MainFormThemeColors())
            Return _mainFormThemeColors
        End Get
        Set(value As MainFormThemeColors)
            _mainFormThemeColors = value
        End Set
    End Property

    Public Property ProcessingForm As ProcessingFormThemeColors
        Get
            _processingFormThemeColors = If(_processingFormThemeColors, New ProcessingFormThemeColors())
            Return _processingFormThemeColors
        End Get
        Set(value As ProcessingFormThemeColors)
            _processingFormThemeColors = value
        End Set
    End Property

    Public Property TaskDialog As TaskDialogThemeColors
        Get
            _taskDialogThemeColors = If(_taskDialogThemeColors, New TaskDialogThemeColors())
            Return _taskDialogThemeColors
        End Get
        Set(value As TaskDialogThemeColors)
            _taskDialogThemeColors = value
        End Set
    End Property

    Public Property VideoComparisonForm As VideoComparisonFormThemeColors
        Get
            _videoComparisonFormThemeColors = If(_videoComparisonFormThemeColors, New VideoComparisonFormThemeColors())
            Return _videoComparisonFormThemeColors
        End Get
        Set(value As VideoComparisonFormThemeColors)
            _videoComparisonFormThemeColors = value
        End Set
    End Property



    Private Sub New()
        Throw New Exception("Please use Theme(name As String) instead to specify a theme name!")
    End Sub

    Public Sub New(name As String)
        If String.IsNullOrWhiteSpace(name) Then
            Throw New ArgumentNullException(NameOf(name))
        End If
        Me.Name = name
    End Sub




    <Serializable>
    Public Class ControlsThemeColors
        Private _buttonThemeColors As ButtonThemeColors
        Private _buttonLabelThemeColors As ButtonLabelThemeColors
        Private _checkBoxThemeColors As CheckBoxThemeColors
        Private _comboboxThemeColors As ComboBoxThemeColors
        Private _commandLineRichTextBox As CommandLineRichTextBoxThemeColors
        Private _criteriaControlThemeColors As CriteriaControlThemeColors
        Private _flowLayoutPanelThemeColors As FlowLayoutPanelThemeColors
        Private _flowPageThemeColors As FlowPageThemeColors
        Private _gridViewThemeColors As GridviewThemeColors
        Private _groupBoxThemeColors As GroupBoxThemeColors
        Private _labelThemeColors As LabelThemeColors
        Private _labelProgressBarThemeColors As LabelProgressBarThemeColors
        Private _lineThemeColors As LineThemeColors
        Private _listBoxThemeColors As ListBoxThemeColors
        Private _listViewThemeColors As ListViewThemeColors
        Private _numEditThemeColors As NumEditThemeColors
        Private _panelThemeColors As PanelThemeColors
        Private _propertyGridThemeColors As PropertyGridThemeColors
        Private _richTextBoxThemeColors As RichTextBoxThemeColors
        Private _tableLayoutPanelThemeColors As TableLayoutPanelThemeColors
        Private _tabControlThemeColors As TabControlThemeColors
        Private _tabPageThemeColors As TabPageThemeColors
        Private _textBoxThemeColors As TextBoxThemeColors
        Private _textEditThemeColors As TextEditThemeColors
        Private _toggleButtonLabelThemeColors As ToggleButtonLabelThemeColors
        Private _toolStripThemeColors As ToolStripThemeColors
        Private _toolStripButtonThemeColors As ToolStripButtonThemeColors
        Private _trackBarThemeColors As TrackBarThemeColors
        Private _treeViewThemeColors As TreeViewThemeColors
        Private _videoRendererThemeColors As VideoRendererThemeColors

        Public Property Button As ButtonThemeColors
            Get
                _buttonThemeColors = If(_buttonThemeColors, New ButtonThemeColors())
                Return _buttonThemeColors
            End Get
            Set(value As ButtonThemeColors)
                _buttonThemeColors = value
            End Set
        End Property

        Public Property ButtonLabel As ButtonLabelThemeColors
            Get
                _buttonLabelThemeColors = If(_buttonLabelThemeColors, New ButtonLabelThemeColors())
                Return _buttonLabelThemeColors
            End Get
            Set(value As ButtonLabelThemeColors)
                _buttonLabelThemeColors = value
            End Set
        End Property

        Public Property CheckBox As CheckBoxThemeColors
            Get
                _checkBoxThemeColors = If(_checkBoxThemeColors, New CheckBoxThemeColors())
                Return _checkBoxThemeColors
            End Get
            Set(value As CheckBoxThemeColors)
                _checkBoxThemeColors = value
            End Set
        End Property

        Public Property ComboBox As ComboBoxThemeColors
            Get
                _comboboxThemeColors = If(_comboboxThemeColors, New ComboBoxThemeColors())
                Return _comboboxThemeColors
            End Get
            Set(value As ComboBoxThemeColors)
                _comboboxThemeColors = value
            End Set
        End Property

        Public Property CommandLineRichTextBox As CommandLineRichTextBoxThemeColors
            Get
                _commandLineRichTextBox = If(_commandLineRichTextBox, New CommandLineRichTextBoxThemeColors())
                Return _commandLineRichTextBox
            End Get
            Set(value As CommandLineRichTextBoxThemeColors)
                _commandLineRichTextBox = value
            End Set
        End Property

        Public Property CriteriaControl As CriteriaControlThemeColors
            Get
                _criteriaControlThemeColors = If(_criteriaControlThemeColors, New CriteriaControlThemeColors())
                Return _criteriaControlThemeColors
            End Get
            Set(value As CriteriaControlThemeColors)
                _criteriaControlThemeColors = value
            End Set
        End Property

        Public Property FlowLayoutPanel As FlowLayoutPanelThemeColors
            Get
                _flowLayoutPanelThemeColors = If(_flowLayoutPanelThemeColors, New FlowLayoutPanelThemeColors())
                Return _flowLayoutPanelThemeColors
            End Get
            Set(value As FlowLayoutPanelThemeColors)
                _flowLayoutPanelThemeColors = value
            End Set
        End Property

        Public Property FlowPage As FlowPageThemeColors
            Get
                _flowPageThemeColors = If(_flowPageThemeColors, New FlowPageThemeColors())
                Return _flowPageThemeColors
            End Get
            Set(value As FlowPageThemeColors)
                _flowPageThemeColors = value
            End Set
        End Property

        Public Property GridView As GridviewThemeColors
            Get
                _gridViewThemeColors = If(_gridViewThemeColors, New GridviewThemeColors())
                Return _gridViewThemeColors
            End Get
            Set(value As GridviewThemeColors)
                _gridViewThemeColors = value
            End Set
        End Property

        Public Property GroupBox As GroupBoxThemeColors
            Get
                _groupBoxThemeColors = If(_groupBoxThemeColors, New GroupBoxThemeColors())
                Return _groupBoxThemeColors
            End Get
            Set(value As GroupBoxThemeColors)
                _groupBoxThemeColors = value
            End Set
        End Property

        Public Property Label As LabelThemeColors
            Get
                _labelThemeColors = If(_labelThemeColors, New LabelThemeColors())
                Return _labelThemeColors
            End Get
            Set(value As LabelThemeColors)
                _labelThemeColors = value
            End Set
        End Property

        Public Property LabelProgressBar As LabelProgressBarThemeColors
            Get
                _labelProgressBarThemeColors = If(_labelProgressBarThemeColors, New LabelProgressBarThemeColors())
                Return _labelProgressBarThemeColors
            End Get
            Set(value As LabelProgressBarThemeColors)
                _labelProgressBarThemeColors = value
            End Set
        End Property

        Public Property Line As LineThemeColors
            Get
                _lineThemeColors = If(_lineThemeColors, New LineThemeColors())
                Return _lineThemeColors
            End Get
            Set(value As LineThemeColors)
                _lineThemeColors = value
            End Set
        End Property

        Public Property ListBox As ListBoxThemeColors
            Get
                _listBoxThemeColors = If(_listBoxThemeColors, New ListBoxThemeColors())
                Return _listBoxThemeColors
            End Get
            Set(value As ListBoxThemeColors)
                _listBoxThemeColors = value
            End Set
        End Property

        Public Property ListView As ListViewThemeColors
            Get
                _listViewThemeColors = If(_listViewThemeColors, New ListViewThemeColors())
                Return _listViewThemeColors
            End Get
            Set(value As ListViewThemeColors)
                _listViewThemeColors = value
            End Set
        End Property

        Public Property NumEdit As NumEditThemeColors
            Get
                _numEditThemeColors = If(_numEditThemeColors, New NumEditThemeColors())
                Return _numEditThemeColors
            End Get
            Set(value As NumEditThemeColors)
                _numEditThemeColors = value
            End Set
        End Property

        Public Property Panel As PanelThemeColors
            Get
                _panelThemeColors = If(_panelThemeColors, New PanelThemeColors())
                Return _panelThemeColors
            End Get
            Set(value As PanelThemeColors)
                _panelThemeColors = value
            End Set
        End Property

        Public Property PropertyGrid As PropertyGridThemeColors
            Get
                _propertyGridThemeColors = If(_propertyGridThemeColors, New PropertyGridThemeColors())
                Return _propertyGridThemeColors
            End Get
            Set(value As PropertyGridThemeColors)
                _propertyGridThemeColors = value
            End Set
        End Property


        Public Property RichTextBox As RichTextBoxThemeColors
            Get
                _richTextBoxThemeColors = If(_richTextBoxThemeColors, New RichTextBoxThemeColors())
                Return _richTextBoxThemeColors
            End Get
            Set(value As RichTextBoxThemeColors)
                _richTextBoxThemeColors = value
            End Set
        End Property

        Public Property TableLayoutPanel As TableLayoutPanelThemeColors
            Get
                _tableLayoutPanelThemeColors = If(_tableLayoutPanelThemeColors, New TableLayoutPanelThemeColors())
                Return _tableLayoutPanelThemeColors
            End Get
            Set(value As TableLayoutPanelThemeColors)
                _tableLayoutPanelThemeColors = value
            End Set
        End Property

        Public Property TabControl As TabControlThemeColors
            Get
                _tabControlThemeColors = If(_tabControlThemeColors, New TabControlThemeColors())
                Return _tabControlThemeColors
            End Get
            Set(value As TabControlThemeColors)
                _tabControlThemeColors = value
            End Set
        End Property

        Public Property TabPage As TabPageThemeColors
            Get
                _tabPageThemeColors = If(_tabPageThemeColors, New TabPageThemeColors())
                Return _tabPageThemeColors
            End Get
            Set(value As TabPageThemeColors)
                _tabPageThemeColors = value
            End Set
        End Property

        Public Property TextBox As TextBoxThemeColors
            Get
                _textBoxThemeColors = If(_textBoxThemeColors, New TextBoxThemeColors())
                Return _textBoxThemeColors
            End Get
            Set(value As TextBoxThemeColors)
                _textBoxThemeColors = value
            End Set
        End Property

        Public Property TextEdit As TextEditThemeColors
            Get
                _textEditThemeColors = If(_textEditThemeColors, New TextEditThemeColors())
                Return _textEditThemeColors
            End Get
            Set(value As TextEditThemeColors)
                _textEditThemeColors = value
            End Set
        End Property

        Public Property ToggleButtonLabel As ToggleButtonLabelThemeColors
            Get
                _toggleButtonLabelThemeColors = If(_toggleButtonLabelThemeColors, New ToggleButtonLabelThemeColors())
                Return _toggleButtonLabelThemeColors
            End Get
            Set(value As ToggleButtonLabelThemeColors)
                _toggleButtonLabelThemeColors = value
            End Set
        End Property

        Public Property ToolStrip As ToolStripThemeColors
            Get
                _toolStripThemeColors = If(_toolStripThemeColors, New ToolStripThemeColors())
                Return _toolStripThemeColors
            End Get
            Set(value As ToolStripThemeColors)
                _toolStripThemeColors = value
            End Set
        End Property

        Public Property ToolStripButton As ToolStripButtonThemeColors
            Get
                _toolStripButtonThemeColors = If(_toolStripButtonThemeColors, New ToolStripButtonThemeColors())
                Return _toolStripButtonThemeColors
            End Get
            Set(value As ToolStripButtonThemeColors)
                _toolStripButtonThemeColors = value
            End Set
        End Property

        Public Property TrackBar As TrackBarThemeColors
            Get
                _trackBarThemeColors = If(_trackBarThemeColors, New TrackBarThemeColors())
                Return _trackBarThemeColors
            End Get
            Set(value As TrackBarThemeColors)
                _trackBarThemeColors = value
            End Set
        End Property

        Public Property TreeView As TreeViewThemeColors
            Get
                _treeViewThemeColors = If(_treeViewThemeColors, New TreeViewThemeColors())
                Return _treeViewThemeColors
            End Get
            Set(value As TreeViewThemeColors)
                _treeViewThemeColors = value
            End Set
        End Property

        Public Property VideoRenderer As VideoRendererThemeColors
            Get
                _videoRendererThemeColors = If(_videoRendererThemeColors, New VideoRendererThemeColors())
                Return _videoRendererThemeColors
            End Get
            Set(value As VideoRendererThemeColors)
                _videoRendererThemeColors = value
            End Set
        End Property


        Public Function Clone() As ControlsThemeColors
            Using stream As Stream = New MemoryStream()
                Dim formatter As IFormatter = New BinaryFormatter()
                formatter.Serialize(stream, Me)
                stream.Seek(0, SeekOrigin.Begin)
                Return DirectCast(formatter.Deserialize(stream), ControlsThemeColors)
            End Using
        End Function


        <Serializable>
        Public Class ButtonThemeColors
            Public Property BackColor As ColorHSL = SystemColors.ScrollBar
            Public Property BackDisabledColor As ColorHSL = BackColor
            Public Property BackHighlightColor As ColorHSL = SystemColors.ControlLight
            Public Property BorderColor As ColorHSL = SystemColors.ActiveBorder
            Public Property ForeColor As ColorHSL = SystemColors.ControlText
            Public Property ForeDisabledColor As ColorHSL = ForeColor
            Public Property ForeHighlightColor As ColorHSL = ForeColor
        End Class

        <Serializable>
        Public Class ButtonLabelThemeColors
            Public Property BackColor As ColorHSL = SystemColors.Control
            Public Property BackHighlightColor As ColorHSL = _defaultBackHighlightColor
            Public Property ForeColor As ColorHSL = New ColorHSL(_baseHue, 0.75, 0.5, 1)
            Public Property ForeHighlightColor As ColorHSL = New ColorHSL(_highlightHue, 0.75, 0.5, 1)
            Public Property LinkForeColor As ColorHSL = ForeColor
            Public Property LinkForeHoverColor As ColorHSL = LinkForeColor.AddSaturation(0.5).AddLuminance(0.2)
            Public Property LinkForeHighlightHoverColor As ColorHSL = ForeHighlightColor.AddSaturation(0.5).AddLuminance(0.2)
        End Class

        <Serializable>
        Public Class CheckBoxThemeColors
            Public Property BackColor As ColorHSL = SystemColors.Control
            Public Property BackCheckedColor As ColorHSL = BackColor
            Public Property BackHighlightColor As ColorHSL = _defaultBackHighlightColor
            Public Property BackHoverColor As ColorHSL = BackColor
            Public Property BorderColor As ColorHSL = SystemColors.ActiveBorder
            Public Property BorderCheckedColor As ColorHSL = SystemColors.ActiveBorder
            Public Property BoxColor As ColorHSL = SystemColors.Control
            Public Property BoxCheckedColor As ColorHSL = SystemColors.Control
            Public Property CheckmarkColor As ColorHSL = SystemColors.ControlText
            Public Property CheckedBackColor As ColorHSL = SystemColors.Control
            Public Property ForeColor As ColorHSL = SystemColors.ControlText
            Public Property ForeCheckedColor As ColorHSL = ForeColor
            Public Property ForeDisabledColor As ColorHSL = ForeColor
            Public Property ForeHighlightColor As ColorHSL = ForeColor
        End Class

        <Serializable>
        Public Class ComboBoxThemeColors
            Public Property BackColor As ColorHSL = SystemColors.Window
            Public Property BackHighlightColor As ColorHSL = _defaultBackHighlightColor
            Public Property BorderColor As ColorHSL = SystemColors.ActiveBorder
            Public Property FlatStyle As FlatStyle = FlatStyle.Standard
            Public Property ForeColor As ColorHSL = SystemColors.ControlText
            Public Property ForeHighlightColor As ColorHSL = ForeColor
        End Class

        <Serializable>
        Public Class CommandLineRichTextBoxThemeColors
            Public Property ParameterBackColor As ColorHSL = SystemColors.Window
            Public Property ParameterForeColor As ColorHSL = New ColorHSL(220, 0.5, 0.33, 1)
            Public Property ParameterFontStyles As FontStyle() = {}
            Public Property ParameterValueBackColor As ColorHSL = SystemColors.Window
            Public Property ParameterValueForeColor As ColorHSL = New ColorHSL(160, 0.99, 0.4, 1)
            Public Property ParameterValueFontStyles As FontStyle() = {}
        End Class

        <Serializable>
        Public Class CriteriaControlThemeColors
            Public Property BackColor As ColorHSL = SystemColors.Window
            Public Property ForeColor As ColorHSL = SystemColors.WindowText
        End Class

        <Serializable>
        Public Class FlowLayoutPanelThemeColors
            Public Property BackColor As ColorHSL = SystemColors.Control
            Public Property BackHighlightColor As ColorHSL = BackColor.AddLuminance(-0.25)
            Public Property ForeColor As ColorHSL = SystemColors.ControlText
            Public Property ForeHighlightColor As ColorHSL = ForeColor
        End Class

        <Serializable>
        Public Class FlowPageThemeColors
            Public Property BackColor As ColorHSL = SystemColors.Control
            Public Property BackHighlightColor As ColorHSL = BackColor.AddLuminance(-0.25)
            Public Property ForeColor As ColorHSL = SystemColors.ControlText
            Public Property ForeHighlightColor As ColorHSL = ForeColor
        End Class

        <Serializable>
        Public Class GridviewThemeColors
            Public Property BackColor As ColorHSL = SystemColors.Control
            Public Property BackHighlightColor As ColorHSL = BackColor.AddLuminance(-0.25)
            Public Property ForeColor As ColorHSL = SystemColors.ControlText
            Public Property ForeHighlightColor As ColorHSL = ForeColor
            Public Property GridColor As ColorHSL = SystemColors.Control
        End Class

        <Serializable>
        Public Class GroupBoxThemeColors
            Public Property BackColor As ColorHSL = SystemColors.Control
            Public Property BackHighlightColor As ColorHSL = BackColor.AddLuminance(-0.25)
            Public Property ForeColor As ColorHSL = SystemColors.ControlText
            Public Property ForeHighlightColor As ColorHSL = ForeColor
        End Class

        <Serializable>
        Public Class LabelThemeColors
            Public Property BackColor As ColorHSL = SystemColors.Control
            Public Property BackHighlightColor As ColorHSL = _defaultBackHighlightColor
            Public Property ForeColor As ColorHSL = SystemColors.ControlText
            Public Property ForeHighlightColor As ColorHSL = ForeColor
        End Class

        <Serializable>
        Public Class LabelProgressBarThemeColors
            Public Property BackColor As ColorHSL = SystemColors.Control
            Public Property ForeColor As ColorHSL = SystemColors.ControlText
            Public Property ProgressColor As ColorHSL = New ColorHSL(_baseHue, 0.5, 0.75, 1)
        End Class

        <Serializable>
        Public Class LineThemeColors
            Public Property BackColor As ColorHSL = SystemColors.Window
            Public Property ForeColor As ColorHSL = SystemColors.WindowText
            Public Property LineColor1 As ColorHSL = SystemColors.WindowText
            Public Property LineColor2 As ColorHSL = SystemColors.WindowText
        End Class

        <Serializable>
        Public Class ListBoxThemeColors
            Public Property BackColor As ColorHSL = SystemColors.Window
            Public Property BackAlternateColor As ColorHSL = BackColor.AddLuminance(-0.05)
            Public Property BackHighlightColor As ColorHSL = _defaultBackHighlightColor
            Public Property BackSelectedColor As ColorHSL = SystemColors.ControlDarkDark
            Public Property ForeColor As ColorHSL = SystemColors.WindowText
            Public Property ForeHighlightColor As ColorHSL = ForeColor
            Public Property ForeSelectedColor As ColorHSL = SystemColors.Window
            Public Property SymbolImageColor As ColorHSL = ForeColor
        End Class

        <Serializable>
        Public Class ListViewThemeColors
            Public Property BackColor As ColorHSL = SystemColors.Window
            Public Property BackAlternateColor As ColorHSL = BackColor.AddLuminance(-0.05)
            Public Property BackHighlightColor As ColorHSL = _defaultBackHighlightColor
            Public Property BackSelectedColor As ColorHSL = SystemColors.ControlDarkDark
            Public Property ForeColor As ColorHSL = SystemColors.WindowText
            Public Property ForeHighlightColor As ColorHSL = ForeColor
            Public Property ForeSelectedColor As ColorHSL = SystemColors.Window
            Public Property SeparatorColor As ColorHSL = BackColor.AddLuminance(-0.15)
            Public Property SymbolImageColor As ColorHSL = ForeColor
        End Class

        <Serializable>
        Public Class NumEditThemeColors
            Public Property BackColor As ColorHSL = SystemColors.Window
            Public Property BorderColor As ColorHSL = BackColor
            Public Property BorderSelectedColor As ColorHSL = SystemColors.ControlText


            Private _upDownButton As UpDownButtonThemeColors
            Public Property UpDownButton As UpDownButtonThemeColors
                Get
                    _upDownButton = If(_upDownButton, New UpDownButtonThemeColors())
                    Return _upDownButton
                End Get
                Set
                    _upDownButton = Value
                End Set
            End Property

            <Serializable>
            Public Class UpDownButtonThemeColors
                Public Property BackColor As ColorHSL = SystemColors.Control
                Public Property BackHotColor As ColorHSL = SystemColors.Control
                Public Property BackPressedColor As ColorHSL = SystemColors.Control
                Public Property BorderColor As ColorHSL = BackColor
                Public Property ForeColor As ColorHSL = SystemColors.ControlText
                Public Property ForeDisabledColor As ColorHSL = SystemColors.GrayText
            End Class
        End Class

        <Serializable>
        Public Class PanelThemeColors
            Public Property BackColor As ColorHSL = SystemColors.Control
            Public Property BackHighlightColor As ColorHSL = _defaultBackHighlightColor
            Public Property ForeColor As ColorHSL = SystemColors.ControlText
            Public Property ForeHighlightColor As ColorHSL = ForeColor
        End Class

        <Serializable>
        Public Class PropertyGridThemeColors
            Public Property BackColor As ColorHSL = SystemColors.Control
            Public Property CategoryForeColor As ColorHSL = SystemColors.ControlText
            Public Property CategorySplitterColor As ColorHSL = SystemColors.ControlText
            Public Property CommandsActiveLinkColor As ColorHSL = SystemColors.ControlText
            Public Property CommandsBackColor As ColorHSL = SystemColors.ControlText
            Public Property CommandsBorderColor As ColorHSL = SystemColors.ControlText
            Public Property CommandsDisabledLinkColor As ColorHSL = SystemColors.ControlText
            Public Property CommandsForeColor As ColorHSL = SystemColors.ControlText
            Public Property CommandsLinkColor As ColorHSL = SystemColors.ControlText
            Public Property DisabledItemForeColor As ColorHSL = SystemColors.ControlText
            Public Property ForeColor As ColorHSL = SystemColors.ControlText
            Public Property HelpBackColor As ColorHSL = SystemColors.Control
            Public Property HelpBorderColor As ColorHSL = SystemColors.ControlDark
            Public Property HelpForeColor As ColorHSL = SystemColors.ControlText
            Public Property LineColor As ColorHSL = SystemColors.ControlDark
            Public Property SelectedItemWithFocusBackColor As ColorHSL = SystemColors.Control
            Public Property SelectedItemWithFocusForeColor As ColorHSL = SystemColors.ControlText
            Public Property ViewBackColor As ColorHSL = SystemColors.Control
            Public Property ViewBorderColor As ColorHSL = SystemColors.ControlText
            Public Property ViewForeColor As ColorHSL = SystemColors.ControlText
        End Class

        <Serializable>
        Public Class RichTextBoxThemeColors
            Public Property BackColor As ColorHSL = SystemColors.Window
            Public Property BackHighlightColor As ColorHSL = _defaultBackHighlightColor
            Public Property BackReadonlyColor As ColorHSL = SystemColors.Control
            Public Property BorderColor As ColorHSL = New ColorHSL(_baseHue, 0.0, 0.3, 1)
            Public Property BorderFocusedColor As ColorHSL = New ColorHSL(_baseHue, 0.0, 0.5, 1)
            Public Property ForeColor As ColorHSL = SystemColors.ControlText
            Public Property ForeHighlightColor As ColorHSL = ForeColor
        End Class

        <Serializable>
        Public Class TableLayoutPanelThemeColors
            Public Property BackColor As ColorHSL = SystemColors.Control
            Public Property BackHighlightColor As ColorHSL = _defaultBackHighlightColor
            Public Property ForeColor As ColorHSL = SystemColors.ControlText
            Public Property ForeHighlightColor As ColorHSL = ForeColor
        End Class

        <Serializable>
        Public Class TabControlThemeColors
            Public Property BackColor As ColorHSL = SystemColors.Control
            Public Property BackHighlightColor As ColorHSL = _defaultBackHighlightColor
            Public Property BorderColor As ColorHSL = SystemColors.Control
            Public Property ForeColor As ColorHSL = SystemColors.ControlText
            Public Property ForeHighlightColor As ColorHSL = ForeColor
        End Class

        <Serializable>
        Public Class TabPageThemeColors
            Public Property BackColor As ColorHSL = SystemColors.Control
            Public Property BackHighlightColor As ColorHSL = _defaultBackHighlightColor
            Public Property ForeColor As ColorHSL = SystemColors.ControlText
            Public Property ForeHighlightColor As ColorHSL = ForeColor
        End Class

        <Serializable>
        Public Class TextBoxThemeColors
            Public Property BackColor As ColorHSL = SystemColors.Window
            Public Property BackHighlightColor As ColorHSL = _defaultBackHighlightColor
            Public Property BackReadonlyColor As ColorHSL = SystemColors.Control
            Public Property BorderColor As ColorHSL = New ColorHSL(_baseHue, 0.0, 0.3, 1)
            Public Property BorderFocusedColor As ColorHSL = New ColorHSL(_baseHue, 0.0, 0.5, 1)
            Public Property ForeColor As ColorHSL = SystemColors.ControlText
            Public Property ForeHighlightColor As ColorHSL = ForeColor
        End Class

        <Serializable>
        Public Class TextEditThemeColors
            Public Property BackColor As ColorHSL = SystemColors.Window
            Public Property BackHighlightColor As ColorHSL = _defaultBackHighlightColor
            Public Property BackReadonlyColor As ColorHSL = SystemColors.Control
            Public Property BorderColor As ColorHSL = New ColorHSL(_baseHue, 0.0, 0.3, 1)
            Public Property BorderFocusedColor As ColorHSL = New ColorHSL(_baseHue, 0.0, 0.5, 1)
            Public Property BorderHoverColor As ColorHSL = BorderFocusedColor.AddLuminance(0.1).AddSaturation(0.1)
            Public Property ForeColor As ColorHSL = SystemColors.ControlText
            Public Property ForeHighlightColor As ColorHSL = ForeColor
            Public Property ForeReadonlyColor As ColorHSL = SystemColors.ControlText
        End Class

        <Serializable>
        Public Class ToggleButtonLabelThemeColors
            Public Property BackColor As ColorHSL = SystemColors.Control
            Public Property BackHighlightColor As ColorHSL = _defaultBackHighlightColor
            Public Property ForeColor As ColorHSL = New ColorHSL(_baseHue, 0.75, 0.5, 1)
            Public Property ForeHighlightColor As ColorHSL = New ColorHSL(_highlightHue, 0.75, 0.5, 1)
            Public Property LinkOnForeColor As ColorHSL = ForeColor
            Public Property LinkOffForeColor As ColorHSL = Color.Gray
            Public Property LinkForeHoverColor As ColorHSL = LinkOnForeColor.AddSaturation(0.5).AddLuminance(0.2)
            Public Property LinkForeHighlightHoverColor As ColorHSL = ForeHighlightColor.AddSaturation(0.5).AddLuminance(0.2)
        End Class

        <Serializable>
        Public Class ToolStripThemeColors
            Public Property MenuStripBackgroundDefaultColor As ColorHSL = New ColorHSL(_baseHue, 0.0, 0.9, 1)
            Public Property MenuStripBackgroundSelectedColor As ColorHSL = New ColorHSL(_baseHue, 0.75, 0.75, 1)
            Public Property MenuStripTextDefaultColor As ColorHSL = New ColorHSL(_baseHue, 0.0, 0.3, 1)
            Public Property MenuStripTextSelectedColor As ColorHSL = New ColorHSL(_baseHue, 0.0, 0.2, 1)

            Public Property DropdownBackgroundDefaultColor As ColorHSL = MenuStripBackgroundDefaultColor
            Public Property DropdownBackgroundSelectedColor As ColorHSL = MenuStripBackgroundSelectedColor
            Public Property DropdownTextDefaultColor As ColorHSL = MenuStripTextDefaultColor
            Public Property DropdownTextSelectedColor As ColorHSL = MenuStripTextSelectedColor
            Public Property SymbolImageColor As ColorHSL = DropdownTextDefaultColor

            Public Property BoxColor As ColorHSL = MenuStripBackgroundSelectedColor
            Public Property BoxSelectedColor As ColorHSL = MenuStripBackgroundSelectedColor
            Public Property CheckmarkColor As ColorHSL = DropdownTextDefaultColor
            Public Property CheckmarkSelectedColor As ColorHSL = DropdownTextDefaultColor

            Public Property BorderInnerColor As ColorHSL = DropdownBackgroundDefaultColor.AddLuminance(0.3)
            Public Property BorderOuterColor As ColorHSL = DropdownBackgroundDefaultColor.AddLuminance(0.15)
        End Class

        <Serializable>
        Public Class ToolStripButtonThemeColors
            Public Property BackColor As ColorHSL = SystemColors.Control
            Public Property BackHighlightColor As ColorHSL = _defaultBackHighlightColor
            Public Property ForeColor As ColorHSL = SystemColors.ControlText
            Public Property ForeHighlightColor As ColorHSL = ForeColor
        End Class

        <Serializable>
        Public Class TrackBarThemeColors
            Public Property BackColor As ColorHSL = SystemColors.Control
            Public Property BackHighlightColor As ColorHSL = _defaultBackHighlightColor
            Public Property ForeColor As ColorHSL = SystemColors.ControlText
            Public Property ForeHighlightColor As ColorHSL = ForeColor
        End Class

        <Serializable>
        Public Class TreeViewThemeColors
            Public Property BackColor As ColorHSL = SystemColors.Window
            Public Property BackAlternateColor As ColorHSL = BackColor.AddLuminance(-0.05)
            Public Property BackExpandableColor As ColorHSL = SystemColors.Control
            Public Property BackExpandedColor As ColorHSL = SystemColors.Control
            Public Property BackHighlightColor As ColorHSL = _defaultBackHighlightColor
            Public Property BackSelectedColor As ColorHSL = SystemColors.ControlLight
            Public Property ForeColor As ColorHSL = SystemColors.WindowText
            Public Property ForeExpandableColor As ColorHSL = ForeColor
            Public Property ForeExpandedColor As ColorHSL = ForeColor
            Public Property ForeHighlightColor As ColorHSL = ForeColor
            Public Property ForeSelectedColor As ColorHSL = SystemColors.ControlText
            Public Property LineColor As ColorHSL = SystemColors.WindowText
        End Class

        <Serializable>
        Public Class VideoRendererThemeColors
            Public Property BackColor As ColorHSL = SystemColors.Window
        End Class

    End Class


    <Serializable>
    Public Class GeneralThemeColors
        Private _controlsThemeColors As ControlsThemeColors

        Public Property Controls As ControlsThemeColors
            Get
                _controlsThemeColors = If(_controlsThemeColors, New ControlsThemeColors())
                Return _controlsThemeColors
            End Get
            Set(value As ControlsThemeColors)
                _controlsThemeColors = value
            End Set
        End Property

        Public Property BackColor As ColorHSL = SystemColors.Control
        Public Property ControlBackColor As ColorHSL = Color.Transparent
        Public Property DangerBackColor As ColorHSL = Color.Transparent
        Public Property DangerForeColor As ColorHSL = New ColorHSL(358, 1, 0.5, 1)
        Public Property ForeColor As ColorHSL = SystemColors.ControlText
    End Class

    <Serializable>
    Public Class AppsFormThemeColors
        Public Property AttentionForeColor As ColorHSL = New ColorHSL(358, 1, 0.3, 1)
        Public Property MinorForeColor As ColorHSL = New ColorHSL(40, 1, 0.3, 1)
        Public Property OkayForeColor As ColorHSL = New ColorHSL(120, 1, 0.3, 1)
    End Class

    <Serializable>
    Public Class CodeEditorThemeColors
        Public Property BackAccentColor As ColorHSL = SystemColors.Window
        Public Property ForeColor As ColorHSL = SystemColors.ControlDark
        Public Property ForeAccentColor As ColorHSL = SystemColors.WindowText
        Public Property RichTextBoxBorderColor As ColorHSL = SystemColors.ControlDark
        Public Property RichTextBoxBorderAccentColor As ColorHSL = SystemColors.ControlDark
        Public Property RichTextBoxForeColor As ColorHSL = SystemColors.ControlDark
        Public Property RichTextBoxForeAccentColor As ColorHSL = SystemColors.WindowText
    End Class

    <Serializable>
    Public Class CropFormThemeColors
        Public Property BackColor As ColorHSL = SystemColors.Window
        Public Property BorderColor As ColorHSL = SystemColors.ControlDark
        Public Property BorderSelectedColor As ColorHSL = SystemColors.Control
    End Class

    <Serializable>
    Public Class MainFormThemeColors
        Public Property laTipBackColor As ColorHSL = Color.Transparent
        Public Property laTipBackHighlightColor As ColorHSL = Color.Transparent
        Public Property laTipForeColor As ColorHSL = New ColorHSL(_baseHue, 1, 0.5, 1)
        Public Property laTipForeHighlightColor As ColorHSL = New ColorHSL(355, 1, 0.5, 1)
    End Class

    <Serializable>
    Public Class ProcessingFormThemeColors
        Public Property BackColor As ColorHSL = SystemColors.Control
        Public Property ProcessButtonBackColor As ColorHSL = SystemColors.Control
        Public Property ProcessButtonBackSelectedColor As ColorHSL = SystemColors.ScrollBar
        Public Property ProcessButtonForeColor As ColorHSL = SystemColors.ControlText
        Public Property ProcessButtonForeSelectedColor As ColorHSL = SystemColors.ControlText


        Private _outputHighlighting As OutputHighlightingThemeColors
        Public Property OutputHighlighting As OutputHighlightingThemeColors
            Get
                _outputHighlighting = If(_outputHighlighting, New OutputHighlightingThemeColors())
                Return _outputHighlighting
            End Get
            Set
                _outputHighlighting = Value
            End Set
        End Property

        <Serializable>
        Public Class OutputHighlightingThemeColors
            Public Property HeaderBackColor As ColorHSL = Color.Transparent
            Public Property HeaderForeColor As ColorHSL = New ColorHSL(333, 0.99, 0.5, 1)
            Public Property HeaderFontStyles As FontStyle() = {}

            Public Property EncoderTitleBackColor As ColorHSL = Color.Transparent
            Public Property EncoderTitleForeColor As ColorHSL = New ColorHSL(12, 0.99, 0.5, 1)
            Public Property EncoderTitleFontStyles As FontStyle() = {}

            Public Property ParameterBackColor As ColorHSL = Color.Transparent
            Public Property ParameterForeColor As ColorHSL = New ColorHSL(320, 0.99, 0.5, 1)
            Public Property ParameterFontStyles As FontStyle() = {}
            Public Property ParameterValueBackColor As ColorHSL = Color.Transparent
            Public Property ParameterValueForeColor As ColorHSL = New ColorHSL(270, 0.99, 0.5, 1)
            Public Property ParameterValueFontStyles As FontStyle() = {}

            Public Property PipeBackColor As ColorHSL = Color.Transparent
            Public Property PipeForeColor As ColorHSL = New ColorHSL(0, 0.99, 0.4, 1)
            Public Property PipeFontStyles As FontStyle() = {FontStyle.Bold}

            Public Property ExeFileBackColor As ColorHSL = Color.Transparent
            Public Property ExeFileForeColor As ColorHSL = New ColorHSL(180, 0.99, 0.4, 1)
            Public Property ExeFileFontStyles As FontStyle() = {}

            Public Property MediaFileBackColor As ColorHSL = Color.Transparent
            Public Property MediaFileForeColor As ColorHSL = New ColorHSL(220, 0.99, 0.4, 1)
            Public Property MediaFileFontStyles As FontStyle() = {}

            Public Property MetadataFileBackColor As ColorHSL = Color.Transparent
            Public Property MetadataFileForeColor As ColorHSL = New ColorHSL(290, 0.99, 0.4, 1)
            Public Property MetadataFileFontStyles As FontStyle() = {}

            Public Property ScriptFileBackColor As ColorHSL = Color.Transparent
            Public Property ScriptFileForeColor As ColorHSL = New ColorHSL(240, 0.99, 0.4, 1)
            Public Property ScriptFileFontStyles As FontStyle() = {}

            Public Property AlternateBackColor As ColorHSL = SystemColors.Window.ToColorHSL().AddLuminance(-0.075)
            Public Property AlternateForeColor As ColorHSL = SystemColors.WindowText
            Public Property AlternateFontStyles As FontStyle() = {}

            Public Property SourceBackColor As ColorHSL = New ColorHSL(0, 0.5, 0.75, 1)
            Public Property SourceForeColor As ColorHSL = New ColorHSL(0, 0.25, 0.5, 1)

            Public Property InfoLabelBackColor As ColorHSL = New ColorHSL(130, 0.77, 0.75, 1)
            Public Property InfoLabelForeColor As ColorHSL = New ColorHSL(0, 0.0, 0.0, 1)
            Public Property InfoTextBackColor As ColorHSL = New ColorHSL(130, 0.33, 0.2, 1)
            Public Property InfoTextForeColor As ColorHSL = New ColorHSL(0, 0.0, 0.99, 1)

            Public Property WarningLabelBackColor As ColorHSL = New ColorHSL(0, 0.77, 0.75, 1)
            Public Property WarningLabelForeColor As ColorHSL = New ColorHSL(0, 0.0, 0.0, 1)
            Public Property WarningLabelFontStyles As FontStyle() = {}
            Public Property WarningTextBackColor As ColorHSL = Color.Transparent
            Public Property WarningTextForeColor As ColorHSL = New ColorHSL(0, 0.99, 0.5, 1)
            Public Property WarningTextFontStyles As FontStyle() = {}

            Public Property FramesBackColor As ColorHSL = Color.Transparent
            Public Property FramesForeColor As ColorHSL = New ColorHSL(140, 0.99, 0.33, 1)
            Public Property FramesFontStyles As FontStyle() = {}
            Public Property FramesCuttedBackColor As ColorHSL = Color.Transparent
            Public Property FramesCuttedForeColor As ColorHSL = New ColorHSL(30, 0.99, 0.33, 1)
            Public Property FramesCuttedFontStyles As FontStyle() = {}
            Public Property FramesCuttedNumberBackColor As ColorHSL = Color.Transparent
            Public Property FramesCuttedNumberForeColor As ColorHSL = New ColorHSL(30, 0.99, 0.4, 1)
            Public Property FramesCuttedNumberFontStyles As FontStyle() = {}

            Public Property FrameServerBackColor As ColorHSL = Color.Transparent
            Public Property FrameServerForeColor As ColorHSL = New ColorHSL(240, 0.99, 0.33, 1)
            Public Property FrameServerFontStyles As FontStyle() = {}

            Public Property EncoderBackColor As ColorHSL = Color.Transparent
            Public Property EncoderForeColor As ColorHSL = New ColorHSL(220, 0.99, 0.33, 1)
            Public Property EncoderFontStyles As FontStyle() = {}
        End Class
    End Class

    <Serializable>
    Public Class TaskDialogThemeColors
        Public Property BackColor As ColorHSL = SystemColors.Control
        Public Property ForeColor As ColorHSL = SystemColors.ControlText


        Private _button As ButtonThemeColors
        Public Property Button As ButtonThemeColors
            Get
                _button = If(_button, New ButtonThemeColors())
                Return _button
            End Get
            Set
                _button = Value
            End Set
        End Property

        Private _commandButton As CommandButtonThemeColors
        Public Property CommandButton As CommandButtonThemeColors
            Get
                _commandButton = If(_commandButton, New CommandButtonThemeColors())
                Return _commandButton
            End Get
            Set
                _commandButton = Value
            End Set
        End Property

        <Serializable>
        Public Class ButtonThemeColors
            Public Property BackColor As ColorHSL = SystemColors.ScrollBar
            Public Property BorderColor As ColorHSL = SystemColors.ActiveBorder
            Public Property ForeColor As ColorHSL = SystemColors.ControlText
            Public Property TimeoutBackColor As ColorHSL = SystemColors.ScrollBar
            Public Property TimeoutForeColor As ColorHSL = SystemColors.ControlText
        End Class

        <Serializable>
        Public Class CommandButtonThemeColors
            Public Property BackColor As ColorHSL = SystemColors.ScrollBar
            Public Property BorderColor As ColorHSL = SystemColors.ActiveBorder
            Public Property ForeColor As ColorHSL = SystemColors.ControlText
        End Class
    End Class

    <Serializable>
    Public Class VideoComparisonFormThemeColors
        Public Property BackColor As ColorHSL = SystemColors.Window
        Public Property TabBackColor As ColorHSL = Color.Black
    End Class

End Class