Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports System.Drawing.Drawing2D
- Imports System.ComponentModel
- Imports System, System.IO, System.Collections.Generic
- Imports System.Drawing
- Imports System.Windows.Forms
- '------------------
- 'Creator: aeonhack
- 'Site: elitevs.net
- 'Created: 08/02/2011
- 'Changed: 09/23/2011
- 'Version: 1.5.2
- '------------------
- MustInherit Class ThemeContainer152
- Inherits ContainerControl
- Protected G As Graphics
- Sub New()
- SetStyle(DirectCast(139270, ControlStyles), True)
- _ImageSize = Size.Empty
- MeasureBitmap = New Bitmap(1, 1)
- MeasureGraphics = Graphics.FromImage(MeasureBitmap)
- Font = New Font("Verdana", 8S)
- InvalidateCustimization()
- End Sub
- Protected Overrides Sub SetBoundsCore(ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal specified As BoundsSpecified)
- If Not _LockWidth = 0 Then width = _LockWidth
- If Not _LockHeight = 0 Then height = _LockHeight
- MyBase.SetBoundsCore(x, y, width, height, specified)
- End Sub
- Private Header As Rectangle
- Protected NotOverridable Overrides Sub OnSizeChanged(ByVal e As EventArgs)
- If _Movable AndAlso Not _ControlMode Then Header = New Rectangle(7, 7, Width - 14, _MoveHeight - 7)
- Invalidate()
- MyBase.OnSizeChanged(e)
- End Sub
- Protected NotOverridable Overrides Sub OnPaint(ByVal e As PaintEventArgs)
- If Width = 0 OrElse Height = 0 Then Return
- G = e.Graphics
- PaintHook()
- End Sub
- Protected NotOverridable Overrides Sub OnHandleCreated(ByVal e As EventArgs)
- InvalidateCustimization()
- ColorHook()
- If Not _LockWidth = 0 Then Width = _LockWidth
- If Not _LockHeight = 0 Then Height = _LockHeight
- If Not _ControlMode Then MyBase.Dock = DockStyle.Fill
- MyBase.OnHandleCreated(e)
- End Sub
- Protected NotOverridable Overrides Sub OnParentChanged(ByVal e As EventArgs)
- MyBase.OnParentChanged(e)
- If Parent Is Nothing Then Return
- _IsParentForm = TypeOf Parent Is Form
- If Not _ControlMode Then
- InitializeMessages()
- If _IsParentForm Then
- ParentForm.FormBorderStyle = _BorderStyle
- ParentForm.TransparencyKey = _TransparencyKey
- End If
- Parent.BackColor = BackColor
- End If
- OnCreation()
- End Sub
- Protected Overridable Sub OnCreation()
- End Sub
- #Region " Sizing and Movement "
- Protected State As MouseState
- Private Sub SetState(ByVal current As MouseState)
- State = current
- Invalidate()
- End Sub
- Protected Overrides Sub OnMouseMove(ByVal e As MouseEventArgs)
- If Not (_IsParentForm AndAlso ParentForm.WindowState = FormWindowState.Maximized) Then
- If _Sizable AndAlso Not _ControlMode Then InvalidateMouse()
- End If
- MyBase.OnMouseMove(e)
- End Sub
- Protected Overrides Sub OnEnabledChanged(ByVal e As EventArgs)
- If Enabled Then SetState(MouseState.None) Else SetState(MouseState.Block)
- MyBase.OnEnabledChanged(e)
- End Sub
- Protected Overrides Sub OnMouseEnter(ByVal e As EventArgs)
- SetState(MouseState.Over)
- MyBase.OnMouseEnter(e)
- End Sub
- Protected Overrides Sub OnMouseUp(ByVal e As MouseEventArgs)
- SetState(MouseState.Over)
- MyBase.OnMouseUp(e)
- End Sub
- Protected Overrides Sub OnMouseLeave(ByVal e As EventArgs)
- SetState(MouseState.None)
- If GetChildAtPoint(PointToClient(MousePosition)) IsNot Nothing Then
- If _Sizable AndAlso Not _ControlMode Then
- Cursor = Cursors.Default
- Previous = 0
- End If
- End If
- MyBase.OnMouseLeave(e)
- End Sub
- Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
- If e.Button = Windows.Forms.MouseButtons.Left Then SetState(MouseState.Down)
- If Not (_IsParentForm AndAlso ParentForm.WindowState = FormWindowState.Maximized OrElse _ControlMode) Then
- If _Movable AndAlso Header.Contains(e.Location) Then
- Capture = False
- WM_LMBUTTONDOWN = True
- DefWndProc(Messages(0))
- ElseIf _Sizable AndAlso Not Previous = 0 Then
- Capture = False
- WM_LMBUTTONDOWN = True
- DefWndProc(Messages(Previous))
- End If
- End If
- MyBase.OnMouseDown(e)
- End Sub
- Private WM_LMBUTTONDOWN As Boolean
- Protected Overrides Sub WndProc(ByRef m As Message)
- MyBase.WndProc(m)
- If WM_LMBUTTONDOWN AndAlso m.Msg = 513 Then
- WM_LMBUTTONDOWN = False
- SetState(MouseState.Over)
- If Not _SmartBounds Then Return
- If IsParentMdi Then
- CorrectBounds(New Rectangle(Point.Empty, Parent.Parent.Size))
- Else
- CorrectBounds(Screen.FromControl(Parent).WorkingArea)
- End If
- End If
- End Sub
- Private GetIndexPoint As Point
- Private B1, B2, B3, B4 As Boolean
- Private Function GetIndex() As Integer
- GetIndexPoint = PointToClient(MousePosition)
- B1 = GetIndexPoint.X < 7
- B2 = GetIndexPoint.X > Width - 7
- B3 = GetIndexPoint.Y < 7
- B4 = GetIndexPoint.Y > Height - 7
- If B1 AndAlso B3 Then Return 4
- If B1 AndAlso B4 Then Return 7
- If B2 AndAlso B3 Then Return 5
- If B2 AndAlso B4 Then Return 8
- If B1 Then Return 1
- If B2 Then Return 2
- If B3 Then Return 3
- If B4 Then Return 6
- Return 0
- End Function
- Private Current, Previous As Integer
- Private Sub InvalidateMouse()
- Current = GetIndex()
- If Current = Previous Then Return
- Previous = Current
- Select Case Previous
- Case 0
- Cursor = Cursors.Default
- Case 1, 2
- Cursor = Cursors.SizeWE
- Case 3, 6
- Cursor = Cursors.SizeNS
- Case 4, 8
- Cursor = Cursors.SizeNWSE
- Case 5, 7
- Cursor = Cursors.SizeNESW
- End Select
- End Sub
- Private Messages(8) As Message
- Private Sub InitializeMessages()
- Messages(0) = Message.Create(Parent.Handle, 161, New IntPtr(2), IntPtr.Zero)
- For I As Integer = 1 To 8
- Messages(I) = Message.Create(Parent.Handle, 161, New IntPtr(I + 9), IntPtr.Zero)
- Next
- End Sub
- Private Sub CorrectBounds(ByVal bounds As Rectangle)
- If Parent.Width > bounds.Width Then Parent.Width = bounds.Width
- If Parent.Height > bounds.Height Then Parent.Height = bounds.Height
- Dim X As Integer = Parent.Location.X
- Dim Y As Integer = Parent.Location.Y
- If X < bounds.X Then X = bounds.X
- If Y < bounds.Y Then Y = bounds.Y
- Dim Width As Integer = bounds.X + bounds.Width
- Dim Height As Integer = bounds.Y + bounds.Height
- If X + Parent.Width > Width Then X = Width - Parent.Width
- If Y + Parent.Height > Height Then Y = Height - Parent.Height
- Parent.Location = New Point(X, Y)
- End Sub
- #End Region
- #Region " Property Overrides "
- Overrides Property Dock As DockStyle
- Get
- Return MyBase.Dock
- End Get
- Set(ByVal value As DockStyle)
- If Not _ControlMode Then Return
- MyBase.Dock = value
- End Set
- End Property
- <Category("Misc")> _
- Overrides Property BackColor() As Color
- Get
- Return MyBase.BackColor
- End Get
- Set(ByVal value As Color)
- If value = BackColor Then Return
- MyBase.BackColor = value
- If Parent IsNot Nothing Then
- If Not _ControlMode Then Parent.BackColor = value
- ColorHook()
- End If
- End Set
- End Property
- Overrides Property MinimumSize As Size
- Get
- Return MyBase.MinimumSize
- End Get
- Set(ByVal value As Size)
- MyBase.MinimumSize = value
- If Parent IsNot Nothing Then Parent.MinimumSize = value
- End Set
- End Property
- Overrides Property MaximumSize As Size
- Get
- Return MyBase.MaximumSize
- End Get
- Set(ByVal value As Size)
- MyBase.MaximumSize = value
- If Parent IsNot Nothing Then Parent.MaximumSize = value
- End Set
- End Property
- Overrides Property Text() As String
- Get
- Return MyBase.Text
- End Get
- Set(ByVal value As String)
- MyBase.Text = value
- Invalidate()
- End Set
- End Property
- Overrides Property Font() As Font
- Get
- Return MyBase.Font
- End Get
- Set(ByVal value As Font)
- MyBase.Font = value
- Invalidate()
- End Set
- End Property
- <Browsable(False), EditorBrowsable(EditorBrowsableState.Never), DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)> _
- Overrides Property ForeColor() As Color
- Get
- Return Color.Empty
- End Get
- Set(ByVal value As Color)
- End Set
- End Property
- <Browsable(False), EditorBrowsable(EditorBrowsableState.Never), DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)> _
- Overrides Property BackgroundImage() As Image
- Get
- Return Nothing
- End Get
- Set(ByVal value As Image)
- End Set
- End Property
- <Browsable(False), EditorBrowsable(EditorBrowsableState.Never), DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)> _
- Overrides Property BackgroundImageLayout() As ImageLayout
- Get
- Return ImageLayout.None
- End Get
- Set(ByVal value As ImageLayout)
- End Set
- End Property
- #End Region
- #Region " Properties "
- Private _SmartBounds As Boolean = True
- Property SmartBounds() As Boolean
- Get
- Return _SmartBounds
- End Get
- Set(ByVal value As Boolean)
- _SmartBounds = value
- End Set
- End Property
- Private _Movable As Boolean = True
- Property Movable() As Boolean
- Get
- Return _Movable
- End Get
- Set(ByVal value As Boolean)
- _Movable = value
- End Set
- End Property
- Private _Sizable As Boolean = True
- Property Sizable() As Boolean
- Get
- Return _Sizable
- End Get
- Set(ByVal value As Boolean)
- _Sizable = value
- End Set
- End Property
- Private _TransparencyKey As Color
- Property TransparencyKey() As Color
- Get
- If _IsParentForm AndAlso Not _ControlMode Then Return ParentForm.TransparencyKey Else Return _TransparencyKey
- End Get
- Set(ByVal value As Color)
- If value = _TransparencyKey Then Return
- _TransparencyKey = value
- If _IsParentForm AndAlso Not _ControlMode Then
- ParentForm.TransparencyKey = value
- ColorHook()
- End If
- End Set
- End Property
- Private _BorderStyle As FormBorderStyle
- Property BorderStyle() As FormBorderStyle
- Get
- If _IsParentForm AndAlso Not _ControlMode Then Return ParentForm.FormBorderStyle Else Return _BorderStyle
- End Get
- Set(ByVal value As FormBorderStyle)
- _BorderStyle = value
- If _IsParentForm AndAlso Not _ControlMode Then
- ParentForm.FormBorderStyle = value
- If Not value = FormBorderStyle.None Then
- Movable = False
- Sizable = False
- End If
- End If
- End Set
- End Property
- Private _NoRounding As Boolean
- Property NoRounding() As Boolean
- Get
- Return _NoRounding
- End Get
- Set(ByVal v As Boolean)
- _NoRounding = v
- Invalidate()
- End Set
- End Property
- Private _Image As Image
- Property Image() As Image
- Get
- Return _Image
- End Get
- Set(ByVal value As Image)
- If value Is Nothing Then _ImageSize = Size.Empty Else _ImageSize = value.Size
- _Image = value
- Invalidate()
- End Set
- End Property
- Private _ImageSize As Size
- Protected ReadOnly Property ImageSize() As Size
- Get
- Return _ImageSize
- End Get
- End Property
- Private _IsParentForm As Boolean
- Protected ReadOnly Property IsParentForm As Boolean
- Get
- Return _IsParentForm
- End Get
- End Property
- Protected ReadOnly Property IsParentMdi As Boolean
- Get
- If Parent Is Nothing Then Return False
- Return Parent.Parent IsNot Nothing
- End Get
- End Property
- Private _LockWidth As Integer
- Protected Property LockWidth() As Integer
- Get
- Return _LockWidth
- End Get
- Set(ByVal value As Integer)
- _LockWidth = value
- If Not LockWidth = 0 AndAlso IsHandleCreated Then Width = LockWidth
- End Set
- End Property
- Private _LockHeight As Integer
- Protected Property LockHeight() As Integer
- Get
- Return _LockHeight
- End Get
- Set(ByVal value As Integer)
- _LockHeight = value
- If Not LockHeight = 0 AndAlso IsHandleCreated Then Height = LockHeight
- End Set
- End Property
- Private _MoveHeight As Integer = 24
- Protected Property MoveHeight() As Integer
- Get
- Return _MoveHeight
- End Get
- Set(ByVal v As Integer)
- If v < 8 Then Return
- Header = New Rectangle(7, 7, Width - 14, v - 7)
- _MoveHeight = v
- Invalidate()
- End Set
- End Property
- Private _ControlMode As Boolean
- Protected Property ControlMode() As Boolean
- Get
- Return _ControlMode
- End Get
- Set(ByVal v As Boolean)
- _ControlMode = v
- End Set
- End Property
- Private Items As New Dictionary(Of String, Color)
- <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
- Property Colors() As Bloom()
- Get
- Dim T As New List(Of Bloom)
- Dim E As Dictionary(Of String, Color).Enumerator = Items.GetEnumerator
- While E.MoveNext
- T.Add(New Bloom(E.Current.Key, E.Current.Value))
- End While
- Return T.ToArray
- End Get
- Set(ByVal value As Bloom())
- For Each B As Bloom In value
- If Items.ContainsKey(B.Name) Then Items(B.Name) = B.Value
- Next
- InvalidateCustimization()
- ColorHook()
- Invalidate()
- End Set
- End Property
- Private _Customization As String
- Property Customization() As String
- Get
- Return _Customization
- End Get
- Set(ByVal value As String)
- If value = _Customization Then Return
- Dim Data As Byte()
- Dim Items As Bloom() = Colors
- Try
- Data = Convert.FromBase64String(value)
- For I As Integer = 0 To Items.Length - 1
- Items(I).Value = Color.FromArgb(BitConverter.ToInt32(Data, I * 4))
- Next
- Catch
- Return
- End Try
- _Customization = value
- Colors = Items
- ColorHook()
- Invalidate()
- End Set
- End Property
- #End Region
- #Region " Property Helpers "
- Protected Function GetColor(ByVal name As String) As Color
- Return Items(name)
- End Function
- Protected Sub SetColor(ByVal name As String, ByVal value As Color)
- If Items.ContainsKey(name) Then Items(name) = value Else Items.Add(name, value)
- End Sub
- Protected Sub SetColor(ByVal name As String, ByVal r As Byte, ByVal g As Byte, ByVal b As Byte)
- SetColor(name, Color.FromArgb(r, g, b))
- End Sub
- Protected Sub SetColor(ByVal name As String, ByVal a As Byte, ByVal r As Byte, ByVal g As Byte, ByVal b As Byte)
- SetColor(name, Color.FromArgb(a, r, g, b))
- End Sub
- Protected Sub SetColor(ByVal name As String, ByVal a As Byte, ByVal value As Color)
- SetColor(name, Color.FromArgb(a, value))
- End Sub
- Private Sub InvalidateCustimization()
- Dim M As New MemoryStream(Items.Count * 4)
- For Each B As Bloom In Colors
- M.Write(BitConverter.GetBytes(B.Value.ToArgb), 0, 4)
- Next
- M.Close()
- _Customization = Convert.ToBase64String(M.ToArray)
- End Sub
- #End Region
- #Region " User Hooks "
- Protected MustOverride Sub ColorHook()
- Protected MustOverride Sub PaintHook()
- #End Region
- #Region " Center Overloads "
- Private CenterReturn As Point
- Protected Function Center(ByVal r1 As Rectangle, ByVal s1 As Size) As Point
- CenterReturn = New Point((r1.Width \ 2 - s1.Width \ 2) + r1.X, (r1.Height \ 2 - s1.Height \ 2) + r1.Y)
- Return CenterReturn
- End Function
- Protected Function Center(ByVal r1 As Rectangle, ByVal r2 As Rectangle) As Point
- Return Center(r1, r2.Size)
- End Function
- Protected Function Center(ByVal w1 As Integer, ByVal h1 As Integer, ByVal w2 As Integer, ByVal h2 As Integer) As Point
- CenterReturn = New Point(w1 \ 2 - w2 \ 2, h1 \ 2 - h2 \ 2)
- Return CenterReturn
- End Function
- Protected Function Center(ByVal s1 As Size, ByVal s2 As Size) As Point
- Return Center(s1.Width, s1.Height, s2.Width, s2.Height)
- End Function
- Protected Function Center(ByVal r1 As Rectangle) As Point
- Return Center(ClientRectangle.Width, ClientRectangle.Height, r1.Width, r1.Height)
- End Function
- Protected Function Center(ByVal s1 As Size) As Point
- Return Center(Width, Height, s1.Width, s1.Height)
- End Function
- Protected Function Center(ByVal w1 As Integer, ByVal h1 As Integer) As Point
- Return Center(Width, Height, w1, h1)
- End Function
- #End Region
- #Region " Measure Overloads "
- Private MeasureBitmap As Bitmap
- Private MeasureGraphics As Graphics
- Protected Function Measure(ByVal text As String) As Size
- Return MeasureGraphics.MeasureString(text, Font, Width).ToSize
- End Function
- Protected Function Measure() As Size
- Return MeasureGraphics.MeasureString(Text, Font).ToSize
- End Function
- #End Region
- #Region " DrawCorners Overloads "
- Private DrawCornersBrush As SolidBrush
- Protected Sub DrawCorners(ByVal c1 As Color)
- DrawCorners(c1, 0, 0, Width, Height)
- End Sub
- Protected Sub DrawCorners(ByVal c1 As Color, ByVal r1 As Rectangle)
- DrawCorners(c1, r1.X, r1.Y, r1.Width, r1.Height)
- End Sub
- Protected Sub DrawCorners(ByVal c1 As Color, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer)
- If _NoRounding Then Return
- DrawCornersBrush = New SolidBrush(c1)
- G.FillRectangle(DrawCornersBrush, x, y, 1, 1)
- G.FillRectangle(DrawCornersBrush, x + (width - 1), y, 1, 1)
- G.FillRectangle(DrawCornersBrush, x, y + (height - 1), 1, 1)
- G.FillRectangle(DrawCornersBrush, x + (width - 1), y + (height - 1), 1, 1)
- End Sub
- #End Region
- #Region " DrawBorders Overloads "
- 'TODO: Remove triple overload?
- Protected Sub DrawBorders(ByVal p1 As Pen, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal offset As Integer)
- DrawBorders(p1, x + offset, y + offset, width - (offset * 2), height - (offset * 2))
- End Sub
- Protected Sub DrawBorders(ByVal p1 As Pen, ByVal offset As Integer)
- DrawBorders(p1, 0, 0, Width, Height, offset)
- End Sub
- Protected Sub DrawBorders(ByVal p1 As Pen, ByVal r As Rectangle, ByVal offset As Integer)
- DrawBorders(p1, r.X, r.Y, r.Width, r.Height, offset)
- End Sub
- Protected Sub DrawBorders(ByVal p1 As Pen, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer)
- G.DrawRectangle(p1, x, y, width - 1, height - 1)
- End Sub
- Protected Sub DrawBorders(ByVal p1 As Pen)
- DrawBorders(p1, 0, 0, Width, Height)
- End Sub
- Protected Sub DrawBorders(ByVal p1 As Pen, ByVal r As Rectangle)
- DrawBorders(p1, r.X, r.Y, r.Width, r.Height)
- End Sub
- #End Region
- #Region " DrawText Overloads "
- 'TODO: Remove triple overloads?
- Private DrawTextPoint As Point
- Private DrawTextSize As Size
- Protected Sub DrawText(ByVal b1 As Brush, ByVal a As HorizontalAlignment, ByVal x As Integer, ByVal y As Integer)
- DrawText(b1, Text, a, x, y)
- End Sub
- Protected Sub DrawText(ByVal b1 As Brush, ByVal p1 As Point)
- DrawText(b1, Text, p1.X, p1.Y)
- End Sub
- Protected Sub DrawText(ByVal b1 As Brush, ByVal x As Integer, ByVal y As Integer)
- DrawText(b1, Text, x, y)
- End Sub
- Protected Sub DrawText(ByVal b1 As Brush, ByVal text As String, ByVal a As HorizontalAlignment, ByVal x As Integer, ByVal y As Integer)
- If text.Length = 0 Then Return
- DrawTextSize = Measure(text)
- If _ControlMode Then
- DrawTextPoint = Center(DrawTextSize)
- Else
- DrawTextPoint = New Point(Width \ 2 - DrawTextSize.Width \ 2, MoveHeight \ 2 - DrawTextSize.Height \ 2)
- End If
- Select Case a
- Case HorizontalAlignment.Left
- DrawText(b1, text, x, DrawTextPoint.Y + y)
- Case HorizontalAlignment.Center
- DrawText(b1, text, DrawTextPoint.X + x, DrawTextPoint.Y + y)
- Case HorizontalAlignment.Right
- DrawText(b1, text, Width - DrawTextSize.Width - x, DrawTextPoint.Y + y)
- End Select
- End Sub
- Protected Sub DrawText(ByVal b1 As Brush, ByVal text As String, ByVal p1 As Point)
- DrawText(b1, text, p1.X, p1.Y)
- End Sub
- Protected Sub DrawText(ByVal b1 As Brush, ByVal text As String, ByVal x As Integer, ByVal y As Integer)
- If text.Length = 0 Then Return
- G.DrawString(text, Font, b1, x, y)
- End Sub
- #End Region
- #Region " DrawImage Overloads "
- 'TODO: Remove triple overloads?
- Private DrawImagePoint As Point
- Protected Sub DrawImage(ByVal a As HorizontalAlignment, ByVal x As Integer, ByVal y As Integer)
- DrawImage(_Image, a, x, y)
- End Sub
- Protected Sub DrawImage(ByVal p1 As Point)
- DrawImage(_Image, p1.X, p1.Y)
- End Sub
- Protected Sub DrawImage(ByVal x As Integer, ByVal y As Integer)
- DrawImage(_Image, x, y)
- End Sub
- Protected Sub DrawImage(ByVal image As Image, ByVal a As HorizontalAlignment, ByVal x As Integer, ByVal y As Integer)
- If image Is Nothing Then Return
- If _ControlMode Then
- DrawImagePoint = Center(image.Size)
- Else
- DrawImagePoint = New Point(Width \ 2 - image.Width \ 2, MoveHeight \ 2 - image.Height \ 2)
- End If
- Select Case a
- Case HorizontalAlignment.Left
- DrawImage(image, x, DrawImagePoint.Y + y)
- Case HorizontalAlignment.Center
- DrawImage(image, DrawImagePoint.X + x, DrawImagePoint.Y + y)
- Case HorizontalAlignment.Right
- DrawImage(image, Width - image.Width - x, DrawImagePoint.Y + y)
- End Select
- End Sub
- Protected Sub DrawImage(ByVal image As Image, ByVal p1 As Point)
- DrawImage(image, p1.X, p1.Y)
- End Sub
- Protected Sub DrawImage(ByVal image As Image, ByVal x As Integer, ByVal y As Integer)
- If image Is Nothing Then Return
- G.DrawImage(image, x, y, image.Width, image.Height)
- End Sub
- #End Region
- #Region " DrawGradient Overloads "
- 'TODO: Remove triple overload?
- Private DrawGradientBrush As LinearGradientBrush
- Private DrawGradientRectangle As Rectangle
- Protected Sub DrawGradient(ByVal blend As ColorBlend, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer)
- DrawGradient(blend, x, y, width, height, 90S)
- End Sub
- Protected Sub DrawGradient(ByVal c1 As Color, ByVal c2 As Color, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer)
- DrawGradient(c1, c2, x, y, width, height, 90S)
- End Sub
- Protected Sub DrawGradient(ByVal blend As ColorBlend, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal angle As Single)
- DrawGradientRectangle = New Rectangle(x, y, width, height)
- DrawGradient(blend, DrawGradientRectangle, angle)
- End Sub
- Protected Sub DrawGradient(ByVal c1 As Color, ByVal c2 As Color, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal angle As Single)
- DrawGradientRectangle = New Rectangle(x, y, width, height)
- DrawGradient(c1, c2, DrawGradientRectangle, angle)
- End Sub
- Protected Sub DrawGradient(ByVal blend As ColorBlend, ByVal r As Rectangle, ByVal angle As Single)
- DrawGradientBrush = New LinearGradientBrush(r, Color.Empty, Color.Empty, angle)
- DrawGradientBrush.InterpolationColors = blend
- G.FillRectangle(DrawGradientBrush, r)
- End Sub
- Protected Sub DrawGradient(ByVal c1 As Color, ByVal c2 As Color, ByVal r As Rectangle, ByVal angle As Single)
- DrawGradientBrush = New LinearGradientBrush(r, c1, c2, angle)
- G.FillRectangle(DrawGradientBrush, r)
- End Sub
- #End Region
- End Class
- MustInherit Class ThemeControl152
- Inherits Control
- Protected G As Graphics, B As Bitmap
- Sub New()
- SetStyle(DirectCast(139270, ControlStyles), True)
- _ImageSize = Size.Empty
- MeasureBitmap = New Bitmap(1, 1)
- MeasureGraphics = Graphics.FromImage(MeasureBitmap)
- Font = New Font("Verdana", 8S)
- InvalidateCustimization()
- End Sub
- Protected Overrides Sub SetBoundsCore(ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal specified As BoundsSpecified)
- If Not _LockWidth = 0 Then width = _LockWidth
- If Not _LockHeight = 0 Then height = _LockHeight
- MyBase.SetBoundsCore(x, y, width, height, specified)
- End Sub
- Protected NotOverridable Overrides Sub OnSizeChanged(ByVal e As EventArgs)
- If _Transparent AndAlso Not (Width = 0 OrElse Height = 0) Then
- B = New Bitmap(Width, Height)
- G = Graphics.FromImage(B)
- End If
- Invalidate()
- MyBase.OnSizeChanged(e)
- End Sub
- Protected NotOverridable Overrides Sub OnPaint(ByVal e As PaintEventArgs)
- If Width = 0 OrElse Height = 0 Then Return
- If _Transparent Then
- PaintHook()
- e.Graphics.DrawImage(B, 0, 0)
- Else
- G = e.Graphics
- PaintHook()
- End If
- End Sub
- Protected NotOverridable Overrides Sub OnHandleCreated(ByVal e As EventArgs)
- InvalidateCustimization()
- ColorHook()
- If Not _LockWidth = 0 Then Width = _LockWidth
- If Not _LockHeight = 0 Then Height = _LockHeight
- Transparent = _Transparent
- If _BackColorU AndAlso _Transparent Then BackColor = Color.Transparent
- MyBase.OnHandleCreated(e)
- End Sub
- Protected NotOverridable Overrides Sub OnParentChanged(ByVal e As EventArgs)
- If Parent IsNot Nothing Then OnCreation()
- MyBase.OnParentChanged(e)
- End Sub
- Protected Overridable Sub OnCreation()
- End Sub
- #Region " State Handling "
- Private InPosition As Boolean
- Protected Overrides Sub OnMouseEnter(ByVal e As EventArgs)
- InPosition = True
- SetState(MouseState.Over)
- MyBase.OnMouseEnter(e)
- End Sub
- Protected Overrides Sub OnMouseUp(ByVal e As MouseEventArgs)
- If InPosition Then SetState(MouseState.Over)
- MyBase.OnMouseUp(e)
- End Sub
- Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
- If e.Button = Windows.Forms.MouseButtons.Left Then SetState(MouseState.Down)
- MyBase.OnMouseDown(e)
- End Sub
- Protected Overrides Sub OnMouseLeave(ByVal e As EventArgs)
- InPosition = False
- SetState(MouseState.None)
- MyBase.OnMouseLeave(e)
- End Sub
- Protected Overrides Sub OnEnabledChanged(ByVal e As EventArgs)
- If Enabled Then SetState(MouseState.None) Else SetState(MouseState.Block)
- MyBase.OnEnabledChanged(e)
- End Sub
- Protected State As MouseState
- Private Sub SetState(ByVal current As MouseState)
- State = current
- Invalidate()
- End Sub
- #End Region
- #Region " Property Overrides "
- Private _BackColorU As Boolean
- <Category("Misc")> _
- Overrides Property BackColor() As Color
- Get
- Return MyBase.BackColor
- End Get
- Set(ByVal value As Color)
- If Not IsHandleCreated AndAlso value = Color.Transparent Then
- _BackColorU = True
- Return
- End If
- MyBase.BackColor = value
- If Parent IsNot Nothing Then ColorHook()
- End Set
- End Property
- <Browsable(False), EditorBrowsable(EditorBrowsableState.Never), DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)> _
- Overrides Property ForeColor() As Color
- Get
- Return Color.Empty
- End Get
- Set(ByVal value As Color)
- End Set
- End Property
- <Browsable(False), EditorBrowsable(EditorBrowsableState.Never), DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)> _
- Overrides Property BackgroundImage() As Image
- Get
- Return Nothing
- End Get
- Set(ByVal value As Image)
- End Set
- End Property
- <Browsable(False), EditorBrowsable(EditorBrowsableState.Never), DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)> _
- Overrides Property BackgroundImageLayout() As ImageLayout
- Get
- Return ImageLayout.None
- End Get
- Set(ByVal value As ImageLayout)
- End Set
- End Property
- Overrides Property Text() As String
- Get
- Return MyBase.Text
- End Get
- Set(ByVal value As String)
- MyBase.Text = value
- Invalidate()
- End Set
- End Property
- Overrides Property Font() As Font
- Get
- Return MyBase.Font
- End Get
- Set(ByVal value As Font)
- MyBase.Font = value
- Invalidate()
- End Set
- End Property
- #End Region
- #Region " Properties "
- Private _NoRounding As Boolean
- Property NoRounding() As Boolean
- Get
- Return _NoRounding
- End Get
- Set(ByVal v As Boolean)
- _NoRounding = v
- Invalidate()
- End Set
- End Property
- Private _Image As Image
- Property Image() As Image
- Get
- Return _Image
- End Get
- Set(ByVal value As Image)
- If value Is Nothing Then
- _ImageSize = Size.Empty
- Else
- _ImageSize = value.Size
- End If
- _Image = value
- Invalidate()
- End Set
- End Property
- Private _ImageSize As Size
- Protected ReadOnly Property ImageSize() As Size
- Get
- Return _ImageSize
- End Get
- End Property
- Private _LockWidth As Integer
- Protected Property LockWidth() As Integer
- Get
- Return _LockWidth
- End Get
- Set(ByVal value As Integer)
- _LockWidth = value
- If Not LockWidth = 0 AndAlso IsHandleCreated Then Width = LockWidth
- End Set
- End Property
- Private _LockHeight As Integer
- Protected Property LockHeight() As Integer
- Get
- Return _LockHeight
- End Get
- Set(ByVal value As Integer)
- _LockHeight = value
- If Not LockHeight = 0 AndAlso IsHandleCreated Then Height = LockHeight
- End Set
- End Property
- Private _Transparent As Boolean
- Property Transparent() As Boolean
- Get
- Return _Transparent
- End Get
- Set(ByVal value As Boolean)
- _Transparent = value
- If Not IsHandleCreated Then Return
- If Not value AndAlso Not BackColor.A = 255 Then
- Throw New Exception("Unable to change value to false while a transparent BackColor is in use.")
- End If
- SetStyle(ControlStyles.Opaque, Not value)
- SetStyle(ControlStyles.SupportsTransparentBackColor, value)
- If value Then InvalidateBitmap() Else B = Nothing
- Invalidate()
- End Set
- End Property
- Private Items As New Dictionary(Of String, Color)
- <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
- Property Colors() As Bloom()
- Get
- Dim T As New List(Of Bloom)
- Dim E As Dictionary(Of String, Color).Enumerator = Items.GetEnumerator
- While E.MoveNext
- T.Add(New Bloom(E.Current.Key, E.Current.Value))
- End While
- Return T.ToArray
- End Get
- Set(ByVal value As Bloom())
- For Each B As Bloom In value
- If Items.ContainsKey(B.Name) Then Items(B.Name) = B.Value
- Next
- InvalidateCustimization()
- ColorHook()
- Invalidate()
- End Set
- End Property
- Private _Customization As String
- Property Customization() As String
- Get
- Return _Customization
- End Get
- Set(ByVal value As String)
- If value = _Customization Then Return
- Dim Data As Byte()
- Dim Items As Bloom() = Colors
- Try
- Data = Convert.FromBase64String(value)
- For I As Integer = 0 To Items.Length - 1
- Items(I).Value = Color.FromArgb(BitConverter.ToInt32(Data, I * 4))
- Next
- Catch
- Return
- End Try
- _Customization = value
- Colors = Items
- ColorHook()
- Invalidate()
- End Set
- End Property
- #End Region
- #Region " Property Helpers "
- Private Sub InvalidateBitmap()
- If Width = 0 OrElse Height = 0 Then Return
- B = New Bitmap(Width, Height)
- G = Graphics.FromImage(B)
- End Sub
- Protected Function GetColor(ByVal name As String) As Color
- Return Items(name)
- End Function
- Protected Sub SetColor(ByVal name As String, ByVal value As Color)
- If Items.ContainsKey(name) Then Items(name) = value Else Items.Add(name, value)
- End Sub
- Protected Sub SetColor(ByVal name As String, ByVal r As Byte, ByVal g As Byte, ByVal b As Byte)
- SetColor(name, Color.FromArgb(r, g, b))
- End Sub
- Protected Sub SetColor(ByVal name As String, ByVal a As Byte, ByVal r As Byte, ByVal g As Byte, ByVal b As Byte)
- SetColor(name, Color.FromArgb(a, r, g, b))
- End Sub
- Protected Sub SetColor(ByVal name As String, ByVal a As Byte, ByVal value As Color)
- SetColor(name, Color.FromArgb(a, value))
- End Sub
- Private Sub InvalidateCustimization()
- Dim M As New MemoryStream(Items.Count * 4)
- For Each B As Bloom In Colors
- M.Write(BitConverter.GetBytes(B.Value.ToArgb), 0, 4)
- Next
- M.Close()
- _Customization = Convert.ToBase64String(M.ToArray)
- End Sub
- #End Region
- #Region " User Hooks "
- Protected MustOverride Sub ColorHook()
- Protected MustOverride Sub PaintHook()
- #End Region
- #Region " Center Overloads "
- Private CenterReturn As Point
- Protected Function Center(ByVal r1 As Rectangle, ByVal s1 As Size) As Point
- CenterReturn = New Point((r1.Width \ 2 - s1.Width \ 2) + r1.X, (r1.Height \ 2 - s1.Height \ 2) + r1.Y)
- Return CenterReturn
- End Function
- Protected Function Center(ByVal r1 As Rectangle, ByVal r2 As Rectangle) As Point
- Return Center(r1, r2.Size)
- End Function
- Protected Function Center(ByVal w1 As Integer, ByVal h1 As Integer, ByVal w2 As Integer, ByVal h2 As Integer) As Point
- CenterReturn = New Point(w1 \ 2 - w2 \ 2, h1 \ 2 - h2 \ 2)
- Return CenterReturn
- End Function
- Protected Function Center(ByVal s1 As Size, ByVal s2 As Size) As Point
- Return Center(s1.Width, s1.Height, s2.Width, s2.Height)
- End Function
- Protected Function Center(ByVal r1 As Rectangle) As Point
- Return Center(ClientRectangle.Width, ClientRectangle.Height, r1.Width, r1.Height)
- End Function
- Protected Function Center(ByVal s1 As Size) As Point
- Return Center(Width, Height, s1.Width, s1.Height)
- End Function
- Protected Function Center(ByVal w1 As Integer, ByVal h1 As Integer) As Point
- Return Center(Width, Height, w1, h1)
- End Function
- #End Region
- #Region " Measure Overloads "
- Private MeasureBitmap As Bitmap
- Private MeasureGraphics As Graphics
- Protected Function Measure(ByVal text As String) As Size
- Return MeasureGraphics.MeasureString(text, Font, Width).ToSize
- End Function
- Protected Function Measure() As Size
- Return MeasureGraphics.MeasureString(Text, Font, Width).ToSize
- End Function
- #End Region
- #Region " DrawCorners Overloads "
- Private DrawCornersBrush As SolidBrush
- Protected Sub DrawCorners(ByVal c1 As Color)
- DrawCorners(c1, 0, 0, Width, Height)
- End Sub
- Protected Sub DrawCorners(ByVal c1 As Color, ByVal r1 As Rectangle)
- DrawCorners(c1, r1.X, r1.Y, r1.Width, r1.Height)
- End Sub
- Protected Sub DrawCorners(ByVal c1 As Color, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer)
- If _NoRounding Then Return
- If _Transparent Then
- B.SetPixel(x, y, c1)
- B.SetPixel(x + (width - 1), y, c1)
- B.SetPixel(x, y + (height - 1), c1)
- B.SetPixel(x + (width - 1), y + (height - 1), c1)
- Else
- DrawCornersBrush = New SolidBrush(c1)
- G.FillRectangle(DrawCornersBrush, x, y, 1, 1)
- G.FillRectangle(DrawCornersBrush, x + (width - 1), y, 1, 1)
- G.FillRectangle(DrawCornersBrush, x, y + (height - 1), 1, 1)
- G.FillRectangle(DrawCornersBrush, x + (width - 1), y + (height - 1), 1, 1)
- End If
- End Sub
- #End Region
- #Region " DrawBorders Overloads "
- 'TODO: Remove triple overload?
- Protected Sub DrawBorders(ByVal p1 As Pen, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal offset As Integer)
- DrawBorders(p1, x + offset, y + offset, width - (offset * 2), height - (offset * 2))
- End Sub
- Protected Sub DrawBorders(ByVal p1 As Pen, ByVal offset As Integer)
- DrawBorders(p1, 0, 0, Width, Height, offset)
- End Sub
- Protected Sub DrawBorders(ByVal p1 As Pen, ByVal r As Rectangle, ByVal offset As Integer)
- DrawBorders(p1, r.X, r.Y, r.Width, r.Height, offset)
- End Sub
- Protected Sub DrawBorders(ByVal p1 As Pen, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer)
- G.DrawRectangle(p1, x, y, width - 1, height - 1)
- End Sub
- Protected Sub DrawBorders(ByVal p1 As Pen)
- DrawBorders(p1, 0, 0, Width, Height)
- End Sub
- Protected Sub DrawBorders(ByVal p1 As Pen, ByVal r As Rectangle)
- DrawBorders(p1, r.X, r.Y, r.Width, r.Height)
- End Sub
- #End Region
- #Region " DrawText Overloads "
- 'TODO: Remove triple overloads?
- Private DrawTextPoint As Point
- Private DrawTextSize As Size
- Protected Sub DrawText(ByVal b1 As Brush, ByVal a As HorizontalAlignment, ByVal x As Integer, ByVal y As Integer)
- DrawText(b1, Text, a, x, y)
- End Sub
- Protected Sub DrawText(ByVal b1 As Brush, ByVal p1 As Point)
- DrawText(b1, Text, p1.X, p1.Y)
- End Sub
- Protected Sub DrawText(ByVal b1 As Brush, ByVal x As Integer, ByVal y As Integer)
- DrawText(b1, Text, x, y)
- End Sub
- Protected Sub DrawText(ByVal b1 As Brush, ByVal text As String, ByVal a As HorizontalAlignment, ByVal x As Integer, ByVal y As Integer)
- If text.Length = 0 Then Return
- DrawTextSize = Measure(text)
- DrawTextPoint = Center(DrawTextSize)
- Select Case a
- Case HorizontalAlignment.Left
- DrawText(b1, text, x, DrawTextPoint.Y + y)
- Case HorizontalAlignment.Center
- DrawText(b1, text, DrawTextPoint.X + x, DrawTextPoint.Y + y)
- Case HorizontalAlignment.Right
- DrawText(b1, text, Width - DrawTextSize.Width - x, DrawTextPoint.Y + y)
- End Select
- End Sub
- Protected Sub DrawText(ByVal b1 As Brush, ByVal text As String, ByVal p1 As Point)
- DrawText(b1, text, p1.X, p1.Y)
- End Sub
- Protected Sub DrawText(ByVal b1 As Brush, ByVal text As String, ByVal x As Integer, ByVal y As Integer)
- If text.Length = 0 Then Return
- G.DrawString(text, Font, b1, x, y)
- End Sub
- #End Region
- #Region " DrawImage Overloads "
- 'TODO: Remove triple overloads?
- Private DrawImagePoint As Point
- Protected Sub DrawImage(ByVal a As HorizontalAlignment, ByVal x As Integer, ByVal y As Integer)
- DrawImage(_Image, a, x, y)
- End Sub
- Protected Sub DrawImage(ByVal p1 As Point)
- DrawImage(_Image, p1.X, p1.Y)
- End Sub
- Protected Sub DrawImage(ByVal x As Integer, ByVal y As Integer)
- DrawImage(_Image, x, y)
- End Sub
- Protected Sub DrawImage(ByVal image As Image, ByVal a As HorizontalAlignment, ByVal x As Integer, ByVal y As Integer)
- If image Is Nothing Then Return
- DrawImagePoint = Center(image.Size)
- Select Case a
- Case HorizontalAlignment.Left
- DrawImage(image, x, DrawImagePoint.Y + y)
- Case HorizontalAlignment.Center
- DrawImage(image, DrawImagePoint.X + x, DrawImagePoint.Y + y)
- Case HorizontalAlignment.Right
- DrawImage(image, Width - image.Width - x, DrawImagePoint.Y + y)
- End Select
- End Sub
- Protected Sub DrawImage(ByVal image As Image, ByVal p1 As Point)
- DrawImage(image, p1.X, p1.Y)
- End Sub
- Protected Sub DrawImage(ByVal image As Image, ByVal x As Integer, ByVal y As Integer)
- If image Is Nothing Then Return
- G.DrawImage(image, x, y, image.Width, image.Height)
- End Sub
- #End Region
- #Region " DrawGradient Overloads "
- 'TODO: Remove triple overload?
- Private DrawGradientBrush As LinearGradientBrush
- Private DrawGradientRectangle As Rectangle
- Protected Sub DrawGradient(ByVal blend As ColorBlend, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer)
- DrawGradient(blend, x, y, width, height, 90S)
- End Sub
- Protected Sub DrawGradient(ByVal c1 As Color, ByVal c2 As Color, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer)
- DrawGradient(c1, c2, x, y, width, height, 90S)
- End Sub
- Protected Sub DrawGradient(ByVal blend As ColorBlend, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal angle As Single)
- DrawGradientRectangle = New Rectangle(x, y, width, height)
- DrawGradient(blend, DrawGradientRectangle, angle)
- End Sub
- Protected Sub DrawGradient(ByVal c1 As Color, ByVal c2 As Color, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal angle As Single)
- DrawGradientRectangle = New Rectangle(x, y, width, height)
- DrawGradient(c1, c2, DrawGradientRectangle, angle)
- End Sub
- Protected Sub DrawGradient(ByVal blend As ColorBlend, ByVal r As Rectangle, ByVal angle As Single)
- DrawGradientBrush = New LinearGradientBrush(r, Color.Empty, Color.Empty, angle)
- DrawGradientBrush.InterpolationColors = blend
- G.FillRectangle(DrawGradientBrush, r)
- End Sub
- Protected Sub DrawGradient(ByVal c1 As Color, ByVal c2 As Color, ByVal r As Rectangle, ByVal angle As Single)
- DrawGradientBrush = New LinearGradientBrush(r, c1, c2, angle)
- G.FillRectangle(DrawGradientBrush, r)
- End Sub
- #End Region
- End Class
- Enum MouseState As Byte
- None = 0
- Over = 1
- Down = 2
- Block = 3
- End Enum
- Class Bloom
- Private _Name As String
- Property Name() As String
- Get
- Return _Name
- End Get
- Set(ByVal value As String)
- _Name = value
- End Set
- End Property
- Private _Value As Color
- Property Value() As Color
- Get
- Return _Value
- End Get
- Set(ByVal value As Color)
- _Value = value
- End Set
- End Property
- Sub New()
- End Sub
- Sub New(ByVal name As String, ByVal value As Color)
- _Name = name
- _Value = value
- End Sub
- End Class
- Class DarkMatterTheme
- Inherits ThemeContainer152
- Sub New()
- TransparencyKey = Color.Cyan
- End Sub
- Dim tGlow, tColor As Color
- Protected Overrides Sub ColorHook()
- End Sub
- Dim T As New HatchBrush(HatchStyle.LightUpwardDiagonal, Color.Black, Color.FromArgb(39, 39, 41))
- Protected Overrides Sub PaintHook()
- G.SmoothingMode = SmoothingMode.HighQuality
- Select Case _ThemeColor
- Case 0 'GammaRay
- tGlow = Color.FromArgb(35, Color.LawnGreen)
- tColor = Color.FromArgb(255, Color.LawnGreen)
- Case 1 'RedShift
- tGlow = Color.FromArgb(35, Color.Red)
- tColor = Color.FromArgb(255, Color.Red)
- Case 2 'SubSpace
- tGlow = Color.FromArgb(35, Color.DodgerBlue)
- tColor = Color.FromArgb(255, Color.DodgerBlue)
- Case 3 'SolarFlare
- tGlow = Color.FromArgb(35, Color.Gold)
- tColor = Color.FromArgb(255, Color.Gold)
- End Select
- G.Clear(Color.FromArgb(39, 41, 41))
- DrawGradient(Color.FromArgb(109, 109, 111), Color.FromArgb(26, 26, 29), ClientRectangle, 45S) 'Border Out
- DrawGradient(Color.FromArgb(58, 58, 60), Color.FromArgb(14, 14, 14), New Rectangle(2, 2, Width - 4, Height - 4), 45S)
- DrawBorders(New Pen(New SolidBrush(Color.Black)))
- DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 4, 0)
- DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 4, 1)
- DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 4, -1)
- DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 6, 0)
- DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 6, 1)
- DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 6, -1)
- DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 5, 1)
- DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 5, -1)
- DrawText(New SolidBrush(tColor), HorizontalAlignment.Left, 5, 0)
- DrawCorners(Color.Cyan)
- End Sub
- Enum ColorTheme
- GammaRay = 0
- RedShift = 1
- Subspace = 2
- SolarFlare = 3
- End Enum
- Private _ThemeColor As ColorTheme
- Public Property ThemeStyle() As ColorTheme
- Get
- Return _ThemeColor
- End Get
- Set(ByVal v As ColorTheme)
- _ThemeColor = v
- Invalidate()
- End Set
- End Property
- End Class
- Class DarkMatterAltTheme
- Inherits ThemeContainer152
- Sub New()
- TransparencyKey = Color.Cyan
- End Sub
- Dim tGlow, tColor As Color
- Protected Overrides Sub ColorHook()
- End Sub
- Dim T As New HatchBrush(HatchStyle.LightUpwardDiagonal, Color.Black, Color.FromArgb(39, 39, 41))
- Protected Overrides Sub PaintHook()
- G.SmoothingMode = SmoothingMode.HighQuality
- Select Case _ThemeColor
- Case 0 'GammaRay
- tGlow = Color.FromArgb(35, Color.LawnGreen)
- tColor = Color.FromArgb(255, Color.LawnGreen)
- Case 1 'RedShift
- tGlow = Color.FromArgb(35, Color.Red)
- tColor = Color.FromArgb(255, Color.Red)
- Case 2 'SubSpace
- tGlow = Color.FromArgb(35, Color.DodgerBlue)
- tColor = Color.FromArgb(255, Color.DodgerBlue)
- Case 3 'SolarFlare
- tGlow = Color.FromArgb(35, Color.Gold)
- tColor = Color.FromArgb(255, Color.Gold)
- End Select
- G.Clear(Color.FromArgb(39, 41, 41))
- DrawGradient(Color.FromArgb(100, 100, 100), Color.FromArgb(31, 31, 31), ClientRectangle, 90S)
- DrawGradient(Color.FromArgb(53, 53, 54), Color.FromArgb(54, 54, 56), New Rectangle(2, 2, Width - 6, Height - 4), 90S)
- DrawGradient(Color.FromArgb(31, 31, 31), Color.FromArgb(42, 42, 42), New Rectangle(2, 10, Width - 6, Height - 19), 90S)
- G.FillRectangle(New SolidBrush(Color.FromArgb(15, 15, 17)), New Rectangle(3, 11, Width - 7, Height - 20))
- G.DrawLine(Pens.Black, 3, 11, 3, Height - 10)
- G.DrawLine(Pens.Black, Width - 4, 11, Width - 4, Height - 10)
- 'DrawGradient(Color.FromArgb(109, 109, 111), Color.FromArgb(26, 26, 29), ClientRectangle, 45S) 'Border Out
- 'DrawGradient(Color.FromArgb(58, 58, 60), Color.FromArgb(14, 14, 14), New Rectangle(2, 2, Width - 4, Height - 4), 45S)
- DrawBorders(New Pen(New SolidBrush(Color.Black)))
- DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 4, 0)
- DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 4, 1)
- DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 4, -1)
- DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 6, 0)
- DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 6, 1)
- DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 6, -1)
- DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 5, 1)
- DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 5, -1)
- DrawText(New SolidBrush(tColor), HorizontalAlignment.Left, 5, 0)
- DrawCorners(Color.Cyan)
- End Sub
- Enum ColorTheme
- GammaRay = 0
- RedShift = 1
- Subspace = 2
- SolarFlare = 3
- End Enum
- Private _ThemeColor As ColorTheme
- Public Property ThemeStyle() As ColorTheme
- Get
- Return _ThemeColor
- End Get
- Set(ByVal v As ColorTheme)
- _ThemeColor = v
- Invalidate()
- End Set
- End Property
- End Class
- Class DarkMatterButton
- Inherits ThemeControl152
- Sub New()
- BackColor = Color.FromArgb(59, 59, 61)
- End Sub
- Dim tGlow, tColor, tTheme, tGradA, tGradB, tBordA, tBordB, tBorder As Color
- Dim tAlign As HorizontalAlignment
- Dim tOffX, tOffY As Integer
- Protected Overrides Sub ColorHook()
- tAlign = HorizontalAlignment.Center
- tOffX = -1
- tOffY = -1
- tGlow = Color.FromArgb(35, tTheme)
- tColor = Color.FromArgb(255, tTheme)
- End Sub
- Protected Overrides Sub PaintHook()
- G.Clear(Color.FromArgb(47, 47, 47))
- Select Case _ThemeColor
- Case 0 'GammaRay
- tTheme = Color.LawnGreen
- tGradA = Color.FromArgb(111, 208, 28) 'First Gradient Color
- tGradB = Color.FromArgb(92, 192, 5) 'Second Gradient Color
- tBordA = Color.FromArgb(213, 248, 188) 'First Border Gradient Color
- tBordB = Color.FromArgb(138, 207, 87) 'Second Border Gradient Color
- tBorder = Color.FromArgb(72, 152, 0) 'Outer Border Color
- Case 1 'RedShift
- tTheme = Color.Red
- tGradA = Color.FromArgb(236, 20, 16) 'First Gradient Color
- tGradB = Color.FromArgb(223, 5, 1) 'Second Gradient Color
- tBordA = Color.FromArgb(255, 198, 198) 'First Border Gradient Color
- tBordB = Color.FromArgb(232, 90, 89) 'Second Border Gradient Color
- tBorder = Color.FromArgb(184, 3, 1) 'Outer Border Color
- Case 2 'SubSpace
- tTheme = Color.DodgerBlue
- tGradA = Color.FromArgb(41, 149, 255) 'First Gradient Color
- tGradB = Color.FromArgb(33, 139, 255) 'Second Gradient Color
- tBordA = Color.FromArgb(218, 244, 255) 'First Border Gradient Color
- tBordB = Color.FromArgb(138, 191, 255) 'Second Border Gradient Color
- tBorder = Color.FromArgb(6, 84, 191) 'Outer Border Color
- Case 3 'SolarFlare
- tTheme = Color.Gold
- tGradA = Color.FromArgb(255, 194, 69) 'First Gradient Color
- tGradB = Color.FromArgb(255, 180, 40) 'Second Gradient Color
- tBordA = Color.FromArgb(254, 248, 214) 'First Border Gradient Color
- tBordB = Color.FromArgb(255, 214, 144) 'Second Border Gradient Color
- tBorder = Color.FromArgb(211, 148, 27) 'Outer Border Color
- End Select
- Select Case State
- Case 0
- tGlow = Color.FromArgb(30, tTheme)
- tColor = Color.FromArgb(255, tTheme)
- DrawGradient(Color.FromArgb(109, 109, 111), Color.FromArgb(26, 26, 29), ClientRectangle, 45S)
- DrawGradient(Color.FromArgb(58, 58, 60), Color.Black, New Rectangle(2, 2, Width - 4, Height - 4), 45S)
- DrawBorders(New Pen(New SolidBrush(Color.Black)))
- Case 1
- tGlow = Color.FromArgb(50, tTheme)
- tColor = Color.FromArgb(255, tTheme)
- DrawGradient(Color.FromArgb(109, 109, 111), Color.FromArgb(26, 26, 29), ClientRectangle, 45S)
- DrawGradient(Color.FromArgb(58, 58, 60), Color.Black, New Rectangle(2, 2, Width - 4, Height - 4), 45S)
- DrawBorders(New Pen(New SolidBrush(Color.Black)))
- Case 2
- tGlow = Color.FromArgb(20, Color.Black)
- tColor = Color.FromArgb(255, Color.Black)
- DrawGradient(tBordA, tBordB, ClientRectangle, 45S)
- DrawGradient(tGradA, tGradB, New Rectangle(2, 2, Width - 4, Height - 4), 45S)
- DrawGradient(Color.FromArgb(60, Color.White), Color.FromArgb(30, Color.White), New Rectangle(2, 2, Width - 4, Height / 2 - 4), 90S)
- DrawBorders(New Pen(New SolidBrush(tBorder)))
- End Select
- DrawText(New SolidBrush(tGlow), tAlign, tOffX - 1, tOffY)
- DrawText(New SolidBrush(tGlow), tAlign, tOffX - 1, tOffY + 1)
- DrawText(New SolidBrush(tGlow), tAlign, tOffX - 1, tOffY - 1)
- DrawText(New SolidBrush(tGlow), tAlign, tOffX + 1, tOffY)
- DrawText(New SolidBrush(tGlow), tAlign, tOffX + 1, tOffY + 1)
- DrawText(New SolidBrush(tGlow), tAlign, tOffX + 1, tOffY - 1)
- DrawText(New SolidBrush(tGlow), tAlign, tOffX, tOffY + 1)
- DrawText(New SolidBrush(tGlow), tAlign, tOffX, tOffY - 1)
- DrawText(New SolidBrush(tColor), tAlign, tOffX, tOffY)
- DrawCorners(BackColor)
- End Sub
- Enum ColorTheme
- GammaRay = 0
- RedShift = 1
- Subspace = 2
- SolarFlare = 3
- End Enum
- Private _ThemeColor As ColorTheme
- Public Property ThemeStyle() As ColorTheme
- Get
- Return _ThemeColor
- End Get
- Set(ByVal v As ColorTheme)
- _ThemeColor = v
- Invalidate()
- End Set
- End Property
- End Class
- Class DarkMatterProgressBar
- Inherits ThemeControl152
- #Region " Properties "
- Private _Maximum As Integer
- Public Property Maximum() As Integer
- Get
- Return _Maximum
- End Get
- Set(ByVal v As Integer)
- If v < _Value Then _Value = v
- _Maximum = v
- Invalidate()
- End Set
- End Property
- Private _Value As Integer
- Public Property Value() As Integer
- Get
- Return _Value
- End Get
- Set(ByVal v As Integer)
- If v > Maximum Then v = Maximum
- _Value = v
- Invalidate()
- End Set
- End Property
- #End Region
- Sub New()
- 'Defaults
- Maximum = 100
- Value = 0
- LockHeight = 20
- End Sub
- Dim tColor, tGlow, tBorder As Color
- Protected Overrides Sub ColorHook()
- End Sub
- Protected Overrides Sub PaintHook()
- Select Case _ThemeColor
- Case 0 'GammaRay
- tColor = Color.FromArgb(200, 255, 82)
- tGlow = Color.FromArgb(123, 221, 42)
- tBorder = Color.FromArgb(31, 91, 31)
- Case 1 'RedShift
- tColor = Color.FromArgb(255, 45, 45)
- tGlow = Color.FromArgb(255, 45, 45)
- tBorder = Color.FromArgb(158, 7, 7)
- Case 2 'Subspace
- tColor = Color.FromArgb(78, 203, 255)
- tGlow = Color.FromArgb(0, 48, 255)
- tBorder = Color.Empty
- Case 3 'SolarFlare
- tColor = Color.FromArgb(255, 238, 142)
- tGlow = Color.FromArgb(255, 188, 74)
- tBorder = Color.FromArgb(110, 61, 37)
- End Select
- G.Clear(Color.FromArgb(31, 31, 31))
- G.FillRectangle(New SolidBrush(Color.FromArgb(12, 12, 12)), New Rectangle(6, Height / 2 - 3, Width - 12, 5))
- G.DrawRectangle(Pens.Black, New Rectangle(6, Height / 2 - 3, Width - 12, 5))
- Select Case _Value
- Case Is > 0
- DrawGradient(tGlow, tGlow, 6, Height / 2 - 3, CInt(_Value / _Maximum * (Width - 11)), 6, 90S)
- DrawGradient(tColor, tColor, 6, Height / 2 - 2, CInt(_Value / _Maximum * (Width - 11)), 3, 90S)
- G.DrawRectangle(New Pen(New SolidBrush(tBorder)), New Rectangle(6, Height / 2 - 3, CInt(_Value / _Maximum * (Width - 11)), 6))
- DrawCorners(Color.FromArgb(31, 31, 31), New Rectangle(6, Height / 2 - 3, CInt(_Value / _Maximum * (Width - 9)), 7))
- End Select
- DrawBorders(New Pen(New SolidBrush(Color.FromArgb(25, 25, 25))))
- End Sub
- Sub Increment(ByVal Ammount As Integer)
- If Value < Maximum - Ammount Then
- Value = Ammount
- Invalidate()
- ElseIf Maximum < Value Then
- Value = Maximum
- ElseIf Ammount > Maximum Then
- Value = Maximum
- End If
- End Sub
- Enum ColorTheme
- GammaRay = 0
- RedShift = 1
- Subspace = 2
- SolarFlare = 3
- End Enum
- Private _ThemeColor As ColorTheme
- Public Property ThemeStyle() As ColorTheme
- Get
- Return _ThemeColor
- End Get
- Set(ByVal v As ColorTheme)
- _ThemeColor = v
- Invalidate()
- End Set
- End Property
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement