API tools faq
paste
dlwhdrlf

BoosterTheme

dlwhdrlf
Dec 19th, 2011
11,360
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 20.75 KB | None | 0 0
raw download clone embed print report
  1. Imports System, System.IO, System.Collections.Generic
  2. Imports System.Drawing, System.Drawing.Drawing2D
  3. Imports System.ComponentModel, System.Windows.Forms
  4. Imports System.Runtime.InteropServices
  5. Imports System.Drawing.Imaging
  6.  
  7. '------------------
  8. 'Creator: dlwhdrlf
  9. 'Created: 19/12/2011
  10. 'Version: 1.0.0
  11. '------------------
  12. Class BoosterTheme
  13.     Inherits ThemeContainer154
  14.     Sub New()
  15.         TransparencyKey = Color.Fuchsia
  16.         BackColor = Color.FromArgb(51, 51, 51)
  17.         Header = 25
  18.     End Sub
  19.     Protected Overrides Sub ColorHook()
  20.  
  21.     End Sub
  22.  
  23.     Protected Overrides Sub PaintHook()
  24.         G.Clear(Color.FromArgb(51, 51, 51))
  25.         DrawGradient(Color.FromArgb(29, 29, 29), Color.FromArgb(65, 65, 65), 0, 28, Width, (Height \ 2) - 10)
  26.         DrawGradient(Color.FromArgb(87, 87, 87), Color.FromArgb(49, 49, 49), 0, 0, Width, 25)
  27.         G.DrawLine(Pens.Black, 0, 25, Width, 25)
  28.  
  29.         G.DrawLine(New Pen(Color.FromArgb(192, 74, 74)), 0, 26, Width, 26)
  30.         G.FillRectangle(New SolidBrush(Color.FromArgb(169, 0, 0)), 0, 27, Width, 27)
  31.         G.FillRectangle(New SolidBrush(Color.FromArgb(45, Color.White)), 0, 27, Width, 13)
  32.  
  33.         G.DrawLine(New Pen(Color.FromArgb(38, 38, 38)), 0, Height - 25, Width, Height - 25)
  34.         G.DrawLine(New Pen(Color.FromArgb(64, 64, 64)), 0, Height - 24, Width, Height - 24)
  35.  
  36.         DrawBorders(Pens.Black)
  37.         DrawBorders(New Pen(Color.FromArgb(92, 92, 92)), 1)
  38.  
  39.         DrawCorners(Color.Fuchsia)
  40.         DrawText(Brushes.Black, HorizontalAlignment.Center, 0, 0)
  41.         DrawText(Brushes.White, HorizontalAlignment.Center, 0, 1)
  42.     End Sub
  43. End Class
  44.  
  45. '------------------
  46. 'Creator: dlwhdrlf
  47. 'Created: 19/12/2011
  48. 'Version: 1.0.0
  49. '------------------
  50. Class BoosterTopButton
  51.     Inherits ThemeControl154
  52.     Sub New()
  53.         Transparent = True
  54.         BackColor = Color.Transparent
  55.     End Sub
  56.     Protected Overrides Sub ColorHook()
  57.  
  58.     End Sub
  59.  
  60.     Protected Overrides Sub PaintHook()
  61.  
  62.         DrawGradient(Color.FromArgb(141, 141, 141), Color.FromArgb(23, 23, 23), 0, 0, Width, Height, 45)
  63.         DrawBorders(New Pen(Color.FromArgb(41, 41, 41)), 0)
  64.         DrawBorders(New Pen(Color.FromArgb(41, 41, 41)), 1)
  65.         DrawBorders(Pens.Black, 2)
  66.         G.DrawLine(New Pen(Color.FromArgb(100, 100, 100)), 0, Height - 1, Width, Height - 1)
  67.         DrawGradient(Color.FromArgb(41, 41, 41), Color.FromArgb(100, 100, 100), 0, 0, 1, Height)
  68.         DrawGradient(Color.FromArgb(41, 41, 41), Color.FromArgb(100, 100, 100), Width - 1, 0, Width, Height)
  69.         DrawCorners(BackColor)
  70.         DrawCorners(Color.FromArgb(41, 41, 41), 2)
  71.  
  72.         If State = MouseState.Over Then
  73.             DrawGradient(Color.FromArgb(255, 255, 255), Color.FromArgb(23, 23, 23), 0, 0, Width, Height, 45)
  74.             DrawBorders(New Pen(Color.FromArgb(41, 41, 41)), 0)
  75.             DrawBorders(New Pen(Color.FromArgb(41, 41, 41)), 1)
  76.             DrawBorders(Pens.Black, 2)
  77.             G.DrawLine(New Pen(Color.FromArgb(100, 100, 100)), 0, Height - 1, Width, Height - 1)
  78.             DrawGradient(Color.FromArgb(41, 41, 41), Color.FromArgb(100, 100, 100), 0, 0, 1, Height)
  79.             DrawGradient(Color.FromArgb(41, 41, 41), Color.FromArgb(100, 100, 100), Width - 1, 0, Width, Height)
  80.             DrawCorners(BackColor)
  81.             DrawCorners(Color.FromArgb(41, 41, 41), 2)
  82.         ElseIf State = MouseState.Down Then
  83.             DrawGradient(Color.FromArgb(100, 100, 100), Color.FromArgb(23, 23, 23), 0, 0, Width, Height, 45)
  84.             DrawBorders(New Pen(Color.FromArgb(41, 41, 41)), 0)
  85.             DrawBorders(New Pen(Color.FromArgb(41, 41, 41)), 1)
  86.             DrawBorders(Pens.Black, 2)
  87.             G.DrawLine(New Pen(Color.FromArgb(100, 100, 100)), 0, Height - 1, Width, Height - 1)
  88.             DrawGradient(Color.FromArgb(41, 41, 41), Color.FromArgb(100, 100, 100), 0, 0, 1, Height)
  89.             DrawGradient(Color.FromArgb(41, 41, 41), Color.FromArgb(100, 100, 100), Width - 1, 0, Width, Height)
  90.             DrawCorners(BackColor)
  91.             DrawCorners(Color.FromArgb(41, 41, 41), 2)
  92.         Else
  93.         End If
  94.     End Sub
  95. End Class
  96.  
  97. '------------------
  98. 'Creator: dlwhdrlf
  99. 'Created: 19/12/2011
  100. 'Version: 1.0.0
  101. '------------------
  102. Class BoosterButton
  103.     Inherits ThemeControl154
  104.     Sub New()
  105.         Transparent = True
  106.         BackColor = Color.Transparent
  107.     End Sub
  108.     Protected Overrides Sub ColorHook()
  109.  
  110.     End Sub
  111.  
  112.     Protected Overrides Sub PaintHook()
  113.  
  114.         DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(95, 0, 0), 0, 2, Width \ 2, Height \ 2, 45)
  115.         DrawGradient(Color.FromArgb(95, 0, 0), Color.FromArgb(0, 0, 0), Width \ 2, 2, Width - 15, Height \ 2, -45)
  116.         DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(95, 0, 0), 0, Height \ 2, Width \ 2, Height, 45)
  117.         DrawGradient(Color.FromArgb(95, 0, 0), Color.FromArgb(0, 0, 0), Width \ 2, Height \ 2, Width, Height \ 2, 315)
  118.  
  119.  
  120.         DrawBorders(Pens.Black, 0)
  121.         DrawBorders(Pens.Black, 1)
  122.         DrawBorders(New Pen(Color.FromArgb(95, 0, 0)), 3)
  123.         G.DrawLine(New Pen(Color.FromArgb(93, 93, 93)), 3, 3, Width - 5, 3)
  124.         G.DrawLine(New Pen(Color.FromArgb(73, 73, 73)), 0, Height - 1, Width, Height - 1)
  125.         DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(73, 73, 73), 0, 0, 1, Height)
  126.         DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(73, 73, 73), Width - 1, 0, 1, Height)
  127.  
  128.         If State = MouseState.Over Then
  129.             DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(95, 0, 0), 0, 2, Width \ 2, Height \ 2, 45)
  130.             DrawGradient(Color.FromArgb(95, 0, 0), Color.FromArgb(0, 0, 0), Width \ 2, 2, Width - 15, Height \ 2, -45)
  131.             DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(95, 0, 0), 0, Height \ 2, Width \ 2, Height, 45)
  132.             DrawGradient(Color.FromArgb(95, 0, 0), Color.FromArgb(0, 0, 0), Width \ 2, Height \ 2, Width, Height \ 2, 315)
  133.             G.FillRectangle(New SolidBrush(Color.FromArgb(13, Color.White)), 0, 0, Width, (Height \ 2) - 7)
  134.             DrawBorders(Pens.Black, 0)
  135.             DrawBorders(Pens.Black, 1)
  136.             DrawBorders(New Pen(Color.FromArgb(95, 0, 0)), 3)
  137.             G.DrawLine(New Pen(Color.FromArgb(93, 93, 93)), 3, 3, Width - 5, 3)
  138.             G.DrawLine(New Pen(Color.FromArgb(73, 73, 73)), 0, Height - 1, Width, Height - 1)
  139.             DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(73, 73, 73), 0, 0, 1, Height)
  140.             DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(73, 73, 73), Width - 1, 0, 1, Height)
  141.         ElseIf State = MouseState.Down Then
  142.             DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(95, 0, 0), 0, 2, Width \ 2, Height \ 2, 45)
  143.             DrawGradient(Color.FromArgb(95, 0, 0), Color.FromArgb(0, 0, 0), Width \ 2, 2, Width - 15, Height \ 2, -45)
  144.             DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(95, 0, 0), 0, Height \ 2, Width \ 2, Height, 45)
  145.             DrawGradient(Color.FromArgb(95, 0, 0), Color.FromArgb(0, 0, 0), Width \ 2, Height \ 2, Width, Height \ 2, 315)
  146.             G.FillRectangle(New SolidBrush(Color.FromArgb(20, Color.Black)), 0, 0, Width, (Height \ 2) - 7)
  147.             DrawBorders(Pens.Black, 0)
  148.             DrawBorders(Pens.Black, 1)
  149.             DrawBorders(New Pen(Color.FromArgb(95, 0, 0)), 3)
  150.             G.DrawLine(New Pen(Color.FromArgb(93, 93, 93)), 3, 3, Width - 5, 3)
  151.             G.DrawLine(New Pen(Color.FromArgb(73, 73, 73)), 0, Height - 1, Width, Height - 1)
  152.             DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(73, 73, 73), 0, 0, 1, Height)
  153.             DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(73, 73, 73), Width - 1, 0, 1, Height)
  154.         Else
  155.         End If
  156.  
  157.         DrawCorners(BackColor)
  158.         DrawText(Brushes.White, HorizontalAlignment.Center, 0, 0)
  159.  
  160.     End Sub
  161. End Class
  162.  
  163. '------------------
  164. 'Creator: dlwhdrlf
  165. 'Created: 19/12/2011
  166. 'Version: 1.0.0
  167. '------------------
  168. Class BoosterRedButton
  169.     Inherits ThemeControl154
  170.     Sub New()
  171.         Transparent = True
  172.         BackColor = Color.Transparent
  173.     End Sub
  174.     Protected Overrides Sub ColorHook()
  175.  
  176.     End Sub
  177.  
  178.     Protected Overrides Sub PaintHook()
  179.         DrawGradient(Color.FromArgb(175, 26, 26), Color.FromArgb(124, 0, 0), 0, 0, Width, Height)
  180.         DrawText(Brushes.White, HorizontalAlignment.Center, 0, 0)
  181.         G.FillRectangle(New SolidBrush(Color.FromArgb(30, Color.White)), 0, 0, Width, Height \ 2)
  182.         DrawBorders(New Pen(Color.FromArgb(105, 0, 0)), 0)
  183.         DrawBorders(New Pen(Color.FromArgb(199, 26, 26)), 1)
  184.  
  185.  
  186.         If State = MouseState.Over Then
  187.             G.FillRectangle(New SolidBrush(Color.FromArgb(30, Color.White)), 0, 0, Width, Height)
  188.         ElseIf State = MouseState.Down Then
  189.             DrawGradient(Color.FromArgb(45, 45, 45), Color.FromArgb(0, 0, 0), 0, 0, Width, Height)
  190.             DrawText(Brushes.White, HorizontalAlignment.Center, 0, 0)
  191.             G.FillRectangle(New SolidBrush(Color.FromArgb(15, Color.White)), 0, 0, Width, Height \ 2)
  192.             DrawBorders(Pens.Black)
  193.             DrawBorders(New Pen(Color.FromArgb(73, 73, 73)), 1)
  194.         Else
  195.         End If
  196.  
  197.  
  198.         DrawCorners(BackColor)
  199.     End Sub
  200. End Class
  201.  
  202. '------------------
  203. 'Creator: dlwhdrlf
  204. 'Created: 19/12/2011
  205. 'Version: 1.0.0
  206. '------------------
  207. Class BossterMixedButton
  208.     Inherits ThemeControl154
  209.     Sub New()
  210.         Transparent = True
  211.         BackColor = Color.Transparent
  212.     End Sub
  213.     Protected Overrides Sub ColorHook()
  214.  
  215.     End Sub
  216.  
  217.     Protected Overrides Sub PaintHook()
  218.         DrawGradient(Color.FromArgb(59, 59, 59), Color.FromArgb(24, 24, 24), 0, 0, Width, Height)
  219.         DrawGradient(Color.FromArgb(204, 37, 37), Color.FromArgb(104, 2, 2), 0, 0, (Width \ 5) + 8, Height)
  220.         G.FillRectangle(New SolidBrush(Color.FromArgb(20, Color.White)), 0, 0, Width, Height \ 2)
  221.  
  222.         DrawBorders(New Pen(Color.FromArgb(216, 70, 70)), 1)
  223.         G.DrawLine(New Pen(Color.FromArgb(151, 36, 36)), (Width \ 5) + 7, 1, (Width \ 5) + 7, Height - 1)
  224.         G.DrawLine(New Pen(Color.FromArgb(64, 64, 64)), (Width \ 5) + 8, 1, (Width \ 5) + 8, Height - 1)
  225.         G.DrawLine(New Pen(Color.FromArgb(87, 87, 87)), (Width \ 5) + 8, 1, Width, 1)
  226.         G.DrawLine(New Pen(Color.FromArgb(87, 87, 87)), Width - 2, 1, Width - 2, Height - 1)
  227.         G.DrawLine(New Pen(Color.FromArgb(87, 87, 87)), (Width \ 5) + 8, Height - 2, Width, Height - 2)
  228.         DrawBorders(Pens.Black)
  229.         DrawCorners(BackColor)
  230.  
  231.         If State = MouseState.Over Then
  232.             G.FillRectangle(New SolidBrush(Color.FromArgb(30, Color.White)), (Width \ 5) + 8, 0, Width, Height)
  233.             DrawBorders(New Pen(Color.FromArgb(216, 70, 70)), 1)
  234.             G.DrawLine(New Pen(Color.FromArgb(151, 36, 36)), (Width \ 5) + 7, 1, (Width \ 5) + 7, Height - 1)
  235.             G.DrawLine(New Pen(Color.FromArgb(64, 64, 64)), (Width \ 5) + 8, 1, (Width \ 5) + 8, Height - 1)
  236.             G.DrawLine(New Pen(Color.FromArgb(87, 87, 87)), (Width \ 5) + 8, 1, Width, 1)
  237.             G.DrawLine(New Pen(Color.FromArgb(87, 87, 87)), Width - 2, 1, Width - 2, Height - 1)
  238.             G.DrawLine(New Pen(Color.FromArgb(87, 87, 87)), (Width \ 5) + 8, Height - 2, Width, Height - 2)
  239.             DrawBorders(Pens.Black)
  240.         ElseIf State = MouseState.Down Then
  241.             DrawGradient(Color.FromArgb(45, 45, 45), Color.FromArgb(0, 0, 0), (Width \ 5) + 8, 0, Width, Height)
  242.             G.FillRectangle(New SolidBrush(Color.FromArgb(15, Color.White)), (Width \ 5) + 8, 0, Width, Height \ 2)
  243.             DrawBorders(New Pen(Color.FromArgb(216, 70, 70)), 1)
  244.             G.DrawLine(New Pen(Color.FromArgb(151, 36, 36)), (Width \ 5) + 7, 1, (Width \ 5) + 7, Height - 1)
  245.             G.DrawLine(New Pen(Color.FromArgb(64, 64, 64)), (Width \ 5) + 8, 1, (Width \ 5) + 8, Height - 1)
  246.             G.DrawLine(New Pen(Color.FromArgb(87, 87, 87)), (Width \ 5) + 8, 1, Width, 1)
  247.             G.DrawLine(New Pen(Color.FromArgb(87, 87, 87)), Width - 2, 1, Width - 2, Height - 1)
  248.             G.DrawLine(New Pen(Color.FromArgb(87, 87, 87)), (Width \ 5) + 8, Height - 2, Width, Height - 2)
  249.             DrawBorders(Pens.Black)
  250.         Else
  251.         End If
  252.  
  253.         DrawText(Brushes.White, HorizontalAlignment.Center, 8, 0)
  254.     End Sub
  255. End Class
  256.  
  257. '------------------
  258. 'Creator: dlwhdrlf
  259. 'Created: 19/12/2011
  260. 'Version: 1.0.0
  261. '------------------
  262. Class BoosterProgressbar
  263.     Inherits ThemeControl154
  264.  
  265.     Private _Value As Integer
  266.     Property Value() As Integer
  267.         Get
  268.             Return _Value
  269.         End Get
  270.         Set(ByVal value As Integer)
  271.             If value > _Maximum Then value = _Maximum
  272.             If value < 0 Then value = 0
  273.  
  274.             _Value = value
  275.             Invalidate()
  276.         End Set
  277.     End Property
  278.  
  279.     Private _Maximum As Integer = 100
  280.     Property Maximum() As Integer
  281.         Get
  282.             Return _Maximum
  283.         End Get
  284.         Set(ByVal value As Integer)
  285.             If value < 1 Then value = 1
  286.             If _Value > value Then _Value = value
  287.  
  288.             _Maximum = value
  289.             Invalidate()
  290.         End Set
  291.     End Property
  292.  
  293.     Sub New()
  294.         Transparent = True
  295.         BackColor = Color.Transparent
  296.     End Sub
  297.  
  298.     Protected Overrides Sub ColorHook()
  299.  
  300.     End Sub
  301.  
  302.     Protected Overrides Sub PaintHook()
  303.         G.Clear(BackColor)
  304.  
  305.         DrawGradient(Color.FromArgb(226, 226, 226), Color.FromArgb(168, 168, 168), 0, 0, CInt((_Value / _Maximum) * Width - 1), Height)
  306.         G.DrawLine(Pens.White, 0, 2, CInt((_Value / _Maximum) * Width - 2), 2)
  307.  
  308.         CreateRound(0, 0, Width, Height, 5)
  309.         DrawBorders(Pens.Black)
  310.         DrawBorders(New Pen(Color.FromArgb(92, 92, 92)), 1)
  311.         DrawCorners(BackColor)
  312.     End Sub
  313. End Class
  314.  
  315. '------------------
  316. 'Creator: dlwhdrlf
  317. 'Created: 19/12/2011
  318. 'Version: 1.0.0
  319. '------------------
  320. Class BoosterGreyProgressbar
  321.     Inherits ThemeControl154
  322.  
  323.     Private _Value As Integer
  324.     Property Value() As Integer
  325.         Get
  326.             Return _Value
  327.         End Get
  328.         Set(ByVal value As Integer)
  329.             If value > _Maximum Then value = _Maximum
  330.             If value < 0 Then value = 0
  331.  
  332.             _Value = value
  333.             Invalidate()
  334.         End Set
  335.     End Property
  336.  
  337.     Private _Maximum As Integer = 100
  338.     Property Maximum() As Integer
  339.         Get
  340.             Return _Maximum
  341.         End Get
  342.         Set(ByVal value As Integer)
  343.             If value < 1 Then value = 1
  344.             If _Value > value Then _Value = value
  345.  
  346.             _Maximum = value
  347.             Invalidate()
  348.         End Set
  349.     End Property
  350.  
  351.     Sub New()
  352.         Transparent = True
  353.         BackColor = Color.Transparent
  354.     End Sub
  355.  
  356.     Protected Overrides Sub ColorHook()
  357.  
  358.     End Sub
  359.  
  360.     Protected Overrides Sub PaintHook()
  361.         G.Clear(BackColor)
  362.  
  363.         DrawGradient(Color.FromArgb(129, 129, 129), Color.FromArgb(75, 75, 75), 0, 0, CInt((_Value / _Maximum) * Width - 1), Height)
  364.         G.DrawLine(New Pen(Color.FromArgb(182, 182, 182)), 0, 2, CInt((_Value / _Maximum) * Width - 2), 2)
  365.  
  366.         CreateRound(0, 0, Width, Height, 5)
  367.         DrawBorders(Pens.Black)
  368.         DrawBorders(New Pen(Color.FromArgb(91, 91, 91)), 1)
  369.         DrawCorners(BackColor)
  370.     End Sub
  371. End Class
  372.  
  373. '------------------
  374. 'Creator: dlwhdrlf
  375. 'Created: 19/12/2011
  376. 'Version: 1.0.0
  377. '------------------
  378. Class BoosterRedProgressbar
  379.     Inherits ThemeControl154
  380.  
  381.     Private _Value As Integer
  382.     Property Value() As Integer
  383.         Get
  384.             Return _Value
  385.         End Get
  386.         Set(ByVal value As Integer)
  387.             If value > _Maximum Then value = _Maximum
  388.             If value < 0 Then value = 0
  389.  
  390.             _Value = value
  391.             Invalidate()
  392.         End Set
  393.     End Property
  394.  
  395.     Private _Maximum As Integer = 100
  396.     Property Maximum() As Integer
  397.         Get
  398.             Return _Maximum
  399.         End Get
  400.         Set(ByVal value As Integer)
  401.             If value < 1 Then value = 1
  402.             If _Value > value Then _Value = value
  403.  
  404.             _Maximum = value
  405.             Invalidate()
  406.         End Set
  407.     End Property
  408.  
  409.     Sub New()
  410.         Transparent = True
  411.         BackColor = Color.Transparent
  412.     End Sub
  413.  
  414.     Protected Overrides Sub ColorHook()
  415.  
  416.     End Sub
  417.  
  418.     Protected Overrides Sub PaintHook()
  419.         G.Clear(Color.FromArgb(66, 0, 0))
  420.  
  421.         G.FillRectangle(New SolidBrush(Color.FromArgb(204, 0, 0)), 0, 0, CInt((_Value / _Maximum) * Width - 1), Height)
  422.  
  423.         CreateRound(0, 0, Width, Height, 5)
  424.         G.DrawLine(New Pen(Color.FromArgb(32, 32, 32)), 0, 1, Width, 1)
  425.         DrawBorders(New Pen(Color.FromArgb(70, 70, 70)), 0)
  426.         G.DrawLine(New Pen(Color.FromArgb(138, 139, 138)), 0, Height - 1, Width, Height - 1)
  427.         DrawGradient(Color.FromArgb(70, 70, 70), Color.FromArgb(138, 139, 138), 0, 0, 1, Height)
  428.         DrawGradient(Color.FromArgb(70, 70, 70), Color.FromArgb(138, 139, 138), Width - 1, 0, Width, Height)
  429.     End Sub
  430. End Class
  431.  
  432. '------------------
  433. 'Creator: dlwhdrlf
  434. 'Created: 19/12/2011
  435. 'Version: 1.0.0
  436. '------------------
  437. Class BoosterControlpanel
  438.     Inherits ThemeContainer154
  439.  
  440.     Sub New()
  441.         ControlMode = True
  442.         Transparent = True
  443.         BackColor = Color.Transparent
  444.         Header = 20
  445.     End Sub
  446.     Protected Overrides Sub ColorHook()
  447.  
  448.     End Sub
  449.  
  450.     Protected Overrides Sub PaintHook()
  451.         G.Clear(Color.FromArgb(51, 51, 51))
  452.         DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(52, 0, 0), 0, 0, Width, 20)
  453.  
  454.         G.DrawLine(New Pen(Color.FromArgb(92, 92, 92)), 0, 21, Width, 21)
  455.         G.DrawLine(Pens.Black, 0, 20, Width, 20)
  456.         DrawBorders(Pens.Black)
  457.  
  458.         DrawText(Brushes.White, HorizontalAlignment.Left, 8, 3)
  459.  
  460.         DrawBorders(New Pen(Color.FromArgb(92, 92, 92)), 1)
  461.     End Sub
  462. End Class
  463.  
  464. '------------------
  465. 'Creator: dlwhdrlf
  466. 'Created: 19/12/2011
  467. 'Version: 1.0.0
  468. '------------------
  469. <DefaultEvent("CheckedChanged")> _
  470. Class BoosterCheckBox
  471.     Inherits ThemeControl154
  472.  
  473.     Sub New()
  474.         Transparent = True
  475.         BackColor = Color.Transparent
  476.         LockHeight = 15
  477.     End Sub
  478.     Protected Overrides Sub ColorHook()
  479.  
  480.     End Sub
  481.  
  482.     Protected Overrides Sub PaintHook()
  483.         Dim CheckRectangle As New Rectangle(1, 1, Height - 2, Height - 2)
  484.  
  485.         G.Clear(BackColor)
  486.  
  487.  
  488.  
  489.  
  490.         Select Case _Checked
  491.             Case True
  492.                 G.FillRectangle(New SolidBrush(Color.FromArgb(129, 10, 10)), CheckRectangle)
  493.                 G.FillRectangle(New SolidBrush(Color.FromArgb(30, Color.White)), 1, 1, Height - 2, Height \ 2)
  494.             Case False
  495.                 G.FillRectangle(New SolidBrush(Color.FromArgb(51, 28, 28)), CheckRectangle)
  496.         End Select
  497.  
  498.         G.DrawRectangle(New Pen(Color.FromArgb(92, 92, 92)), 2, 2, Height - 4, Height - 4)
  499.         G.DrawRectangle(Pens.Black, CheckRectangle)
  500.  
  501.         DrawText(Brushes.White, HorizontalAlignment.Left, 18, 1)
  502.     End Sub
  503.  
  504.  
  505.     Private Property _Checked As Boolean = False
  506.     Property Checked() As Boolean
  507.         Get
  508.             Return _Checked
  509.         End Get
  510.         Set(ByVal v As Boolean)
  511.             _Checked = v
  512.         End Set
  513.     End Property
  514.     Protected Overrides Sub OnClick(ByVal e As System.EventArgs)
  515.         _Checked = Not _Checked
  516.         RaiseEvent CheckedChanged(Me)
  517.         MyBase.OnClick(e)
  518.     End Sub
  519.     Event CheckedChanged(ByVal sender As Object)
  520. End Class
  521.  
  522. '------------------
  523. 'Creator: dlwhdrlf
  524. 'Created: 19/12/2011
  525. 'Version: 1.0.0
  526. '------------------
  527. <DefaultEvent("CheckedChanged")> _
  528. Class BoosterRadioButton
  529.     Inherits ThemeControl154
  530.  
  531.     Sub New()
  532.         Transparent = True
  533.         BackColor = Color.Transparent
  534.         LockHeight = 15
  535.     End Sub
  536.     Protected Overrides Sub ColorHook()
  537.  
  538.     End Sub
  539.  
  540.     Protected Overrides Sub PaintHook()
  541.         G.Clear(BackColor)
  542.  
  543.  
  544.  
  545.  
  546.         Select Case _Checked
  547.             Case True
  548.                 G.FillEllipse(New SolidBrush(Color.FromArgb(129, 10, 10)), 2, 2, Height - 3, Height - 3)
  549.                 G.FillEllipse(New SolidBrush(Color.FromArgb(30, Color.White)), 2, 2, Height - 3, Height \ 2)
  550.             Case False
  551.                 G.FillEllipse(New SolidBrush(Color.FromArgb(51, 28, 28)), 2, 2, Height - 3, Height - 3)
  552.         End Select
  553.  
  554.         G.DrawEllipse(New Pen(Color.FromArgb(92, 92, 92)), 2, 2, Height - 3, Height - 3)
  555.         G.DrawEllipse(Pens.Black, 1, 1, Height - 1, Height - 1)
  556.  
  557.         DrawText(Brushes.White, HorizontalAlignment.Left, 18, 1)
  558.     End Sub
  559.  
  560.  
  561.     Private Property _Checked As Boolean = False
  562.     Property Checked() As Boolean
  563.         Get
  564.             Return _Checked
  565.         End Get
  566.         Set(ByVal v As Boolean)
  567.             _Checked = v
  568.         End Set
  569.     End Property
  570.     Protected Overrides Sub OnClick(ByVal e As System.EventArgs)
  571.         _Checked = Not _Checked
  572.         RaiseEvent CheckedChanged(Me)
  573.         MyBase.OnClick(e)
  574.     End Sub
  575.     Event CheckedChanged(ByVal sender As Object)
  576. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!