Imports System.Drawing.Drawing2D

'*IMPORTANT*: Theme Bases 1.5.1 and 1.5.3 needed *IMPORTANT*

'Creator: killermanjaro65
'Email: [email protected]
'AIM: killermanjaro65
'Site: http://www.hackforums.net/member.php?action=profile&uid=672917
'Created: 11/15/11
'Version: 1.0.3

Class HackTheme
    Inherits ThemeContainer153

#Region "Hooks"
    Private _ShowIcon As Boolean
    Public Property ShowIcon() As Boolean
        Get
            Return _ShowIcon
        End Get
        Set(ByVal v As Boolean)
            _ShowIcon = v
            Invalidate()
        End Set
    End Property
    Private _Icon As Icon
    Public Property Icon() As Icon
        Get
            Return _Icon
        End Get
        Set(ByVal v As Icon)
            _Icon = v
            Invalidate()
        End Set
    End Property
#End Region

    Sub New()
        TransparencyKey = Color.Fuchsia
        SetColor("BackgroundColor", Color.FromArgb(51, 51, 51))
        SetColor("Gradient1", Color.FromArgb(79, 50, 77))
        SetColor("Gradient2", Color.FromArgb(99, 70, 97))
    End Sub

    Protected Overrides Sub ColorHook()
        C1 = GetColor("BackgroundColor")
        C2 = GetColor("Gradient2")
        C3 = GetColor("Gradient1")
    End Sub
    Dim C1, C2, C3 As Color
    Dim C4 As New SolidBrush(Color.FromArgb(204, 204, 204))

    Protected Overrides Sub PaintHook()
        G.Clear(C1)

        DrawBorders(Pens.Black)
        DrawCorners(C1, ClientRectangle)

        'Top

        Dim iconrec As New Rectangle(0, 0, Width - 1, 23)

        DrawGradient(C3, C2, iconrec, 90.0F)
        Select Case _ShowIcon
            Case True
                If Not _Icon Is Nothing Then
                    G.DrawIcon(_Icon, New Rectangle(5, 3, 20, 20))
                End If
                G.DrawString(Text, Font, C4, 26, 6)
            Case False
                G.DrawString(Text, Font, C4, 6, 6)
        End Select

        G.DrawLine(Pens.Black, 0, 23, Width, 23)

    End Sub
End Class

Class HackButton
    Inherits ThemeControl153

    Sub New()
        SetColor("BackgroundColor", Color.FromArgb(79, 50, 77))
    End Sub

    Protected Overrides Sub ColorHook()
        C1 = GetColor("BackgroundColor")
    End Sub
    Dim C1 As Color
    Dim C2 As New SolidBrush(Color.FromArgb(204, 204, 204))

    Protected Overrides Sub PaintHook()
        G.Clear(C1)

        DrawBorders(Pens.Black)
        DrawCorners(C1, ClientRectangle)

        DrawText(C2, HorizontalAlignment.Center, 0, 0)
    End Sub
End Class

Class HackPanel
    Inherits ThemeContainer153

    Sub New()
        TransparencyKey = Color.Fuchsia
        SetColor("BackgroundColor", Color.FromArgb(51, 51, 51))
        ControlMode = True
        Transparent = True
    End Sub

    Protected Overrides Sub ColorHook()
        C1 = GetColor("BackgroundColor")
    End Sub
    Dim C1 As Color

    Protected Overrides Sub PaintHook()
        G.Clear(C1)

        DrawBorders(Pens.Black)
        DrawCorners(C1, ClientRectangle)
    End Sub
End Class

Class HackTopButton
    Inherits ThemeControl153

    Sub New()
        SetColor("BackgroundColor", Color.FromArgb(79, 50, 77))
        Size = New Size(19, 17)
    End Sub

    Protected Overrides Sub ColorHook()
        C1 = GetColor("BackgroundColor")
    End Sub
    Dim C1 As Color
    Dim C2 As New SolidBrush(Color.FromArgb(204, 204, 204))

    Protected Overrides Sub PaintHook()
        G.Clear(C1)

        DrawBorders(Pens.Black)
        DrawCorners(C1, ClientRectangle)

        DrawText(C2, HorizontalAlignment.Center, 0, 0)
    End Sub
End Class

Class HackGroupBox
    Inherits ThemeContainer153

    Sub New()
        SetColor("BackgroundColor", Color.FromArgb(51, 51, 51))
        SetColor("Gradient1", Color.FromArgb(79, 50, 77))
        SetColor("Gradient2", Color.FromArgb(99, 70, 97))
        TransparencyKey = Color.Fuchsia
        ControlMode = True
        Transparent = True
        Dock = DockStyle.None
    End Sub

    Protected Overrides Sub ColorHook()
        C1 = GetColor("BackgroundColor")
        C2 = GetColor("Gradient2")
        C3 = GetColor("Gradient1")
    End Sub
    Dim C1, C2, C3 As Color
    Dim C4 As New SolidBrush(Color.FromArgb(204, 204, 204))
    Protected Overrides Sub PaintHook()
        G.Clear(C1)

        G.DrawRectangle(Pens.Black, 0, 0, Width, 23)
        DrawGradient(C3, C2, 0, 0, Width, 23)
        DrawBorders(Pens.Black)
        DrawText(C4, HorizontalAlignment.Center, 0, 0)
    End Sub
End Class

Class HackCheckBox
    Inherits ThemeControl151
    Private C1 As Color
    Private C2, C3 As Color
    Private P1 As Pen
    Private B1 As Brush
    Private B2 As Brush
    Private B3 As Brush
    Private _Checked As Boolean = False
    Public Property Checked() As Boolean
        Get
            Return _Checked
        End Get
        Set(ByVal checked As Boolean)
            _Checked = checked
            Invalidate()
        End Set
    End Property
    Sub New()
        Size = New Size(136, 16)
    End Sub
    Sub changeChecked() Handles Me.Click
        Select Case _Checked
            Case False
                _Checked = True
            Case True
                _Checked = False
        End Select
    End Sub
    Protected Overrides Sub ColorHook()
        C1 = Color.FromArgb(51, 51, 51)
        C2 = Color.FromArgb(99, 70, 97)
        C3 = Color.FromArgb(120, 0, 120)
        P1 = Pens.Black
        B1 = New SolidBrush(Color.FromArgb(15, Color.White))
        B2 = New SolidBrush(Color.FromArgb(204, 204, 204))
        B3 = New SolidBrush(Color.FromArgb(51, 51, 51))
    End Sub

    Protected Overrides Sub PaintHook()
        G.Clear(C1)

        G.FillRectangle(B3, 0, 0, 15, 15)
        G.DrawRectangle(P1, 0, 0, 15, 15)

        If (_Checked = False) Then
            If (State = MouseState.Over) Then
                DrawGradient(C1, C1, 2, 2, 11, 11, 90S)
            Else
                DrawGradient(C1, C1, 2, 2, 11, 11, 90S)
            End If
        Else
            If (State = MouseState.Over) Then
                DrawGradient(C3, C3, 2, 2, 11, 11, 90S)
            Else
                DrawGradient(C3, C3, 2, 2, 11, 11, 90S)
            End If

        End If
        G.FillRectangle(B1, 2, 2, 11, 11)
        G.DrawRectangle(P1, 2, 2, 11, 11)
        DrawText(B2, HorizontalAlignment.Left, 18, 0)
    End Sub
End Class