API tools faq
paste
trewq343

GordonSYS VB.NET Theme

trewq343
Nov 6th, 2011
392
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 19.42 KB | None | 0 0
raw download clone embed print report
  1. Imports System.Drawing.Drawing2D
  2.  
  3. '---------------------
  4. 'Name:      Gsys Theme
  5. 'Version:   1.0
  6. 'Creator:   Santa
  7. 'ThemeBase: 1.5.3
  8. '---------------------
  9.  
  10. Class GsysTheme
  11.     Inherits ThemeContainer153
  12.  
  13.     Sub New()
  14.  
  15.         TransparencyKey = Color.Fuchsia
  16.     End Sub
  17.  
  18.     Protected Overrides Sub ColorHook()
  19.  
  20.     End Sub
  21.  
  22.     Protected Overrides Sub PaintHook()
  23.  
  24.  
  25.         MinimumSize = New Size(90, 25)
  26.         G.Clear(Color.DarkGreen) 'background
  27.         DrawGradient(Color.FromArgb(25, Color.White), Color.FromArgb(5, Color.Gray), New Rectangle(0, 0, Width, 25))
  28.         DrawGradient(Color.FromArgb(50, Color.White), Color.FromArgb(40, Color.White), New Rectangle(0, 0, Width, 12))
  29.  
  30.  
  31.  
  32.         Dim X As New HatchBrush(HatchStyle.LightHorizontal, Color.Transparent, Color.FromArgb(20, Color.Black))
  33.         'G.FillRectangle(X, ClientRectangle)
  34.         'Dim X2 As New HatchBrush(HatchStyle.Divot, Color.FromArgb(45, 45, 45), Color.FromArgb(40, 40, 40))
  35.         Dim x2 As New SolidBrush(Color.FromArgb(35, 35, 35))
  36.         G.FillRectangle(X2, New Rectangle(6, 23, ClientRectangle.Width - 11, ClientRectangle.Height - 28))
  37.  
  38.  
  39.         DrawBorders(Pens.Black)
  40.         DrawBorders(New Pen(New SolidBrush(Color.FromArgb(32, 32, 32))), 5, 22, Width - 10, Height - 27)
  41.         'DrawBorders(New Pen(New SolidBrush(Color.FromArgb(80, 80, 80))), 1)
  42.         DrawCorners(TransparencyKey)
  43.         DrawCorners(Color.Black, New Rectangle(1, 1, Width - 2, Height - 2))
  44.         DrawText(New SolidBrush(Color.FromArgb(245, 245, 245)), HorizontalAlignment.Left, 5, 0)
  45.  
  46.  
  47.     End Sub
  48. End Class
  49. Class GsysButton
  50.     Inherits ThemeControl153
  51.  
  52.     Sub New()
  53.         SetColor("DownGradient1", Color.FromArgb(0, 130, 0))
  54.         SetColor("DownGradient2", Color.FromArgb(0, 100, 0))
  55.         SetColor("NoneGradient1", Color.DarkGreen)
  56.         SetColor("NoneGradient2", 25, 24, 24)
  57.         'SetColor("Text", 132, 255, 0)
  58.         SetColor("Text", 192, 192, 192)
  59.         SetColor("Border1", 22, 22, 22)
  60.         SetColor("Border2A", 129, 129, 129)
  61.         SetColor("Border2B", 36, 36, 36)
  62.     End Sub
  63.  
  64.     Private C1, C2, C3, C4, C5, C6 As Color
  65.     Private B1 As SolidBrush
  66.     Private B2 As LinearGradientBrush
  67.     Private P1, P2 As Pen
  68.  
  69.     Protected Overrides Sub ColorHook()
  70.         C1 = GetColor("DownGradient1")
  71.         C2 = GetColor("DownGradient2")
  72.         C3 = GetColor("NoneGradient1")
  73.         C4 = GetColor("NoneGradient2")
  74.         C5 = GetColor("Border2A")
  75.         C6 = GetColor("Border2B")
  76.  
  77.         B1 = New SolidBrush(GetColor("Text"))
  78.  
  79.         P1 = New Pen(GetColor("Border1"))
  80.     End Sub
  81.  
  82.     Protected Overrides Sub PaintHook()
  83.  
  84.         If State = MouseState.Down Then
  85.             DrawGradient(Color.FromArgb(5, Color.FromArgb(0, 30, 0)), Color.FromArgb(2, Color.FromArgb(0, 10, 0)), New Rectangle(0, 0, Width, Height / 2))
  86.             DrawGradient(Color.FromArgb(5, Color.FromArgb(0, 30, 0)), Color.FromArgb(2, Color.FromArgb(0, 10, 0)), New Rectangle(0, 0, Width, Height / 2))
  87.             DrawGradient(C1, C2, ClientRectangle, 90.0F)
  88.         Else
  89.             DrawGradient(Color.FromArgb(50, Color.White), Color.FromArgb(10, Color.Gray), New Rectangle(0, 0, Width, Height / 2))
  90.             DrawGradient(C3, C4, ClientRectangle, 90.0F)
  91.         End If
  92.         Select Case Glossy
  93.             Case True
  94.                 DrawGradient(Color.FromArgb(50, Color.White), Color.FromArgb(10, Color.Gray), New Rectangle(0, 0, Width, Height / 2))
  95.             Case False
  96.  
  97.         End Select
  98.         DrawText(B1, HorizontalAlignment.Center, 0, 0)
  99.  
  100.         B2 = New LinearGradientBrush(ClientRectangle, C5, C6, 90.0F)
  101.         P2 = New Pen(B2)
  102.         Dim HBFalse As New HatchBrush(HatchStyle.LightDownwardDiagonal, Color.FromArgb(25, 75, 75, 75), Color.Transparent)
  103.         Dim HBTrue As New HatchBrush(HatchStyle.LightDownwardDiagonal, Color.FromArgb(25, 100, 100, 100), Color.Transparent)
  104.         Select Case Glossy
  105.             Case True
  106.                 G.FillRectangle(HBTrue, New Rectangle(0, 0, Width, Height))
  107.             Case False
  108.                 G.FillRectangle(HBFalse, New Rectangle(0, 0, Width, Height))
  109.         End Select
  110.  
  111.         DrawBorders(P1)
  112.         DrawBorders(P2, 1)
  113.     End Sub
  114.  
  115.  
  116.     Private _Glossy As Boolean
  117.     Public Property Glossy() As Boolean
  118.         Get
  119.             Return _Glossy
  120.         End Get
  121.         Set(ByVal v As Boolean)
  122.             _Glossy = v
  123.             Invalidate()
  124.         End Set
  125.     End Property
  126.  
  127. End Class
  128. Class GsysProgressbar
  129.     Inherits ThemeControl153
  130.  
  131.     Private _Maximum As Integer = 100
  132.     Public Property Maximum() As Integer
  133.         Get
  134.             Return _Maximum
  135.         End Get
  136.         Set(ByVal v As Integer)
  137.  
  138.             If v < 1 Then v = 1
  139.             If v < _Value Then _Value = v
  140.  
  141.             _Maximum = v
  142.             Invalidate()
  143.         End Set
  144.     End Property
  145.  
  146.  
  147.     Private _Value As Integer
  148.     Public Property Value() As Integer
  149.         Get
  150.             Return _Value
  151.         End Get
  152.         Set(ByVal v As Integer)
  153.             If v > Maximum Then v = _Maximum
  154.             _Value = v
  155.             Invalidate()
  156.         End Set
  157.     End Property
  158.  
  159.  
  160.     Private _Glossy As Boolean
  161.     Public Property Glossy() As Boolean
  162.         Get
  163.             Return _Glossy
  164.         End Get
  165.         Set(ByVal value As Boolean)
  166.             _Glossy = value
  167.             Invalidate()
  168.         End Set
  169.     End Property
  170.  
  171.     Public Sub New()
  172.         Me.Size = New Size(75, 23)
  173.     End Sub
  174.  
  175.     Protected Overrides Sub ColorHook()
  176.  
  177.     End Sub
  178.  
  179.     Protected Overrides Sub PaintHook()
  180.         Dim p As Pen
  181.         p = New Pen(Color.FromArgb(15, 15, 15))
  182.  
  183.         G.Clear(Color.Gray)
  184.         DrawGradient(Color.FromArgb(10, 10, 10), Color.FromArgb(25, 25, 25), New Rectangle(0, 0, Width, Height))
  185.  
  186.         Try
  187.             DrawGradient(Color.FromArgb(60, Color.DarkGreen), Color.DarkGreen, New Rectangle(0, 0, CInt((_Value / _Maximum) * Width), Height))
  188.         Catch ex As Exception
  189.  
  190.         End Try
  191.  
  192.  
  193.         Select Case _Glossy
  194.             Case True
  195.                 DrawGradient(Color.FromArgb(50, Color.White), Color.FromArgb(10, Color.Gray), New Rectangle(0, 0, Width, Height / 2))
  196.         End Select
  197.  
  198.         Dim X As New HatchBrush(HatchStyle.DarkDownwardDiagonal, Color.FromArgb(85, Color.DarkGreen), Color.FromArgb(0, Color.DarkGreen))
  199.         G.FillRectangle(X, 0, 0, CInt((_Value / _Maximum) * Width), Height)
  200.  
  201.         DrawBorders(p)
  202.         DrawText(New SolidBrush(Color.FromArgb(192, 192, 192)), HorizontalAlignment.Center, 0, 0)
  203.     End Sub
  204. End Class
  205. Class GsysGroupBox
  206.     Inherits ThemeControl153
  207.     Public WithEvents p1 As New Panel
  208.  
  209.     Private _Glossy As Boolean
  210.     Public Property Glossy() As Boolean
  211.         Get
  212.             Return _Glossy
  213.         End Get
  214.         Set(ByVal value As Boolean)
  215.             _Glossy = value
  216.             Invalidate()
  217.         End Set
  218.     End Property
  219.  
  220.     Protected Overrides Sub ColorHook()
  221.  
  222.     End Sub
  223.  
  224.     Protected Overrides Sub PaintHook()
  225.         MinimumSize = New Size(10, 10)
  226.         G.Clear(Color.DarkGreen) '49
  227.  
  228.         Select Case _Glossy
  229.             Case True
  230.                 'DrawGradient(Color.FromArgb(25, Color.White), Color.FromArgb(5, Color.DarkGreen), New Rectangle(0, 0, Width, 25))
  231.                 DrawGradient(Color.FromArgb(30, Color.White), Color.FromArgb(30, Color.White), New Rectangle(0, 0, Width, 13))
  232.         End Select
  233.  
  234.         DrawBorders(Pens.Black)
  235.         DrawBorders(New Pen(New SolidBrush(Color.Green)), 1, 1, Width - 2, Height - 2)
  236.  
  237.         'G.FillRectangle(New SolidBrush(Color.FromArgb(50, 50, 50)), New Rectangle(5, 24, Width - 10, Height - 30))
  238.         'DrawGradient(Color.FromArgb(60, 60, 60), Color.FromArgb(40, 40, 40), New Rectangle(5, 24, Width - 10, Height - 30))
  239.         DrawBorders(New Pen(New SolidBrush(Color.FromArgb(55, 55, 55))), 6, 25, Width - 11, Height - 31)
  240.         G.FillRectangle(New SolidBrush(Color.FromArgb(35, 35, 35)), New Rectangle(7, 26, Width - 12, Height - 32))
  241.         'DrawGradient(Color.FromArgb(69, 69, 69), Color.FromArgb(49, 49, 49), New Rectangle(7, 26, Width - 12, Height - 32))
  242.  
  243.         DrawText(New SolidBrush(Color.FromArgb(245, 245, 245)), HorizontalAlignment.Center, 0, -1 * (Height - Height / 2) + 14)
  244.  
  245.     End Sub
  246.  
  247.     Sub New()
  248.  
  249.     End Sub
  250. End Class
  251. Class GsysPanel
  252.     Inherits ThemeControl153
  253.     Public WithEvents p1 As New Panel
  254.  
  255.  
  256.     Private _Glossy As Boolean
  257.     Public Property Glossy() As Boolean
  258.         Get
  259.             Return _Glossy
  260.         End Get
  261.         Set(ByVal value As Boolean)
  262.             _Glossy = value
  263.             Invalidate()
  264.         End Set
  265.     End Property
  266.  
  267.     Protected Overrides Sub ColorHook()
  268.  
  269.     End Sub
  270.  
  271.     Protected Overrides Sub PaintHook()
  272.         MinimumSize = New Size(10, 10)
  273.         G.Clear(Color.DarkGreen) '49
  274.  
  275.         Select Case _Glossy
  276.             Case True
  277.                 DrawGradient(Color.FromArgb(5, Color.White), Color.FromArgb(5, Color.Gray), New Rectangle(0, 0, Width, 25))
  278.                 DrawGradient(Color.FromArgb(10, Color.White), Color.FromArgb(50, Color.Gray), New Rectangle(0, 0, Width, 15))
  279.         End Select
  280.  
  281.         DrawBorders(Pens.Black)
  282.         DrawBorders(New Pen(New SolidBrush(Color.Green)), 1, 1, Width - 2, Height - 2)
  283.         'DrawBorders(New Pen(New SolidBrush(Color.FromArgb(80, 80, 80))), 1)
  284.         'DrawCorners(Color.Transparent)
  285.         'DrawCorners(Color.FromArgb(164, 164, 164), New Rectangle(1, 1, Width - 2, Height - 2))
  286.  
  287.         'G.FillRectangle(New SolidBrush(Color.FromArgb(50, 50, 50)), New Rectangle(5, 5, Width - 10, Height - 10))
  288.         G.FillRectangle(New SolidBrush(Color.FromArgb(35, 35, 35)), New Rectangle(5, 5, Width - 10, Height - 10))
  289.  
  290.         DrawBorders(New Pen(New SolidBrush(Color.Green)), 5, 5, Width - 10, Height - 10)
  291.         'DrawText(New SolidBrush(Color.FromArgb(245, 245, 245)), HorizontalAlignment.Center, 0, -1 * (Height - Height / 2) + 15)
  292.  
  293.     End Sub
  294.  
  295.     Sub New()
  296.  
  297.     End Sub
  298. End Class
  299. Class GControlButton
  300.     Inherits ThemeControl153
  301.  
  302.     Sub New()
  303.         LockHeight = 17
  304.         LockWidth = 17
  305.         SetColor("DownGradient1", 0, 49, 0)
  306.         SetColor("DownGradient2", 0, 65, 0)
  307.         SetColor("NoneGradient1", 0, 65, 0)
  308.         SetColor("NoneGradient2", 0, 49, 0)
  309.         'SetColor("Text", 132, 255, 0)
  310.         SetColor("Text", Color.FromArgb(100, 100, 100))
  311.         SetColor("Border1", 22, 22, 22)
  312.         SetColor("Border2A", 129, 129, 129)
  313.         SetColor("Border2B", 36, 36, 36)
  314.     End Sub
  315.  
  316.     Private C1, C2, C3, C4, C5, C6 As Color
  317.     Private B1 As SolidBrush
  318.     Private B2 As LinearGradientBrush
  319.     Private P1, P2 As Pen
  320.  
  321.  
  322.     Private _Maximize As Boolean
  323.     Public Property MaximizeBox() As Boolean
  324.         Get
  325.             Return _Maximize
  326.         End Get
  327.         Set(ByVal value As Boolean)
  328.             _Maximize = value
  329.             Invalidate()
  330.         End Set
  331.     End Property
  332.  
  333.     Private _Minimize As Boolean
  334.     Public Property MinimizeBox() As Boolean
  335.         Get
  336.             Return _Minimize
  337.         End Get
  338.         Set(ByVal value As Boolean)
  339.             _Minimize = value
  340.             Invalidate()
  341.         End Set
  342.     End Property
  343.  
  344.  
  345.     Protected Overrides Sub ColorHook()
  346.         C1 = GetColor("DownGradient1")
  347.         C2 = GetColor("DownGradient2")
  348.         C3 = GetColor("NoneGradient1")
  349.         C4 = GetColor("NoneGradient2")
  350.         C5 = GetColor("Border2A")
  351.         C6 = GetColor("Border2B")
  352.  
  353.         B1 = New SolidBrush(GetColor("Text"))
  354.  
  355.         P1 = New Pen(GetColor("Border1"))
  356.     End Sub
  357.  
  358.     Protected Overrides Sub PaintHook()
  359.  
  360.         If State = MouseState.Down Then
  361.             DrawGradient(Color.FromArgb(50, Color.White), Color.FromArgb(10, Color.Gray), New Rectangle(0, 0, Width, Height / 2))
  362.             DrawGradient(Color.FromArgb(50, Color.White), Color.FromArgb(10, Color.Gray), New Rectangle(0, 0, Width, Height / 2))
  363.             DrawGradient(C1, C2, ClientRectangle, 90.0F)
  364.         Else
  365.             DrawGradient(Color.FromArgb(50, Color.White), Color.FromArgb(10, Color.Gray), New Rectangle(0, 0, Width, Height / 2))
  366.             DrawGradient(C3, C4, ClientRectangle, 90.0F)
  367.         End If
  368.         DrawGradient(Color.FromArgb(50, Color.White), Color.FromArgb(10, Color.Gray), New Rectangle(0, 0, Width, Height / 2))
  369.         DrawText(B1, HorizontalAlignment.Center, 0, 0)
  370.  
  371.         B2 = New LinearGradientBrush(ClientRectangle, C5, C6, 90.0F)
  372.         P2 = New Pen(B2)
  373.  
  374.         Select Case _Maximize
  375.             Case True
  376.                 _Minimize = False
  377.                 G.DrawRectangle(New Pen(New SolidBrush(Color.FromArgb(100, 100, 100))), New Rectangle(4, 4, 8, 8))
  378.         End Select
  379.         Select Case MinimizeBox
  380.             Case True
  381.                 _Maximize = False
  382.                 G.DrawLine(New Pen(New SolidBrush(Color.FromArgb(100, 100, 100))), 6, 12, 10, 12)
  383.         End Select
  384.  
  385.  
  386.         DrawBorders(P1)
  387.         DrawBorders(P2, 1)
  388.     End Sub
  389. End Class
  390. Class GsysCheckbox
  391.     Inherits ThemeControl153
  392.     Private _cStyle As Boolean
  393.     Private _CheckedState As Boolean
  394.     Public Property CheckedState() As Boolean
  395.         Get
  396.             Return _CheckedState
  397.         End Get
  398.         Set(ByVal v As Boolean)
  399.             _CheckedState = v
  400.             Invalidate()
  401.         End Set
  402.     End Property
  403.     Sub New()
  404.         Size = New Size(90, 15)
  405.         MinimumSize = New Size(16, 16)
  406.         MaximumSize = New Size(600, 16)
  407.         'Transparent = True
  408.         CheckedState = False
  409.     End Sub
  410.     Protected Overrides Sub PaintHook()
  411.         Dim Grad As Integer
  412.         Dim FontColor As Color
  413.         Grad = 51
  414.         FontColor = Color.White
  415.  
  416.         G.Clear(Color.FromArgb(35, 35, 35))
  417.         Dim X As New HatchBrush(HatchStyle.Divot, Color.FromArgb(50, 50, 50), Color.FromArgb(40, 40, 40))
  418.         'G.FillRectangle(X, New Rectangle(0, 0, Width, Height))
  419.  
  420.         Select Case CheckedState
  421.             Case True
  422.                 'DrawGradient(Color.FromArgb(160, 160, 160), Color.FromArgb(150, 150, 150), 3, 3, 9, 9, 90S)
  423.                 DrawGradient(Color.FromArgb(0, 124, 0), Color.FromArgb(0, 64, 0), 4, 4, 7, 7, 90S)
  424.                 G.DrawRectangle(New Pen(New SolidBrush(Color.FromArgb(0, 175, 0))), New Rectangle(3, 3, 8, 8))
  425.             Case False
  426.                 'DrawGradient(Color.FromArgb(80, 80, 80), Color.FromArgb(80, 80, 80), 0, 0, 15, 15, 90S)
  427.                 G.FillRectangle(New SolidBrush(Color.FromArgb(40, 40, 40)), New Rectangle(4, 4, 7, 7))
  428.         End Select
  429.         G.DrawRectangle(Pens.Black, 0, 0, 14, 14)
  430.         G.DrawRectangle(Pens.DimGray, 1, 1, 12, 12)
  431.         DrawText(New SolidBrush(Color.FromArgb(192, 192, 192)), HorizontalAlignment.Left, 17, 0)
  432.     End Sub
  433.     Protected Overrides Sub ColorHook()
  434.  
  435.     End Sub
  436.     Sub changeCheck() Handles Me.Click
  437.         Select Case CheckedState
  438.             Case True
  439.                 CheckedState = False
  440.             Case False
  441.                 CheckedState = True
  442.         End Select
  443.     End Sub
  444. End Class
  445. Class GsysRadioButton
  446.     Inherits ThemeControl153
  447.     Dim OuterColor As Color = Color.FromArgb(25, 25, 25) : Dim InnerColor As Color = Color.FromArgb(59, 59, 59)
  448.     Dim TC As Color = Color.FromArgb(192, 192, 192) : Dim CheckColor As Color = Color.FromArgb(92, 92, 92)
  449.     Dim BC As Color = Color.FromArgb(40, 40, 40)
  450.     Event CheckChanged()
  451.     Private _index As Integer = 0
  452.     Public Property Index() As Integer
  453.         Get
  454.             Return _index
  455.         End Get
  456.         Set(ByVal value As Integer)
  457.             _index = value
  458.             Invalidate()
  459.         End Set
  460.     End Property
  461.     Protected Overrides Sub PaintHook()
  462.         G.Clear(Color.Transparent)
  463.  
  464.         'Dim X As New HatchBrush(HatchStyle.Divot, Color.FromArgb(50, 50, 50), Color.FromArgb(40, 40, 40))
  465.         Dim x As New SolidBrush(Color.FromArgb(35, 35, 35))
  466.         G.FillRectangle(X, New Rectangle(0, 0, Width, Height))
  467.         Select Case _Checked
  468.             Case True
  469.                 'G.FillEllipse(New SolidBrush(CheckColor), New Rectangle(3, 3, 8, 8))
  470.                 DrawGradient(Color.FromArgb(0, 100, 0), Color.FromArgb(0, 50, 0), New Rectangle(4, 4, 7, 7))
  471.                 G.DrawEllipse(New Pen(New SolidBrush(Color.FromArgb(35, 35, 35))), 3, 3, 8, 8)
  472.                 G.DrawEllipse(New Pen(New SolidBrush(Color.DarkGreen)), New Rectangle(3, 3, 8, 8))
  473.             Case False
  474.                 G.FillEllipse(New SolidBrush(BC), 1, 1, 12, 12)
  475.         End Select
  476.         G.DrawEllipse(New Pen(New SolidBrush(OuterColor)), 0, 0, 14, 14)
  477.         G.DrawEllipse(New Pen(New SolidBrush(InnerColor)), 1, 1, 12, 12)
  478.         DrawText(New SolidBrush(Color.FromArgb(192, 192, 192)), HorizontalAlignment.Left, 17, 0)
  479.         'DrawText(HorizontalAlignment.Left, TC, 17)
  480.     End Sub
  481.  
  482.     Protected Overrides Sub ColorHook()
  483.  
  484.     End Sub
  485.     Sub New()
  486.         'Transparent = True
  487.         'BackColor = Color.Transparent
  488.         ForeColor = Color.FromArgb(195, 195, 195)
  489.         Dim S As New Size(22, 16) : Size = S
  490.         MinimumSize = New Size(16, 16)
  491.         MaximumSize = New Size(600, 16)
  492.     End Sub
  493.  
  494.     Sub RemoveCheck()
  495.         For Each Ctrl As Control In Parent.Controls
  496.             If TypeOf Ctrl Is GsysRadioButton Then
  497.                 If Ctrl.Handle = Me.Handle Then Continue For
  498.                 If Not (DirectCast(Ctrl, GsysRadioButton).Index = Me.Index) Then Continue For
  499.                 DirectCast(Ctrl, GsysRadioButton).Checked = False
  500.             End If
  501.         Next
  502.     End Sub
  503.  
  504.     Dim _Checked As Boolean = False
  505.     Property Checked() As Boolean
  506.         Get
  507.             Return _Checked
  508.         End Get
  509.         Set(ByVal value As Boolean)
  510.             If value = _Checked Then Exit Property
  511.             _Checked = value
  512.             Invalidate()
  513.             RaiseEvent CheckChanged()
  514.         End Set
  515.     End Property
  516.  
  517.     Sub changeCheck() Handles Me.Click
  518.         _Checked = True
  519.         RemoveCheck()
  520.     End Sub
  521. End Class
  522. Class GsysLabel
  523.     Inherits ThemeControl153
  524.     Private _txt As String
  525.     Dim ForeColor As Color = Color.FromArgb(192, 192, 192)
  526.     Protected Overrides Sub PaintHook()
  527.         G.Clear(Color.FromArgb(35, 35, 35))
  528.         If _auto Then ADF()
  529.         'G.FillRectangle(New SolidBrush(Parent.BackColor), 0, 0, Width, Height)
  530.         Dim X As New HatchBrush(HatchStyle.Divot, Color.FromArgb(50, 50, 50), Color.FromArgb(40, 40, 40))
  531.         ' G.FillRectangle(X, New Rectangle(0, 0, Width, Height))
  532.         G.DrawString(_txt, Font, New SolidBrush(ForeColor), 0, 0)
  533.     End Sub
  534.  
  535.     Protected Overrides Sub ColorHook()
  536.  
  537.     End Sub
  538.  
  539.     Sub New()
  540.         'AllowTransparent()
  541.         Dim s As New Size(16, 20) : Size = s
  542.     End Sub
  543.  
  544.     Sub ADF()
  545.         Dim tmp As Integer = (Me.Text.Length - 1) * Me.Font.Size
  546.         Width = tmp
  547.         Height = Me.Font.Height
  548.         Me.MinimumSize = New Size(tmp, Me.Font.Height)
  549.         Me.MaximumSize = New Size(tmp, Me.Font.Height)
  550.     End Sub
  551.  
  552.     Public Overrides Property Text() As String
  553.         Get
  554.             Return _txt
  555.         End Get
  556.         Set(ByVal value As String)
  557.             _txt = value
  558.             Invalidate()
  559.         End Set
  560.     End Property
  561.  
  562.     Private _auto As Boolean = True
  563.     Public Property AutoreSize() As Boolean
  564.         Get
  565.             Return _auto
  566.         End Get
  567.         Set(ByVal value As Boolean)
  568.             _auto = value
  569.             Invalidate()
  570.         End Set
  571.     End Property
  572.  
  573.     Sub ss() Handles Me.TextChanged
  574.         _txt = Me.Text
  575.         'If _auto = True Then
  576.         Invalidate()
  577.     End Sub
  578. 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!