API tools faq
paste
Advertisement
dlwhdrlf

SubspaceTheme

dlwhdrlf
Dec 17th, 2011
6,592
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 15.06 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: 17/12/2011
  10. 'Version: 1.0.0
  11. '------------------
  12. Class SubspaceTheme
  13.     Inherits ThemeContainer154
  14.     Sub New()
  15.         TransparencyKey = Color.Fuchsia
  16.         BackColor = Color.FromArgb(30, 30, 30)
  17.         Header = 30
  18.     End Sub
  19.     Protected Overrides Sub ColorHook()
  20.  
  21.     End Sub
  22.  
  23.     Protected Overrides Sub PaintHook()
  24.         'Body
  25.         G.Clear(Color.FromArgb(30, 30, 30))
  26.         G.FillRectangle(Brushes.Fuchsia, 0, 0, Width, 5)
  27.         DrawBorders(Pens.Black, 0, 30, Width, Height)
  28.  
  29.         'HeaderShadow
  30.         DrawGradient(Color.Black, Color.FromArgb(30, 30, 30), 1, 28, Width, 10)
  31.  
  32.         'BottomBody
  33.         DrawGradient(Color.FromArgb(30, 30, 30), Color.Black, 0, Height - 23, Width, 10)
  34.         DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(57, 57, 58), 0, Height - 12, Width \ 2, Height, 360)
  35.         DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(57, 57, 58), Width \ 2, Height - 12, Width \ 2, Height, 180)
  36.         G.DrawLine(Pens.Black, 0, Height - 13, Width, Height - 13)
  37.         G.DrawLine(New Pen(Color.FromArgb(57, 57, 58)), Width \ 2, Height - 11, Width \ 2, Height)
  38.  
  39.  
  40.         'LeftSideBody
  41.         G.FillRectangle(Brushes.Black, 0, 30, 8, Height)
  42.         DrawBorders(Pens.Black, 1, 30, 9, Height - 2)
  43.         G.DrawLine(New Pen(Color.FromArgb(40, 40, 40)), 8, 30, 8, Height)
  44.  
  45.         'RightSideBody
  46.         G.FillRectangle(Brushes.Black, Width - 9, 30, 11, Height - 20)
  47.         DrawBorders(Pens.Black, Width - 10, 30, 11, Height - 2)
  48.         G.DrawLine(New Pen(Color.FromArgb(60, 60, 60)), Width - 9, 30, Width - 9, Height)
  49.  
  50.  
  51.  
  52.         'Header
  53.         G.FillRectangle(Brushes.Black, 0, 5, Width, 24)
  54.         DrawText(Brushes.DodgerBlue, HorizontalAlignment.Left, 55, 2)
  55.         G.FillRectangle(New SolidBrush(Color.FromArgb(50, Color.White)), 0, 5, Width - 1, 11)
  56.         DrawBorders(Pens.Black, 1, 4, Width - 2, 24)
  57.         G.DrawLine(New Pen(Color.FromArgb(108, 108, 108)), 1, 5, Width, 5)
  58.         G.DrawLine(New Pen(Color.FromArgb(60, 60, 60)), 1, 28, Width - 2, 28)
  59.         G.DrawLine(Pens.Black, 1, 30, Width - 3, 30)
  60.  
  61.         '-----------------------------------------------------
  62.         'Box
  63.         DrawBorders(Pens.Black, 8, 0, 34, 32)
  64.         DrawGradient(Color.FromArgb(57, 57, 58), Color.FromArgb(2, 4, 12), 9, 1, 32, 16)
  65.         DrawGradient(Color.FromArgb(2, 4, 23), Color.FromArgb(57, 57, 58), 9, 15, 32, 16)
  66.         'Lines
  67.         DrawGradient(Color.FromArgb(100, 213, 255), Color.FromArgb(51, 162, 255), 17, 8, 3, 15)
  68.         DrawGradient(Color.FromArgb(100, 213, 255), Color.FromArgb(51, 162, 255), CInt(47 / 2), 4.5, 3, 20.5)
  69.         DrawGradient(Color.FromArgb(100, 213, 255), Color.FromArgb(51, 162, 255), 30, 8, 3, 15)
  70.  
  71.         DrawImage(HorizontalAlignment.Left, 9, 1)
  72.  
  73.         'Gloss
  74.         G.FillRectangle(New SolidBrush(Color.FromArgb(15, Color.White)), 10, 2, 31, 13)
  75.         '------------------------------------------------------
  76.  
  77.         'SideBoxes
  78.         DrawGradient(Color.FromArgb(10, 10, 10), Color.FromArgb(47, 47, 47), 42, 2, 5, 15)
  79.         DrawGradient(Color.FromArgb(47, 47, 47), Color.FromArgb(10, 10, 10), 42, 15, 5, 15)
  80.         DrawGradient(Color.FromArgb(47, 47, 47), Color.FromArgb(10, 10, 10), 3, 2, 5, 15)
  81.         DrawGradient(Color.FromArgb(10, 10, 10), Color.FromArgb(47, 47, 47), 3, 15, 5, 15)
  82.         DrawBorders(Pens.Black, 42, 2, 5, 29)
  83.         DrawBorders(Pens.Black, 3, 2, 5, 29)
  84.         G.DrawLine(Pens.Black, 3, 15, 7, 15)
  85.         G.DrawLine(Pens.Black, 42, 15, 46, 15)
  86.  
  87.         'Animation
  88.  
  89.  
  90.         'Icon
  91.  
  92.         G.DrawLine(Pens.Black, 0, Height - 1, Width, Height - 1)
  93.         DrawCorners(Color.Fuchsia)
  94.     End Sub
  95. End Class
  96.  
  97. '------------------
  98. 'Creator: dlwhdrlf
  99. 'Created: 17/12/2011
  100. 'Version: 1.0.0
  101. '------------------
  102. Class SubspaceTopButton
  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.         G.Clear(Color.Black)
  114.         DrawBorders(Pens.Black)
  115.         DrawBorders(New Pen(Color.FromArgb(69, 71, 70)), 1)
  116.         DrawBorders(Pens.Black, 2)
  117.         DrawGradient(Color.White, Color.FromArgb(69, 71, 70), 1, 1, Width \ 2, 1, 360)
  118.         DrawGradient(Color.White, Color.FromArgb(69, 71, 70), 1, 1, 1, Height \ 2)
  119.         G.FillRectangle(New SolidBrush(Color.FromArgb(40, Color.White)), 0, 0, Width, 13)
  120.  
  121.         If State = MouseState.Over Then
  122.             DrawGradient(Color.FromArgb(98, 192, 255), Color.FromArgb(59, 144, 255), 0, 0, Width, Height)
  123.             DrawBorders(New Pen(Color.FromArgb(0, 44, 190), 0))
  124.             DrawBorders(New Pen(Color.FromArgb(84, 177, 255)), 1)
  125.             DrawGradient(Color.White, Color.FromArgb(84, 177, 255), 1, 1, Width \ 2, 1, 360)
  126.             DrawGradient(Color.White, Color.FromArgb(84, 177, 255), 1, 1, 1, Height \ 2)
  127.             G.FillRectangle(New SolidBrush(Color.FromArgb(40, Color.White)), 0, 0, Width, 13)
  128.         ElseIf State = MouseState.Down Then
  129.             DrawGradient(Color.FromArgb(84, 182, 255), Color.FromArgb(45, 134, 255), 0, 0, Width, Height)
  130.             DrawBorders(New Pen(Color.FromArgb(0, 44, 190), 0))
  131.             DrawBorders(New Pen(Color.FromArgb(84, 177, 255)), 1)
  132.             DrawGradient(Color.White, Color.FromArgb(84, 177, 255), 1, 1, Width \ 2, 1, 360)
  133.             DrawGradient(Color.White, Color.FromArgb(84, 177, 255), 1, 1, 1, Height \ 2)
  134.             G.FillRectangle(New SolidBrush(Color.FromArgb(40, Color.White)), 0, 0, Width, 13)
  135.         Else
  136.         End If
  137.  
  138.         G.FillRectangle(New SolidBrush(Color.FromArgb(13, Color.White)), 3, 3, Width - 6, 8)
  139.         DrawCorners(BackColor, 1)
  140.     End Sub
  141. End Class
  142.  
  143. '------------------
  144. 'Creator: dlwhdrlf
  145. 'Created: 17/12/2011
  146. 'Version: 1.0.0
  147. '------------------
  148. Class SubspaceButton
  149.     Inherits ThemeControl154
  150.  
  151.     Sub New()
  152.         Transparent = True
  153.         BackColor = Color.Transparent
  154.     End Sub
  155.  
  156.     Protected Overrides Sub ColorHook()
  157.  
  158.     End Sub
  159.  
  160.     Protected Overrides Sub PaintHook()
  161.         DrawGradient(Color.FromArgb(25, 25, 25), Color.Black, 0, 0, Width, Height, 45)
  162.         DrawText(Brushes.DodgerBlue, HorizontalAlignment.Center, 0, 0)
  163.         G.FillRectangle(New SolidBrush(Color.FromArgb(40, Color.White)), 0, 0, Width, Height \ 2)
  164.         DrawBorders(Pens.Black)
  165.         DrawBorders(New Pen(Color.FromArgb(69, 71, 70)), 1)
  166.         DrawGradient(Color.White, Color.FromArgb(69, 71, 70), 1, 1, Width \ 2, 1, 360)
  167.         DrawGradient(Color.White, Color.FromArgb(69, 71, 70), 1, 1, 1, Height \ 2)
  168.         DrawGradient(Color.White, Color.FromArgb(69, 71, 70), Width - 2, 1, 1, Height \ 2, 270)
  169.         DrawGradient(Color.White, Color.FromArgb(69, 71, 70), Width - 2, Height \ 2, 1, Height \ 2)
  170.  
  171.         If State = MouseState.Over Then
  172.             DrawGradient(Color.FromArgb(98, 192, 255), Color.FromArgb(59, 144, 255), 0, 0, Width, Height, 45)
  173.             DrawBorders(New Pen(Color.FromArgb(0, 44, 190), 0))
  174.             DrawBorders(New Pen(Color.FromArgb(84, 177, 255)), 1)
  175.             DrawGradient(Color.White, Color.FromArgb(84, 177, 255), 1, 1, Width \ 2, 1, 360)
  176.             DrawGradient(Color.White, Color.FromArgb(84, 177, 255), 1, 1, 1, Height \ 2)
  177.             DrawText(Brushes.Black, HorizontalAlignment.Center, 0, 0)
  178.             G.FillRectangle(New SolidBrush(Color.FromArgb(40, Color.White)), 0, 0, Width, 13)
  179.             DrawCorners(BackColor, 1)
  180.         ElseIf State = MouseState.Down Then
  181.             DrawGradient(Color.FromArgb(84, 182, 255), Color.FromArgb(45, 134, 255), 0, 0, Width, Height, 45)
  182.             DrawBorders(New Pen(Color.FromArgb(0, 44, 190), 0))
  183.             DrawBorders(New Pen(Color.FromArgb(84, 177, 255)), 1)
  184.             DrawGradient(Color.White, Color.FromArgb(84, 177, 255), 1, 1, Width \ 2, 1, 360)
  185.             DrawGradient(Color.White, Color.FromArgb(84, 177, 255), 1, 1, 1, Height \ 2)
  186.             DrawText(Brushes.Black, HorizontalAlignment.Center, 0, 0)
  187.             G.FillRectangle(New SolidBrush(Color.FromArgb(40, Color.White)), 0, 0, Width, 13)
  188.             DrawCorners(BackColor, 1)
  189.         Else
  190.         End If
  191.  
  192.         DrawCorners(BackColor, 1)
  193.     End Sub
  194. End Class
  195.  
  196. '------------------
  197. 'Creator: dlwhdrlf
  198. 'Created: 17/12/2011
  199. 'Version: 1.0.0
  200. '------------------
  201. Class SubspaceProgressbar
  202.     Inherits ThemeControl154
  203.  
  204.     Private _Value As Integer
  205.     Property Value() As Integer
  206.         Get
  207.             Return _Value
  208.         End Get
  209.         Set(ByVal value As Integer)
  210.             If value > _Maximum Then value = _Maximum
  211.             If value < 0 Then value = 0
  212.  
  213.             _Value = value
  214.             Invalidate()
  215.         End Set
  216.     End Property
  217.  
  218.     Private _Maximum As Integer = 100
  219.     Property Maximum() As Integer
  220.         Get
  221.             Return _Maximum
  222.         End Get
  223.         Set(ByVal value As Integer)
  224.             If value < 1 Then value = 1
  225.             If _Value > value Then _Value = value
  226.  
  227.             _Maximum = value
  228.             Invalidate()
  229.         End Set
  230.     End Property
  231.  
  232.     Protected Overrides Sub ColorHook()
  233.  
  234.     End Sub
  235.  
  236.     Protected Overrides Sub PaintHook()
  237.         DrawGradient(Color.Black, Color.FromArgb(40, 40, 40), 0, 0, Width, Height, 2)
  238.  
  239.         DrawGradient(Color.FromArgb(84, 182, 255), Color.FromArgb(45, 134, 255), 0, 0, CInt((_Value / _Maximum) * Width - 1), Height)
  240.         G.FillRectangle(New SolidBrush(Color.FromArgb(30, Color.White)), 0, 0, CInt((_Value / _Maximum) * Width - 1), Height \ 2)
  241.  
  242.         DrawBorders(Pens.Black)
  243.         DrawBorders(Pens.Black, 2)
  244.         DrawBorders(New Pen(Color.FromArgb(69, 71, 70)), 1)
  245.         DrawGradient(Color.White, Color.Black, 0, 0, Width \ 4, 1, 360)
  246.         DrawGradient(Color.White, Color.Black, 0, 0, 1, Height \ 2)
  247.     End Sub
  248. End Class
  249.  
  250. '------------------
  251. 'Creator: dlwhdrlf
  252. 'Created: 17/12/2011
  253. 'Version: 1.0.0
  254. '------------------
  255. Class Subspacegroupbox
  256.     Inherits ThemeContainer154
  257.     Sub New()
  258.         ControlMode = True
  259.         Header = 18
  260.     End Sub
  261.     Protected Overrides Sub ColorHook()
  262.  
  263.     End Sub
  264.  
  265.     Protected Overrides Sub PaintHook()
  266.         G.Clear(Color.FromArgb(30, 30, 30))
  267.         DrawBorders(Pens.Black)
  268.  
  269.  
  270.         G.FillRectangle(Brushes.Black, 2, 2, Width - 4, 18)
  271.         G.DrawLine(New Pen(Color.FromArgb(60, 60, 60)), 2, 18, Width - 2, 18)
  272.         G.FillRectangle(New SolidBrush(Color.FromArgb(40, Color.White)), 2, 2, Width - 4, 7)
  273.  
  274.         DrawGradient(Color.Black, Color.FromArgb(30, 30, 30), 2, 19, Width - 4, 8)
  275.  
  276.  
  277.         DrawGradient(Color.FromArgb(30, 30, 30), Color.Black, 7, Height - 16, Width - 14, 8)
  278.  
  279.         DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(57, 57, 58), 0, Height - 8, Width \ 2, Height - 4, 360)
  280.         DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(57, 57, 58), Width \ 2, Height - 8, Width \ 2, Height - 4, 180)
  281.         G.DrawLine(New Pen(Color.FromArgb(57, 57, 58)), Width \ 2, Height - 8, Width \ 2, Height)
  282.  
  283.         DrawText(Brushes.DodgerBlue, HorizontalAlignment.Left, 8, 1)
  284.  
  285.         'SideBoxes
  286.         G.FillRectangle(Brushes.Black, 2, 19, 5, Height - 4)
  287.         G.DrawLine(New Pen(Color.FromArgb(60, 60, 60)), 5, 19, 5, Height - 2)
  288.  
  289.         G.FillRectangle(Brushes.Black, Width - 6, 19, 10, Height - 4)
  290.         G.DrawLine(New Pen(Color.FromArgb(60, 60, 60)), Width - 6, 19, Width - 6, Height - 2)
  291.         'EndofSideboxes
  292.  
  293.         DrawBorders(New Pen(Color.FromArgb(60, 60, 60)), 1)
  294.     End Sub
  295. End Class
  296.  
  297. '------------------
  298. 'Creator: dlwhdrlf
  299. 'Created: 17/12/2011
  300. 'Version: 1.0.0
  301. '------------------
  302. Class SubspaceSeperator
  303.     Inherits ThemeControl154
  304.     Private _Orientation As Orientation
  305.     Property Orientation() As Orientation
  306.         Get
  307.             Return _Orientation
  308.         End Get
  309.         Set(ByVal value As Orientation)
  310.             _Orientation = value
  311.  
  312.             If value = Windows.Forms.Orientation.Vertical Then
  313.                 LockHeight = 0
  314.                 LockWidth = 14
  315.             Else
  316.                 LockHeight = 14
  317.                 LockWidth = 0
  318.             End If
  319.  
  320.             Invalidate()
  321.         End Set
  322.     End Property
  323.  
  324.     Sub New()
  325.         Transparent = True
  326.         BackColor = Color.Transparent
  327.  
  328.         LockHeight = 14
  329.     End Sub
  330.     Protected Overrides Sub ColorHook()
  331.  
  332.     End Sub
  333.  
  334.     Protected Overrides Sub PaintHook()
  335.         G.Clear(BackColor)
  336.  
  337.         Dim BL1, BL2 As New ColorBlend
  338.         BL1.Positions = New Single() {0.0F, 0.15F, 0.85F, 1.0F}
  339.         BL2.Positions = New Single() {0.0F, 0.15F, 0.5F, 0.85F, 1.0F}
  340.  
  341.         BL1.Colors = New Color() {Color.Transparent, Color.FromArgb(60, 60, 60), Color.FromArgb(60, 60, 60), Color.Transparent}
  342.         BL2.Colors = New Color() {Color.Transparent, Color.FromArgb(0, 0, 0), Color.FromArgb(0, 0, 0), Color.FromArgb(0, 0, 0), Color.Transparent}
  343.  
  344.         If _Orientation = Windows.Forms.Orientation.Vertical Then
  345.             DrawGradient(BL1, 6, 0, 1, Height)
  346.             DrawGradient(BL2, 7, 0, 1, Height)
  347.         Else
  348.             DrawGradient(BL1, 0, 6, Width, 1, 0.0F)
  349.             DrawGradient(BL2, 0, 7, Width, 1, 0.0F)
  350.         End If
  351.     End Sub
  352. End Class
  353.  
  354. '------------------
  355. 'Creator: dlwhdrlf
  356. 'Created: 17/12/2011
  357. 'Version: 1.0.0
  358. '------------------
  359. <DefaultEvent("CheckedChanged")> _
  360. Class SubspaceCheckbox
  361.     Inherits ThemeControl154
  362.  
  363.     Sub New()
  364.         Transparent = True
  365.         BackColor = Color.Transparent
  366.         LockHeight = 15
  367.     End Sub
  368.     Protected Overrides Sub ColorHook()
  369.  
  370.     End Sub
  371.  
  372.     Protected Overrides Sub PaintHook()
  373.         Dim CheckRectangle As New Rectangle(1, 1, Height - 3, Height - 3)
  374.  
  375.         G.Clear(BackColor)
  376.         DrawGradient(Color.FromArgb(124, 175, 214), Color.FromArgb(95, 141, 205), CheckRectangle, 45)
  377.         G.FillRectangle(New SolidBrush(Color.FromArgb(13, Color.White)), 0, 0, Height - 1, Height \ 2)
  378.  
  379.  
  380.         Select Case _Checked
  381.             Case True
  382.                 'Put your checked state here
  383.                 DrawGradient(Color.FromArgb(84, 182, 255), Color.FromArgb(45, 134, 255), CheckRectangle, 45)
  384.                 G.FillRectangle(New SolidBrush(Color.FromArgb(50, Color.White)), 0, 0, Height - 1, Height \ 2)
  385.                 G.DrawRectangle(New Pen(Color.FromArgb(84, 177, 255)), CheckRectangle)
  386.             Case False
  387.                 'Put your unchecked state here
  388.  
  389.         End Select
  390.  
  391.         DrawText(Brushes.DodgerBlue, HorizontalAlignment.Left, 18, 1)
  392.     End Sub
  393.  
  394.  
  395.     Private Property _Checked As Boolean = False
  396.     Property Checked() As Boolean
  397.         Get
  398.             Return _Checked
  399.         End Get
  400.         Set(ByVal v As Boolean)
  401.             _Checked = v
  402.         End Set
  403.     End Property
  404.     Protected Overrides Sub OnClick(ByVal e As System.EventArgs)
  405.         _checked = Not _checked
  406.         RaiseEvent CheckedChanged(Me)
  407.         MyBase.OnClick(e)
  408.     End Sub
  409.     Event CheckedChanged(ByVal sender As Object)
  410. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!