ThemedToolStripRenderer.vb

Public Class ThemedRenderer
    Inherits ToolStripProfessionalRenderer

    Private col As Color

    Public Sub New(col As Color)
        MyBase.New(New ThemedToolStripColorTable(col))
        Me.col = col
    End Sub

    Protected Overrides Sub OnRenderItemText(e As ToolStripItemTextRenderEventArgs)

        If e.Text.StartsWith(">>") Then
            Dim rc = New Rectangle(e.TextRectangle.Left - 14, e.TextRectangle.Top, e.TextRectangle.Width, e.TextRectangle.Height)
            e = New ToolStripItemTextRenderEventArgs(e.Graphics, e.Item, e.Text, rc, e.TextColor, e.TextFont, e.TextFormat)
        End If

        Dim graphics As Graphics = e.Graphics
        Dim textFont = e.TextFont
        Dim italicFont As New Font(e.TextFont, FontStyle.Italic)
        Dim text As String = e.Text
        Dim textRectangle As Rectangle = e.TextRectangle
        Dim textFormat As TextFormatFlags = e.TextFormat

        ' Define colors for different groups
        Dim colors As Color() = {Color.White,
                                 Color.FromArgb(&HFFFF8000),
                                 Color.FromArgb(&HFF1EFF00),
                                 Color.FromArgb(&HFF00FFFF),
                                 Color.FromArgb(&HFFFF00EC)}
        ' TODO: proper colormapper instead of hardcoding just the 1 instance

        ' Draw each characters individually with color map
        Dim charHeight As Integer = 12 * scaling ' Approximate character height
        Dim charWidth As Integer = 12 * scaling  ' Approximate character width
        Dim xPos As Integer = textRectangle.Left
        Dim yPos As Integer = (textRectangle.Top + textRectangle.Height) / 2 - charHeight / 2
        Dim colorIndex As Integer = -1
        Dim braces = "} {"

        Dim drawColor As Color = If(e.Item.Enabled, e.TextColor, SystemColors.GrayText)
        Dim needsColor = text.StartsWith(">>") AndAlso e.Item.Selected AndAlso e.Item.Enabled

        For i As Integer = 0 To text.Length - 1
            Dim currentChar As Char = text(i)

            Dim isBrace = braces.Contains(currentChar)

            If needsColor Then
                ' Determine color based on character type
                If Char.IsLetterOrDigit(currentChar) Then
                    drawColor = colors(colorIndex)
                Else
                    drawColor = colors(0)
                    colorIndex += 1
                End If
            End If

            ' Render letter with { brace offset 2 pix to the left
            TextRenderer.DrawText(graphics, $"{currentChar}", If(isBrace, italicFont, textFont), New Rectangle(xPos - If(isBrace, braces.IndexOf(currentChar), 0), yPos, charWidth, charHeight), drawColor, textFormat)

            ' Update xPos for the next character
            xPos += 7 * scaling
        Next
    End Sub

    Protected Overrides Sub OnRenderArrow(e As ToolStripArrowRenderEventArgs)
        Dim arrowBounds = e.ArrowRectangle
        ' Calculate arrow
        Dim midY As Integer = arrowBounds.Top + arrowBounds.Height \ 2
        Dim arrowHeight As Integer = arrowBounds.Height \ 3
        'Dim arrowWidth As Integer = arrowBounds.Width \ 3
        ' Draw an arrow with the specified color
        e.Graphics.FillPolygon(New SolidBrush(Me.col), New Point() {
             New Point(arrowBounds.Right - arrowHeight \ 2, midY - arrowHeight \ 2),
             New Point(arrowBounds.Right, midY),
             New Point(arrowBounds.Right - arrowHeight \ 2, midY + arrowHeight \ 2)
        })
    End Sub

    Protected Overrides Sub OnRenderItemCheck(e As ToolStripItemImageRenderEventArgs)
        My.Resources.goodmud.RenderWithAspect(e)
    End Sub
    Protected Overrides Sub OnRenderItemImage(e As ToolStripItemImageRenderEventArgs)
        Dim img As Image = e.Image
        If Not e.Item.Enabled Then
            img = CreateDisabledImage(e.Image)
        ElseIf e.Item.Text.StartsWith(">>") AndAlso Not e.Item.Selected Then
            img = img.AsGrayscale
        End If
        img.RenderWithAspect(e)
    End Sub

End Class

Module ImageExtension
    <Runtime.CompilerServices.Extension()>
    Public Function AsGrayscale(ByVal img As Image) As Image
        Try
            Dim bmp = New Bitmap(img.Width, img.Height)
            Using gfx = Graphics.FromImage(bmp), attr As New Imaging.ImageAttributes()
                ' Set grayscale matrix with hardcoded 75% brightness
                Dim grayscaleMatrix As New Imaging.ColorMatrix(
                    {
                        New Single() {0.3F, 0.3F, 0.3F, 0, 0}, ' Red channel
                        New Single() {0.59F, 0.59F, 0.59F, 0, 0}, ' Green channel
                        New Single() {0.11F, 0.11F, 0.11F, 0, 0}, ' Blue channel 
                        New Single() {0, 0, 0, 1, 0},   ' Alpha channel (unchanged)
                        New Single() {0, 0, 0, 0, 1}    ' No translation changes
                    })
                attr.SetColorMatrix(grayscaleMatrix)
                gfx.DrawImage(img, New Rectangle(0, 0, bmp.Width, bmp.Height),
                              0, 0, img.Width, img.Height, GraphicsUnit.Pixel, attr)
            End Using
            Return bmp
        Catch ex As Exception
            Debug.Print($"Exception in AsGrayscale {ex.Message}")
            Return Nothing
        End Try
    End Function
    <Runtime.CompilerServices.Extension()>
    Public Sub RenderWithAspect(img As Image, e As ToolStripItemImageRenderEventArgs)

        Dim rect = e.ImageRectangle

        Dim aspect As Single = img.Width / img.Height

        Dim w As Integer = rect.Width
        Dim h As Integer = rect.Height

        ' Apply aspect correction
        If aspect <= 1 Then
            w *= aspect
        Else
            h /= aspect
        End If

        ' Center the image in the rectangle
        Dim x As Integer = rect.X + (rect.Width - w) \ 2
        Dim y As Integer = rect.Y + (rect.Height - h) \ 2

        ' Draw the image
        e.Graphics.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
        e.Graphics.DrawImage(img, x, y, w, h)
        e.Graphics.InterpolationMode = Drawing2D.InterpolationMode.Default
    End Sub
End Module

Public Class ThemedToolStripColorTable : Inherits ProfessionalColorTable
    Private col As Color
    Public Sub New(col As Color)
        MyBase.New()
        Me.col = Color.FromArgb(col.A, col.R \ 2, col.G \ 2, col.B \ 2)
    End Sub

    Public Overrides ReadOnly Property MenuBorder As Color
        Get
            Return Me.col
        End Get
    End Property

    Public Overrides ReadOnly Property SeparatorDark As Color
        Get
            Return Me.col
        End Get
    End Property

    Public Overrides ReadOnly Property ToolStripDropDownBackground As Color
        Get
            Return Color.Black
        End Get
    End Property

    Public Overrides ReadOnly Property ImageMarginGradientBegin As Color
        Get
            Return Me.col
        End Get
    End Property
    Public Overrides ReadOnly Property ImageMarginGradientMiddle As Color
        Get
            Return Color.Black
        End Get
    End Property

    Public Overrides ReadOnly Property ImageMarginGradientEnd As Color
        Get
            Return Color.Black
        End Get
    End Property

    Public Overrides ReadOnly Property MenuItemSelected As Color
        Get
            Return Me.col
        End Get
    End Property

    Public Overrides ReadOnly Property MenuItemBorder As Color
        Get
            Return MyBase.MenuItemBorder
        End Get
    End Property


End Class