Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports System.Drawing.Drawing2D
- 'Theme
- Class AdvantiumTheme
- Inherits ThemeContainer151
- Sub New()
- TransparencyKey = Color.Fuchsia
- MoveHeight = 35
- SetColor("BackColor", Color.FromArgb(40, 40, 40))
- SetColor("BorderInner", Color.FromArgb(65, 65, 65))
- SetColor("BorderColor", Color.Black)
- SetColor("TextColor", Color.LawnGreen)
- End Sub
- Dim C1, BC, BA, T1 As Color
- Protected Overrides Sub ColorHook()
- C1 = GetColor("BackColor")
- BC = GetColor("BorderColor")
- BA = GetColor("BorderInner")
- T1 = GetColor("TextColor")
- End Sub
- Protected Overrides Sub PaintHook()
- G.Clear(C1)
- DrawGradient(Color.FromArgb(20, 20, 20), Color.FromArgb(40, 40, 40), New Rectangle(0, 0, Width, 35), 90S)
- Dim T As New HatchBrush(HatchStyle.Percent10, Color.FromArgb(25, 25, 25), Color.FromArgb(35, 35, 35))
- G.FillRectangle(T, New Rectangle(11, 25, Width - 23, Height - 36))
- G.DrawRectangle(New Pen(New SolidBrush(Color.FromArgb(22, 22, 22))), New Rectangle(11, 25, Width - 23, Height - 36))
- G.DrawRectangle(New Pen(New SolidBrush(Color.FromArgb(40, 40, 40))), New Rectangle(12, 26, Width - 25, Height - 38))
- DrawCorners(Color.FromArgb(40, 40, 40), New Rectangle(11, 25, Width - 22, Height - 35))
- DrawBorders(New Pen(New SolidBrush(BA)), 1)
- DrawBorders(New Pen(New SolidBrush(BC)))
- DrawCorners(TransparencyKey)
- DrawText(New SolidBrush(T1), HorizontalAlignment.Left, 15, -3)
- End Sub
- End Class
- 'Button
- Class AdvantiumButton
- Inherits ThemeControl151
- Sub New()
- SetColor("BackColor", Color.FromArgb(40, 40, 40))
- SetColor("TextColor", Color.LawnGreen)
- End Sub
- Dim C1, T1 As Color
- Protected Overrides Sub ColorHook()
- C1 = GetColor("BackColor")
- T1 = GetColor("TextColor")
- End Sub
- Protected Overrides Sub PaintHook()
- G.Clear(C1)
- Select Case State
- Case 0 'None
- DrawGradient(Color.FromArgb(50, 50, 50), Color.FromArgb(42, 42, 42), ClientRectangle, 90S)
- Cursor = Cursors.Arrow
- Case 1 'Down
- DrawGradient(Color.FromArgb(50, 50, 50), Color.FromArgb(42, 42, 42), ClientRectangle, 90S)
- Cursor = Cursors.Hand
- Case 2 'Over
- DrawGradient(Color.FromArgb(42, 42, 42), Color.FromArgb(50, 50, 50), ClientRectangle, 90S)
- Cursor = Cursors.Hand
- End Select
- DrawBorders(New Pen(New SolidBrush(Color.FromArgb(59, 59, 59))), 1)
- DrawBorders(New Pen(New SolidBrush(Color.FromArgb(25, 25, 25))))
- DrawCorners(Color.FromArgb(35, 35, 35))
- DrawText(New SolidBrush(T1), HorizontalAlignment.Center, 0, 0)
- End Sub
- End Class
- 'Top Button
- Class AdvantiumTopButton
- Inherits ThemeControl151
- Sub New()
- SetColor("BackColor", Color.FromArgb(40, 40, 40))
- SetColor("TextColor", Color.LawnGreen)
- Size = New Size(28, 26)
- End Sub
- Dim C1, T1 As Color
- Protected Overrides Sub ColorHook()
- C1 = GetColor("BackColor")
- T1 = GetColor("TextColor")
- End Sub
- Protected Overrides Sub PaintHook()
- G.Clear(C1)
- Select Case State
- Case 0 'None
- DrawGradient(Color.FromArgb(38, 38, 38), Color.FromArgb(30, 30, 30), ClientRectangle, 90S)
- Cursor = Cursors.Arrow
- Case 1 'Down
- DrawGradient(Color.FromArgb(50, 50, 50), Color.FromArgb(42, 42, 42), ClientRectangle, 90S)
- Cursor = Cursors.Hand
- Case 2 'Over
- DrawGradient(Color.FromArgb(42, 42, 42), Color.FromArgb(50, 50, 50), ClientRectangle, 90S)
- Cursor = Cursors.Hand
- End Select
- DrawBorders(New Pen(New SolidBrush(Color.FromArgb(65, 65, 65))), New Rectangle(1, 0, Width - 2, Height))
- DrawBorders(New Pen(New SolidBrush(Color.FromArgb(22, 22, 22))))
- G.DrawLine(New Pen(New SolidBrush(Color.FromArgb(22, 22, 22))), 2, Height - 1, Width - 3, Height - 1)
- G.DrawLine(New Pen(New SolidBrush(Color.FromArgb(65, 65, 65))), 0, 1, Width - 1, 1)
- G.DrawLine(New Pen(New SolidBrush(Color.Black)), 0, 0, Width, 0)
- End Sub
- End Class
- 'CheckBox
- Class AdvantiumCheck
- Inherits ThemeControl151
- Private _CheckedState As Boolean
- Public Property CheckedState() As Boolean
- Get
- Return _CheckedState
- End Get
- Set(ByVal v As Boolean)
- _CheckedState = v
- Invalidate()
- End Set
- End Property
- Sub New()
- Size = New Size(100, 15)
- MinimumSize = New Size(16, 16)
- MaximumSize = New Size(600, 16)
- CheckedState = False
- SetColor("CheckBorderOut", Color.FromArgb(25, 25, 25))
- SetColor("CheckBorderIn", Color.FromArgb(59, 59, 59))
- SetColor("TextColor", Color.LawnGreen)
- SetColor("CheckBack1", Color.FromArgb(132, 192, 240))
- SetColor("CheckBack2", Color.LawnGreen)
- SetColor("CheckFore1", Color.LawnGreen)
- SetColor("CheckFore2", Color.FromArgb(42, 242, 77))
- SetColor("ColorUncheck", Color.FromArgb(35, 35, 35))
- SetColor("BackColor", Color.FromArgb(35, 35, 35))
- End Sub
- Dim C1, C2, C3, C4, C5, C6, P1, P2, B1 As Color
- Protected Overrides Sub ColorHook()
- C1 = GetColor("CheckBack1")
- C2 = GetColor("CheckBack2")
- C3 = GetColor("CheckFore1")
- C4 = GetColor("CheckFore2")
- C5 = GetColor("ColorUncheck")
- C6 = GetColor("BackColor")
- P1 = GetColor("CheckBorderOut")
- P2 = GetColor("CheckBorderIn")
- B1 = GetColor("TextColor")
- End Sub
- Protected Overrides Sub PaintHook()
- G.Clear(C6)
- Select Case CheckedState
- Case True
- DrawGradient(C1, C2, 3, 3, 9, 9, 90S)
- DrawGradient(C3, C4, 4, 4, 7, 7, 90S)
- Case False
- DrawGradient(C5, C5, 0, 0, 15, 15, 90S)
- End Select
- G.DrawRectangle(New Pen(New SolidBrush(P1)), 0, 0, 14, 14)
- G.DrawRectangle(New Pen(New SolidBrush(P2)), 1, 1, 12, 12)
- DrawText(New SolidBrush(B1), 17, 0)
- DrawCorners(C6, New Rectangle(0, 0, 13, 13))
- End Sub
- Sub changeCheck() Handles Me.Click
- Select Case CheckedState
- Case True
- CheckedState = False
- Case False
- CheckedState = True
- End Select
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement