initial commit
This commit is contained in:
i2p
@@ -0,0 +1,518 @@
|
||||
Imports System.Drawing, System.Drawing.Drawing2D
|
||||
'Theme
|
||||
Class CyberTheme
|
||||
Inherits Theme
|
||||
|
||||
Sub New()
|
||||
MoveHeight = 24
|
||||
BackColor = Color.FromArgb(34, 34, 34)
|
||||
|
||||
SetColor("Back", 25, 25, 25)
|
||||
SetColor("Gradient1", 35, 35, 35)
|
||||
SetColor("Gradient2", 20, 20, 20)
|
||||
SetColor("Border1", 34, 34, 34)
|
||||
SetColor("Border2", 49, 49, 49)
|
||||
SetColor("Border3", Color.Black)
|
||||
SetColor("Line1", Color.Black)
|
||||
SetColor("Line2", Color.Black)
|
||||
SetColor("Hatch1", Color.Black)
|
||||
SetColor("Hatch2", 34, 34, 34)
|
||||
SetColor("Shade1", 70, Color.Black)
|
||||
SetColor("Shade2", Color.Transparent)
|
||||
SetColor("Text", Color.LightBlue)
|
||||
End Sub
|
||||
|
||||
Private C1, C2, C3, C4, C5 As Color
|
||||
Private P1, P2, P3, P4, P5 As Pen
|
||||
Private B1 As HatchBrush
|
||||
Private B2 As SolidBrush
|
||||
|
||||
Protected Overrides Sub ColorHook()
|
||||
C1 = GetColor("Back")
|
||||
C2 = GetColor("Gradient1")
|
||||
C3 = GetColor("Gradient2")
|
||||
C4 = GetColor("Shade1")
|
||||
C5 = GetColor("Shade2")
|
||||
|
||||
P1 = New Pen(GetColor("Border1"))
|
||||
P2 = New Pen(GetColor("Line1"))
|
||||
P3 = New Pen(GetColor("Line2"))
|
||||
P4 = New Pen(GetColor("Border2"))
|
||||
P5 = New Pen(GetColor("Border3"))
|
||||
|
||||
B1 = New HatchBrush(HatchStyle.DarkUpwardDiagonal, GetColor("Hatch1"), GetColor("Hatch2"))
|
||||
B2 = New SolidBrush(GetColor("Text"))
|
||||
|
||||
BackColor = C1
|
||||
End Sub
|
||||
|
||||
Private RT1 As Rectangle
|
||||
|
||||
Protected Overrides Sub PaintHook()
|
||||
G.Clear(C1)
|
||||
|
||||
RT1 = New Rectangle(1, 1, Width - 2, 22)
|
||||
DrawGradient(C2, C3, RT1, 90.0F)
|
||||
DrawBorders(P1, RT1)
|
||||
|
||||
G.DrawLine(P2, 0, 23, Width, 23)
|
||||
|
||||
DrawBorders(P4, 1, 24, Width - 2, Height - 24)
|
||||
|
||||
DrawText(B2, HorizontalAlignment.Center, 5, 0)
|
||||
|
||||
DrawBorders(P5)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
'Button
|
||||
Class CyberButton
|
||||
Inherits ThemeControl
|
||||
|
||||
Sub New()
|
||||
SetColor("BackColor", Color.FromArgb(40, 40, 40))
|
||||
SetColor("TextColor", Color.LightBlue)
|
||||
Size = New Size(100, 30)
|
||||
End Sub
|
||||
|
||||
|
||||
Dim C1, T1 As Color
|
||||
Protected Overrides Sub ColorHook()
|
||||
C1 = GetColor("BackColor")
|
||||
T1 = GetColor("TextColor")
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Overrides Sub PaintHook()
|
||||
G.Clear(C1)
|
||||
Select Case State
|
||||
Case 0
|
||||
DrawGradient(Color.FromArgb(50, 50, 50), Color.FromArgb(42, 42, 42), ClientRectangle, 90S)
|
||||
Cursor = Cursors.Arrow
|
||||
Case 1
|
||||
DrawGradient(Color.FromArgb(42, 42, 42), Color.FromArgb(38, 38, 38), ClientRectangle, 90S)
|
||||
Cursor = Cursors.Arrow
|
||||
Case 2
|
||||
DrawGradient(Color.FromArgb(30, 30, 30), Color.FromArgb(20, 20, 20), ClientRectangle, 90S)
|
||||
Cursor = Cursors.Arrow
|
||||
End Select
|
||||
DrawBorders(New Pen(New SolidBrush(Color.FromArgb(20, 20, 20))), 1)
|
||||
DrawBorders(New Pen(New SolidBrush(Color.FromArgb(35, 35, 35))))
|
||||
DrawCorners(Color.FromArgb(35, 35, 35))
|
||||
DrawText(New SolidBrush(T1), HorizontalAlignment.Center, 0, 0)
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
'Top Button
|
||||
Class CyberTopButton
|
||||
Inherits ThemeControl
|
||||
|
||||
Sub New()
|
||||
SetColor("BackColor", Color.FromArgb(40, 40, 40))
|
||||
SetColor("TextColor", Color.LightBlue)
|
||||
Size = New Size(35, 22)
|
||||
LockHeight = 22
|
||||
LockWidth = 35
|
||||
End Sub
|
||||
Dim C1, T1 As Color
|
||||
Protected Overrides Sub ColorHook()
|
||||
C1 = GetColor("BackColor")
|
||||
T1 = GetColor("TextColor")
|
||||
End Sub
|
||||
Protected Overrides Sub PaintHook()
|
||||
G.Clear(C1)
|
||||
Select Case State
|
||||
Case 0
|
||||
DrawGradient(Color.FromArgb(38, 38, 38), Color.FromArgb(30, 30, 30), ClientRectangle, 90S)
|
||||
Cursor = Cursors.Arrow
|
||||
Case 1
|
||||
DrawGradient(Color.FromArgb(50, 50, 50), Color.FromArgb(42, 42, 42), ClientRectangle, 90S)
|
||||
Cursor = Cursors.Hand
|
||||
Case 2
|
||||
DrawGradient(Color.FromArgb(42, 42, 42), Color.FromArgb(50, 50, 50), ClientRectangle, 90S)
|
||||
Cursor = Cursors.Hand
|
||||
End Select
|
||||
DrawBorders(New Pen(New SolidBrush(Color.FromArgb(65, 65, 65))), New Rectangle(1, 0, Width - 2, Height))
|
||||
DrawBorders(New Pen(New SolidBrush(Color.FromArgb(22, 22, 22))))
|
||||
G.DrawLine(New Pen(New SolidBrush(Color.FromArgb(22, 22, 22))), 2, Height - 1, Width - 3, Height - 1)
|
||||
G.DrawLine(New Pen(New SolidBrush(Color.FromArgb(65, 65, 65))), 0, 1, Width - 1, 1)
|
||||
G.DrawLine(New Pen(New SolidBrush(Color.Black)), 0, 0, Width, 0)
|
||||
DrawText(New SolidBrush(T1), HorizontalAlignment.Center, 0, 0)
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
'CheckBox
|
||||
Class CyberCheckBox
|
||||
Inherits ThemeControl
|
||||
Private _CheckedState As Boolean
|
||||
Public Property CheckedState() As Boolean
|
||||
Get
|
||||
Return _CheckedState
|
||||
End Get
|
||||
Set(ByVal v As Boolean)
|
||||
_CheckedState = v
|
||||
Invalidate()
|
||||
End Set
|
||||
End Property
|
||||
Sub New()
|
||||
Size = New Size(118, 16)
|
||||
MinimumSize = New Size(16, 16)
|
||||
MaximumSize = New Size(600, 16)
|
||||
CheckedState = False
|
||||
SetColor("CheckBorderOut", Color.FromArgb(25, 25, 25))
|
||||
SetColor("CheckBorderIn", Color.FromArgb(59, 59, 59))
|
||||
SetColor("TextColor", Color.LightBlue)
|
||||
SetColor("CheckBack1", Color.FromArgb(132, 192, 240))
|
||||
SetColor("CheckBack2", Color.LightBlue)
|
||||
SetColor("CheckFore1", Color.LightBlue)
|
||||
SetColor("CheckFore2", Color.FromArgb(42, 242, 77))
|
||||
SetColor("ColorUncheck", Color.FromArgb(35, 35, 35))
|
||||
SetColor("BackColor", Color.FromArgb(25, 25, 25))
|
||||
End Sub
|
||||
Dim C1, C2, C3, C4, C5, C6, P1, P2, B1 As Color
|
||||
Protected Overrides Sub ColorHook()
|
||||
C1 = GetColor("CheckBack1")
|
||||
C2 = GetColor("CheckBack2")
|
||||
C3 = GetColor("CheckFore1")
|
||||
C4 = GetColor("CheckFore2")
|
||||
C5 = GetColor("ColorUncheck")
|
||||
C6 = GetColor("BackColor")
|
||||
P1 = GetColor("CheckBorderOut")
|
||||
P2 = GetColor("CheckBorderIn")
|
||||
B1 = GetColor("TextColor")
|
||||
End Sub
|
||||
Protected Overrides Sub PaintHook()
|
||||
G.Clear(C6)
|
||||
Select Case CheckedState
|
||||
Case True
|
||||
DrawGradient(C1, C2, 3, 3, 9, 9, 90S)
|
||||
DrawGradient(C3, C4, 4, 4, 7, 7, 90S)
|
||||
Case False
|
||||
DrawGradient(C5, C5, 0, 0, 15, 15, 90S)
|
||||
End Select
|
||||
G.DrawRectangle(New Pen(New SolidBrush(P1)), 0, 0, 14, 14)
|
||||
G.DrawRectangle(New Pen(New SolidBrush(P2)), 1, 1, 12, 12)
|
||||
DrawText(New SolidBrush(B1), 17, 0)
|
||||
DrawCorners(C6, New Rectangle(0, 0, 13, 13))
|
||||
End Sub
|
||||
Sub changeCheck() Handles Me.Click
|
||||
Select Case CheckedState
|
||||
Case True
|
||||
CheckedState = False
|
||||
Case False
|
||||
CheckedState = True
|
||||
End Select
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
'ProgressBar
|
||||
Class CyberProgressBar
|
||||
Inherits Control
|
||||
|
||||
#Region " Properties "
|
||||
Private _Maximum As Double = 100
|
||||
Public Property Maximum() As Double
|
||||
Get
|
||||
Return _Maximum
|
||||
End Get
|
||||
Set(ByVal v As Double)
|
||||
_Maximum = v
|
||||
Progress = _Current / v * 100
|
||||
Invalidate()
|
||||
End Set
|
||||
End Property
|
||||
Private _Current As Double
|
||||
Public Property Current() As Double
|
||||
Get
|
||||
Return _Current
|
||||
End Get
|
||||
Set(ByVal v As Double)
|
||||
_Current = v
|
||||
Progress = v / _Maximum * 100
|
||||
Invalidate()
|
||||
End Set
|
||||
End Property
|
||||
Private _Progress As Integer
|
||||
Public Property Progress() As Double
|
||||
Get
|
||||
Return _Progress
|
||||
End Get
|
||||
Set(ByVal v As Double)
|
||||
If v < 0 Then v = 0 Else If v > 100 Then v = 100
|
||||
_Progress = Convert.ToInt32(v)
|
||||
_Current = v * 0.01 * _Maximum
|
||||
If Width > 0 Then UpdateProgress()
|
||||
Invalidate()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim C2 As Color = Color.FromArgb(0, 192, 192) 'Dark Color
|
||||
Public Property Color1() As Color
|
||||
Get
|
||||
Return C2
|
||||
End Get
|
||||
Set(ByVal v As Color)
|
||||
C2 = v
|
||||
UpdateColors()
|
||||
Invalidate()
|
||||
End Set
|
||||
End Property
|
||||
Dim C3 As Color = Color.FromArgb(0, 238, 238) 'Light color
|
||||
Public Property Color2() As Color
|
||||
Get
|
||||
Return C3
|
||||
End Get
|
||||
Set(ByVal v As Color)
|
||||
C3 = v
|
||||
UpdateColors()
|
||||
Invalidate()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
Protected Overrides Sub OnPaintBackground(ByVal pevent As PaintEventArgs)
|
||||
End Sub
|
||||
|
||||
Dim G As Graphics, B As Bitmap, R1, R2 As Rectangle, X As ColorBlend
|
||||
Dim C1 As Color, P1, P2, P3 As Pen, B1, B2 As LinearGradientBrush, B3 As SolidBrush
|
||||
Sub New()
|
||||
|
||||
C1 = Color.FromArgb(22, 22, 22) 'Background
|
||||
P1 = New Pen(Color.FromArgb(70, Color.White), 2)
|
||||
P2 = New Pen(C2)
|
||||
P3 = New Pen(Color.FromArgb(49, 49, 49)) 'Highlight
|
||||
B3 = New SolidBrush(Color.FromArgb(100, Color.White))
|
||||
X = New ColorBlend(4)
|
||||
X.Colors = {C2, C3, C3, C2}
|
||||
X.Positions = {0.0F, 0.1F, 0.9F, 1.0F}
|
||||
R2 = New Rectangle(2, 2, 2, 2)
|
||||
B2 = New LinearGradientBrush(R2, Nothing, Nothing, 180.0F)
|
||||
B2.InterpolationColors = X
|
||||
|
||||
End Sub
|
||||
|
||||
Sub UpdateColors()
|
||||
P2.Color = C2
|
||||
X.Colors = {C2, C3, C3, C2}
|
||||
B2.InterpolationColors = X
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub OnSizeChanged(ByVal e As System.EventArgs)
|
||||
R1 = New Rectangle(0, 1, Width, 4)
|
||||
B1 = New LinearGradientBrush(R1, Color.FromArgb(60, Color.Black), Color.Transparent, 90.0F)
|
||||
UpdateProgress()
|
||||
Invalidate()
|
||||
MyBase.OnSizeChanged(e)
|
||||
End Sub
|
||||
|
||||
Sub UpdateProgress()
|
||||
If _Progress = 0 Then Return
|
||||
R2 = New Rectangle(2, 2, Convert.ToInt32((Width - 4) * (_Progress * 0.01)), Height - 4)
|
||||
B2 = New LinearGradientBrush(R2, Nothing, Nothing, 180.0F)
|
||||
B2.InterpolationColors = X
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
|
||||
B = New Bitmap(Width, Height)
|
||||
G = Graphics.FromImage(B)
|
||||
|
||||
G.Clear(C1)
|
||||
|
||||
G.FillRectangle(B1, R1)
|
||||
|
||||
If _Progress > 0 Then
|
||||
G.FillRectangle(B2, R2)
|
||||
|
||||
G.FillRectangle(B3, 2, 3, R2.Width, 4)
|
||||
G.DrawRectangle(P1, 4, 4, R2.Width - 4, Height - 8)
|
||||
|
||||
G.DrawRectangle(P2, 2, 2, R2.Width - 1, Height - 5)
|
||||
End If
|
||||
|
||||
G.DrawRectangle(P3, 0, 0, Width - 1, Height - 1)
|
||||
|
||||
e.Graphics.DrawImage(B, 0, 0)
|
||||
G.Dispose()
|
||||
B.Dispose()
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
'Label
|
||||
Class CyberLabel
|
||||
Inherits ThemeControl
|
||||
Sub New()
|
||||
Size = New Size(73, 16)
|
||||
MinimumSize = New Size(16, 16)
|
||||
MaximumSize = New Size(600, 16)
|
||||
SetColor("TextColor", Color.LightBlue)
|
||||
SetColor("BackColor", Color.FromArgb(25, 25, 25))
|
||||
End Sub
|
||||
Dim C6, B1 As Color
|
||||
Protected Overrides Sub ColorHook()
|
||||
C6 = GetColor("BackColor")
|
||||
B1 = GetColor("TextColor")
|
||||
End Sub
|
||||
Protected Overrides Sub PaintHook()
|
||||
G.Clear(C6)
|
||||
DrawText(New SolidBrush(B1), 0, 0)
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
'TextBox
|
||||
Class CyberTextBox
|
||||
Inherits ThemeControl
|
||||
Dim WithEvents CyberTextBox As TextBox
|
||||
Public Sub New()
|
||||
CyberTextBox = New TextBox
|
||||
CyberTextBox.Parent = Me
|
||||
CyberTextBox.Size = New Size(New Point(10, 19))
|
||||
CyberTextBox.ForeColor = Color.LightBlue
|
||||
CyberTextBox.BackColor = Color.FromArgb(30, 30, 30)
|
||||
CyberTextBox.BorderStyle = BorderStyle.FixedSingle
|
||||
End Sub
|
||||
Protected Overrides Sub ColorHook()
|
||||
End Sub
|
||||
Protected Overrides Sub PaintHook()
|
||||
End Sub
|
||||
Public Property Multilined() As Boolean
|
||||
Get
|
||||
Return CyberTextBox.Multiline
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
CyberTextBox.Multiline = value
|
||||
Invalidate()
|
||||
End Set
|
||||
End Property
|
||||
Sub s() Handles Me.Invalidated
|
||||
If CyberTextBox.Multiline = False Then
|
||||
Me.MinimumSize = New Size(100, 20)
|
||||
Me.MaximumSize = New Size(1000, 20)
|
||||
Else
|
||||
Me.MinimumSize = New Size(100, 20)
|
||||
Me.MaximumSize = New Size(1000, 20)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub res() Handles Me.SizeChanged
|
||||
CyberTextBox.Width = Width
|
||||
CyberTextBox.Height = Height
|
||||
End Sub
|
||||
Private Sub tt() Handles Me.TextChanged
|
||||
CyberTextBox.Text = Me.Text
|
||||
End Sub
|
||||
Private Sub ttt() Handles CyberTextBox.TextChanged
|
||||
Me.Text = CyberTextBox.Text
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
'Seperator
|
||||
Class CyberSeparator
|
||||
Inherits Control
|
||||
|
||||
Private _Orientation As Orientation
|
||||
Public Property Orientation() As Orientation
|
||||
Get
|
||||
Return _Orientation
|
||||
End Get
|
||||
Set(ByVal v As Orientation)
|
||||
_Orientation = v
|
||||
UpdateOffset()
|
||||
Invalidate()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim G As Graphics, B As Bitmap, I As Integer
|
||||
Dim C1 As Color, P1, P2 As Pen
|
||||
Sub New()
|
||||
SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint, True)
|
||||
C1 = Color.FromArgb(25, 25, 25)
|
||||
P1 = New Pen(Color.LightBlue)
|
||||
P2 = New Pen(Color.FromArgb(22, 22, 22))
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub OnSizeChanged(ByVal e As EventArgs)
|
||||
UpdateOffset()
|
||||
MyBase.OnSizeChanged(e)
|
||||
End Sub
|
||||
|
||||
Sub UpdateOffset()
|
||||
I = Convert.ToInt32(If(_Orientation = 0, Height / 2 - 1, Width / 2 - 1))
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
|
||||
B = New Bitmap(Width, Height)
|
||||
G = Graphics.FromImage(B)
|
||||
|
||||
G.Clear(C1)
|
||||
|
||||
If _Orientation = 0 Then
|
||||
G.DrawLine(P1, 0, I, Width, I)
|
||||
G.DrawLine(P2, 0, I + 1, Width, I + 1)
|
||||
Else
|
||||
G.DrawLine(P2, I, 0, I, Height)
|
||||
G.DrawLine(P1, I + 1, 0, I + 1, Height)
|
||||
End If
|
||||
|
||||
e.Graphics.DrawImage(B, 0, 0)
|
||||
G.Dispose()
|
||||
B.Dispose()
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub OnPaintBackground(ByVal pevent As PaintEventArgs)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
'GroupBox
|
||||
Class CyberGroupBox
|
||||
Inherits Theme
|
||||
Private C1 As Color
|
||||
Private C2, C3 As Color
|
||||
Private P1 As Pen
|
||||
Private B1 As Brush
|
||||
Private B2 As Brush
|
||||
Private B5 As Brush
|
||||
Private HB1 As Brush
|
||||
Sub New()
|
||||
ControlMode = True
|
||||
Size = New Size(205, 95)
|
||||
End Sub
|
||||
|
||||
Private _subtext As String
|
||||
Public Property TextSub() As String
|
||||
Get
|
||||
Return _subtext
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
_subtext = value
|
||||
Invalidate()
|
||||
End Set
|
||||
End Property
|
||||
Protected Overrides Sub ColorHook()
|
||||
C1 = Color.FromArgb(25, 25, 25)
|
||||
C2 = Color.FromArgb(25, 25, 25)
|
||||
C3 = Color.FromArgb(0, 0, 0)
|
||||
P1 = Pens.Black
|
||||
B1 = New SolidBrush(Color.FromArgb(60, Color.White))
|
||||
B2 = New SolidBrush(Color.White)
|
||||
B5 = New SolidBrush(Color.White)
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub PaintHook()
|
||||
Dim hb1 As New Drawing2D.HatchBrush(Drawing2D.HatchStyle.Trellis, Color.FromArgb(15, 15, 15))
|
||||
Dim hb2 As New Drawing2D.HatchBrush(Drawing2D.HatchStyle.Trellis, Color.FromArgb(35, 35, 35))
|
||||
Dim hb3 As New Drawing2D.HatchBrush(Drawing2D.HatchStyle.Trellis, Color.FromArgb(0, 0, 0))
|
||||
G.Clear(C1)
|
||||
G.FillRectangle(New SolidBrush(Color.Transparent), 0, 0, Width, Height)
|
||||
G.FillRectangle(New SolidBrush(Color.Transparent), 0, 0, Width, 15)
|
||||
G.DrawRectangle(P1, 0, 0, Width - 1, CInt(Height - 1))
|
||||
G.FillRectangle(New SolidBrush(Color.FromArgb(80, 35, 35, 35)), 0, 0, Width, 20)
|
||||
G.FillRectangle(New SolidBrush(Color.FromArgb(20, 20, 20)), 0, 0, Width - 1, 20)
|
||||
G.DrawRectangle(P1, 0, 0, Width - 1, 20)
|
||||
G.DrawString(Text, Font, Brushes.LightBlue, New Point(5, 3))
|
||||
Dim SubFont As Font = New Font(DefaultFont.FontFamily, Font.Size - 1)
|
||||
G.DrawString(_subtext, SubFont, New SolidBrush(Color.FromArgb(48, 48, 48)), New Point(6, 26))
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user