Imports System.Drawing.Drawing2D
Imports System.ComponentModel
<DefaultEvent("BlendChanged")> _
Public Class ColorBlender
Inherits UserControl
Dim StartPointer As Pointer = New Pointer(0, Color.White, False)
Dim EndPointer As Pointer = New Pointer(1, Color.Black, False)
Dim MiddlePointers As New Collection
Dim MouseMoving As Boolean = False
Dim CurrPointer As Integer
'List of Known Colors - Done this way because I haven't found a good
'way to get the Known Colors in color shade order yet
Dim Known_Color() As String = Split("Transparent,Black,DimGray,Gray,DarkGray,Silver,LightGray,Gainsboro,WhiteSmoke,White,RosyBrown,IndianRed,Brown,Firebrick,LightCoral,Maroon,DarkRed,Red,Snow,MistyRose,Salmon,Tomato,DarkSalmon,Coral,OrangeRed,LightSalmon,Sienna,SeaShell,Chocalate,SaddleBrown,SandyBrown,PeachPuff,Peru,Linen,Bisque,DarkOrange,BurlyWood,Tan,AntiqueWhite,NavajoWhite,BlanchedAlmond,PapayaWhip,Mocassin,Orange,Wheat,OldLace,FloralWhite,DarkGoldenrod,Cornsilk,Gold,Khaki,LemonChiffon,PaleGoldenrod,DarkKhaki,Beige,LightGoldenrod,Olive,Yellow,LightYellow,Ivory,OliveDrab,YellowGreen,DarkOliveGreen,GreenYellow,Chartreuse,LawnGreen,DarkSeaGreen,ForestGreen,LimeGreen,PaleGreen,DarkGreen,Green,Lime,Honeydew,SeaGreen,MediumSeaGreen,SpringGreen,MintCream,MediumSpringGreen,MediumAquaMarine,YellowAquaMarine,Turquoise,LightSeaGreen,MediumTurquoise,DarkSlateGray,PaleTurquoise,Teal,DarkCyan,Aqua,Cyan,LightCyan,Azure,DarkTurquoise,CadetBlue,PowderBlue,LightBlue,DeepSkyBlue,SkyBlue,LightSkyBlue,SteelBlue,AliceBlue,DodgerBlue,SlateGray,LightSlateGray,LightSteelBlue,CornflowerBlue,RoyalBlue,MidnightBlue,Lavender,Navy,DarkBlue,MediumBlue,Blue,GhostWhite,SlateBlue,DarkSlateBlue,MediumSlateBlue,MediumPurple,BlueViolet,Indigo,DarkOrchid,DarkViolet,MediumOrchid,Thistle,Plum,Violet,Purple,DarkMagenta,Magenta,Fuchsia,Orchid,MediumVioletRed,DeepPink,HotPink,LavenderBlush,PaleVioletRed,Crimson,Pink,LightPink", ",")
Public Event BlendChanged()
Private Sub ColorBlender_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
cboBrushMode.SelectedIndex = 1
ColorBox.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
ColorBox.DropDownStyle = ComboBoxStyle.DropDownList
AddHandler ColorBox.DrawItem, AddressOf Me.ColorList_DrawItem
ColorBox.Items.AddRange(Known_Color)
ColorBox.SelectedIndex = 1
cboPathShape.SelectedIndex = 1
Me.BlendPathCenterPoint = New PointF(Me.Width - 47.5, BarHeight + 57.5)
Me.BlendGradientType = eBlendGradientType.Linear
End Sub
Private Sub ColorBlender_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
Me.BlendPathCenterPoint = New PointF(Me.Width - 47.5, BarHeight + 57.5)
End Sub
#Region "Properties"
Private _BlendColors() As Color = New Color() {Color.White, Color.Black}
<Category("ColorBlender")> _
<Description("Array of Colors used in ColorBlend")> _
Public Property BlendColors() As Color()
Get
Return _BlendColors
End Get
Set(ByVal value As Color())
_BlendColors = value
'Me.Invalidate()
End Set
End Property
Private _BlendPositions() As Single = New Single() {0, 1}
<Category("ColorBlender")> _
<Description("Array of Color Positions used in ColorBlend")> _
Public Property BlendPositions() As Single()
Get
Return _BlendPositions
End Get
Set(ByVal value As Single())
_BlendPositions = value
'Me.Invalidate()
End Set
End Property
Private _BarHeight As Single = 20
<Category("ColorBlender")> _
<Description("Height of color blender bar")> _
Public Property BarHeight() As Single
Get
Return _BarHeight
End Get
Set(ByVal value As Single)
_BarHeight = value
panProps.Location = New Point(10, value + 20)
Me.Invalidate()
End Set
End Property
Enum eBlendGradientType
Linear
Path
End Enum
Private _BlendGradientType As eBlendGradientType = eBlendGradientType.Linear
<Category("ColorBlender")> _
<Description("Type of brush used to paint color blend")> _
Public Property BlendGradientType() As eBlendGradientType
Get
Return _BlendGradientType
End Get
Set(ByVal value As eBlendGradientType)
_BlendGradientType = value
Me.Invalidate()
End Set
End Property
Enum eBlendPathShape
Rectangle
Ellipse
Triangle
Polygon
End Enum
Private _BlendPathShape As eBlendPathShape = eBlendPathShape.Rectangle
<Category("ColorBlender")> _
<Description("Shape of path for the color blend")> _
Public Property BlendPathShape() As eBlendPathShape
Get
Return _BlendPathShape
End Get
Set(ByVal value As eBlendPathShape)
_BlendPathShape = value
Me.Invalidate()
End Set
End Property
Private _BlendPathCenterPoint As PointF = New PointF
<Category("ColorBlender")> _
<Description("Position of the center of the path ColorBlend")> _
Public Property BlendPathCenterPoint() As PointF
Get
Return _BlendPathCenterPoint
End Get
Set(ByVal value As PointF)
_BlendPathCenterPoint = value
Me.Invalidate()
End Set
End Property
Private _BlendGradientMode As LinearGradientMode = LinearGradientMode.Vertical
<Category("ColorBlender")> _
<Description("Type of linear gradient color blend")> _
Public Property BlendGradientMode() As LinearGradientMode
Get
Return _BlendGradientMode
End Get
Set(ByVal value As LinearGradientMode)
_BlendGradientMode = value
Me.Invalidate()
End Set
End Property
#End Region 'Properties
#Region "Methods"
Public Function BlendConvertCenterPoint(ByVal cWidth As Single, ByVal cHeight As Single) As Point
Return New Point( _
(BlendPathCenterPoint.X - (Width - 85)) * (cWidth / 75), _
(BlendPathCenterPoint.Y - (BarHeight + 20)) * (cHeight / 75))
End Function
#End Region
#Region "Mouse Events"
Private Sub ColorBlender_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
'Check if the pointer is over the Sample Preview
If BlendGradientType = eBlendGradientType.Path AndAlso IsMouseOverSample(e.X, e.Y) Then
BlendPathCenterPoint = New Point(e.X, e.Y)
Me.Invalidate(New Rectangle(Me.Width - 85, BarHeight + 20, 75, 75))
Else
If e.Y > BarHeight - 10 And e.Y < BarHeight + 20 And e.X > 5 And e.X < Me.Width - 5 Then
'Check if the cursor is over a MiddlePointer
Dim mOver As Integer = IsMouseOverPointer(e.X, e.Y)
If mOver > -1 Then
If Not CurrPointer = mOver Then
CurrPointer = mOver
ClearCurrPointer()
MiddlePointers(CurrPointer).pIsCurr = True
UpdateRGBnuds(MiddlePointers(CurrPointer).pColor)
End If
If e.Button = Windows.Forms.MouseButtons.Left Then
MouseMoving = True
ElseIf e.Button = Windows.Forms.MouseButtons.Right Then
MiddlePointers.Remove(CurrPointer)
End If
Else
'Check if the cursor is over a Start or End Pointer
If IsMouseOverStartPointer(e.X, e.Y) Then
ClearCurrPointer()
CurrPointer = -1
StartPointer.pIsCurr = True
UpdateRGBnuds(StartPointer.pColor)
ElseIf IsMouseOverEndPointer(e.X, e.Y) Then
ClearCurrPointer()
CurrPointer = -1
EndPointer.pIsCurr = True
UpdateRGBnuds(EndPointer.pColor)
Else
'If the cursor is not over a Pointer then Add One
If e.Button = Windows.Forms.MouseButtons.Left Then
ClearCurrPointer()
MiddlePointers.Add(New Pointer(((e.X - 10) / (Me.Width - 20)), _
Color.FromArgb(tbarAlpha.Value, nudRed.Value, nudGreen.Value, nudBlue.Value), True))
SortCollection(MiddlePointers, "pPos", True)
CurrPointer = FindCurr()
Me.Invalidate()
MouseMoving = True
End If
End If
End If
End If
End If
End Sub
Private Sub ColorBlender_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then
If BlendGradientType = eBlendGradientType.Path AndAlso IsMouseOverSample(e.X, e.Y) Then
BlendPathCenterPoint = New Point(e.X, e.Y)
Me.Invalidate(New Rectangle(Me.Width - 85, BarHeight + 20, 75, 75))
Else
If MouseMoving Then
If e.X >= 11 And e.X <= (Me.Width - 11) Then
MiddlePointers(CurrPointer).pPos = ((e.X - 10) / (Me.Width - 20))
SortCollection(MiddlePointers, "pPos", True)
CurrPointer = FindCurr()
Me.Invalidate()
End If
End If
End If
End If
End Sub
Private Sub ColorBlender_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
MouseMoving = False
SortCollection(MiddlePointers, "pPos", True)
CurrPointer = FindCurr()
Me.Invalidate()
End Sub
Private Function IsMouseOverSample(ByVal X As Integer, ByVal Y As Integer) As Boolean
Dim gp As GraphicsPath = GetShapePath(New Rectangle(Me.Width - 85, BarHeight + 20, 75, 75))
'Convert to Region.
Using PointerRegion As New Region(gp)
'Is the point inside the region.
Return PointerRegion.IsVisible(X, Y)
End Using
gp.Dispose()
End Function
Private Function IsMouseOverStartPointer(ByVal X As Integer, ByVal Y As Integer) As Boolean
'Convert to Region.
Using PointerRegion As New Region(BuildPointer(GetpX(0)))
'Is the point inside the region.
Return PointerRegion.IsVisible(X, Y)
End Using
End Function
Private Function IsMouseOverEndPointer(ByVal X As Integer, ByVal Y As Integer) As Boolean
'Convert to Region.
Using PointerRegion As New Region(BuildPointer(GetpX(1)))
'Is the point inside the region.
Return PointerRegion.IsVisible(X, Y)
End Using
End Function
Private Function IsMouseOverPointer(ByVal X As Integer, ByVal Y As Integer) As Integer
If MiddlePointers IsNot Nothing Then
For I As Integer = 1 To MiddlePointers.Count
'Convert to Region.
Using PointerRegion As New Region(BuildPointer(GetpX(MiddlePointers(I).pPos)))
'Is the point inside the region.
If PointerRegion.IsVisible(X, Y) Then Return I
End Using
Next
Return -1
End If
End Function
Private Sub ClearCurrPointer()
For Each ptr As Pointer In MiddlePointers
ptr.pIsCurr = False
Next
StartPointer.pIsCurr = False
EndPointer.pIsCurr = False
End Sub
Private Function FindCurr() As Integer
For i As Integer = 1 To MiddlePointers.Count
If MiddlePointers(i).piscurr Then Return i
Next
Return -1
End Function
#End Region 'Mouse Events
#Region "Drawing"
Private Sub DrawPointer(ByRef g As Graphics, ByVal bColor As Color, ByVal pt As Single, ByVal IsCurr As Boolean)
Using cpbr As Brush = New SolidBrush(bColor)
Using pn As New Pen(Color.LightGray, 2)
Dim pX As Single = GetpX(pt)
g.FillPath(cpbr, BuildPointer(pX))
g.DrawPath(pn, BuildPointer(pX))
pn.Width = 1
pn.Color = Color.Black
g.DrawPath(pn, BuildPointer(pX))
If IsCurr Then
g.FillEllipse(Brushes.Red, pX + 10, BarHeight + 8, 10, 4)
End If
End Using
End Using
End Sub
Private Function GetpX(ByVal pos As Single)
Return ((Me.Width - 20) * pos) - 5
End Function
Private Function BuildPointer(ByVal cPX As Single) As GraphicsPath
cPX += 10
Dim gp As New GraphicsPath
gp.AddLine(cPX + 5, BarHeight - 3, cPX + 10, BarHeight)
gp.AddLine(cPX + 10, BarHeight, cPX + 10, BarHeight + 7)
gp.AddLine(cPX + 10, BarHeight + 7, cPX, BarHeight + 7)
gp.AddLine(cPX, BarHeight + 7, cPX, BarHeight)
gp.CloseFigure()
Return gp
End Function
Public Function LinearBrush(ByVal BaseRect As Rectangle, ByVal Mode As LinearGradientMode) As LinearGradientBrush
Dim br = New LinearGradientBrush(New Rectangle(BaseRect.X - 1, BaseRect.Y - 1, _
BaseRect.Width + 2, BaseRect.Height + 2), Color.AliceBlue, Color.Blue, Mode)
Dim blend As ColorBlend = New ColorBlend()
blend.Colors = BlendColors
blend.Positions = BlendPositions
br.interpolationColors = blend
Return br
End Function
Public Function PathBrush(ByVal BaseRect As Rectangle) As PathGradientBrush
Dim gp As GraphicsPath = GetShapePath(BaseRect)
Dim br As PathGradientBrush = New PathGradientBrush(gp)
Dim blend As ColorBlend = New ColorBlend()
blend.Colors = BlendColors
blend.Positions = BlendPositions
br.CenterPoint = BlendPathCenterPoint
br.InterpolationColors = blend
gp.Dispose()
Return br
End Function
Public Function GetShapePath(ByVal rect As Rectangle) As GraphicsPath
Dim gp As GraphicsPath = New GraphicsPath
Select Case BlendPathShape
Case eBlendPathShape.Ellipse
gp.AddEllipse(rect)
Case eBlendPathShape.Triangle
Dim pts() As Point = New Point() { _
New Point(rect.X + (rect.Width / 2), rect.Y), _
New Point(rect.X + rect.Width, rect.Y + rect.Height), _
New Point(rect.X, rect.Y + rect.Height)}
gp.AddPolygon(pts)
Case eBlendPathShape.Polygon
Dim pts() As Point = New Point() { _
New Point(rect.X + (rect.Width / 2), rect.Y), _
New Point(rect.X + rect.Width / 1.5, rect.Y + rect.Height / 4), _
New Point(rect.X + rect.Width, rect.Y + rect.Height / 3), _
New Point(rect.X + rect.Width / 1.5, rect.Y + rect.Height / 2), _
New Point(rect.X + rect.Width / 1.1, rect.Y + rect.Height / 1.1), _
New Point(rect.X + rect.Width / 2, rect.Y + rect.Height / 1.2), _
New Point(rect.X + rect.Width / 2.5, rect.Y + rect.Height), _
New Point(rect.X, rect.Y + rect.Height / 1.5), _
New Point(rect.X + rect.Width / 8, rect.Y + rect.Height / 2), _
New Point(rect.X + rect.Width / 10, rect.Y + rect.Height / 5) _
}
gp.AddPolygon(pts)
Case eBlendPathShape.Rectangle
gp.AddRectangle(rect)
End Select
Return gp
End Function
Private Sub BuildABlend()
Dim lColors As New List(Of Color)
lColors.Add(StartPointer.pColor)
If MiddlePointers IsNot Nothing Then
For Each ptr As Pointer In MiddlePointers
lColors.Add(ptr.pColor)
Next
End If
lColors.Add(EndPointer.pColor)
BlendColors = lColors.ToArray
lColors = Nothing
Dim lPos As New List(Of Single)
lPos.Add(StartPointer.pPos)
If MiddlePointers IsNot Nothing Then
For Each ptr As Pointer In MiddlePointers
lPos.Add(ptr.pPos)
Next
End If
lPos.Add(EndPointer.pPos)
BlendPositions = lPos.ToArray
lPos = Nothing
RaiseEvent BlendChanged()
End Sub
Private Function GetBrushMode() As LinearGradientMode
Select Case cboBrushMode.Text
Case "Horizontal"
Return LinearGradientMode.Horizontal
Case "Vertical"
Return LinearGradientMode.Vertical
Case "ForwardDiagonal"
Return LinearGradientMode.ForwardDiagonal
Case "BackwardDiagonal"
Return LinearGradientMode.BackwardDiagonal
End Select
End Function
Private Sub UpdatePointerColor()
Dim CurrColor As Color = Color.FromArgb(tbarAlpha.Value, nudRed.Value, nudGreen.Value, nudBlue.Value)
If StartPointer.pIsCurr Then
StartPointer.pColor = CurrColor
ElseIf EndPointer.pIsCurr Then
EndPointer.pColor = CurrColor
Else
Dim curr As Integer = FindCurr()
If curr > -1 Then MiddlePointers(curr).pColor = CurrColor
End If
panCurrColor.BackColor = CurrColor
txbCurrColor.Text = GetColorName(CurrColor)
Me.Invalidate()
End Sub
Function GetColorName(ByVal c As Color) As String
For Each ColorName As String In Known_Color
If Not (Color.FromName(ColorName).IsSystemColor) Then
If CInt(ColorTranslator.ToWin32(Color.FromName(ColorName))) = CInt(ColorTranslator.ToWin32(c)) Then
Return IIf(c.Name = "ffffffff", "White- ffffffff", ColorName & "- " & c.Name)
End If
End If
Next
Return IIf(c.Name = "ff7f007f", "Transparent- ff7f007f", c.Name)
End Function
#End Region 'Drawing
#Region "Painting"
Protected Overrides Sub OnPaintBackground(ByVal e As System.Windows.Forms.PaintEventArgs)
'Do Nothing
End Sub
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
'Go through each Pointer in the collection to get the current Color and Position arrays
BuildABlend()
'Create a canvas to aint on the same size as the control
Dim bitmapBuffer As Bitmap = New Bitmap(Me.ClientSize.Width, Me.ClientSize.Height)
Dim g As Graphics = Graphics.FromImage(bitmapBuffer)
g.Clear(Me.BackColor)
g.SmoothingMode = SmoothingMode.AntiAlias
' Paint the ColorBlender Bar with the Linear Brush
Dim barRect As Rectangle = New Rectangle(10, 0, Me.ClientSize.Width - 20, BarHeight)
Dim br As Brush = LinearBrush(barRect, LinearGradientMode.Horizontal)
g.FillRectangle(br, barRect)
' Paint the ColorBlender Sample with the chosen Brush
Dim sampleRect As Rectangle = New Rectangle(Me.Width - 85, BarHeight + 20, 75, 75)
If BlendGradientType = eBlendGradientType.Linear Then
br = LinearBrush(sampleRect, GetBrushMode)
Else
br = PathBrush(sampleRect)
g.DrawString(String.Format("X: {0} Y: {1}", _
BlendPathCenterPoint.X - (Width - 85), _
BlendPathCenterPoint.Y - (BarHeight + 20)), _
New Font("Arial", 8, FontStyle.Regular), _
Brushes.Black, Width - 85, BarHeight + 100)
End If
g.FillRectangle(br, sampleRect)
'Draw all the pointers in their Color at their Position along the Bar
Using pn As New Pen(Color.Gray, 1)
pn.DashStyle = DashStyle.Dash
g.DrawLine(pn, 10, BarHeight + 7, Me.ClientSize.Width - 15, BarHeight + 7)
pn.Color = Color.Black
pn.DashStyle = DashStyle.Solid
DrawPointer(g, StartPointer.pColor, 0, StartPointer.pIsCurr)
DrawPointer(g, EndPointer.pColor, 1, EndPointer.pIsCurr)
If MiddlePointers IsNot Nothing Then
For I As Integer = 1 To MiddlePointers.Count
DrawPointer(g, MiddlePointers(I).pColor, _
MiddlePointers(I).pPos, I = CurrPointer)
Next
End If
End Using
'Draw the entire image to the control in one shot to eliminate flicker
e.Graphics.DrawImage(bitmapBuffer.Clone, 0, 0)
bitmapBuffer.Dispose()
br.Dispose()
g.Dispose()
End Sub
#End Region 'Painting
#Region "SortCollection"
Private Sub SortCollection(ByVal col As Collection, _
ByVal psSortPropertyName As String, ByVal pbAscending As Boolean, _
Optional ByVal psKeyPropertyName As String = "")
Dim obj As Object
Dim i As Integer
Dim j As Integer
Dim iMinMaxIndex As Integer
Dim vMinMax As Object
Dim vValue As Object
Dim bSortCondition As Boolean
Dim bUseKey As Boolean
Dim sKey As String
bUseKey = (psKeyPropertyName <> "")
For i = 1 To col.Count - 1
obj = col(i)
vMinMax = CallByName(obj, psSortPropertyName, vbGet)
iMinMaxIndex = i
For j = i + 1 To col.Count
obj = col(j)
vValue = CallByName(obj, _
psSortPropertyName, vbGet)
If (pbAscending) Then
bSortCondition = (vValue < vMinMax)
Else
bSortCondition = (vValue > vMinMax)
End If
If (bSortCondition) Then
vMinMax = vValue
iMinMaxIndex = j
End If
obj = Nothing
Next j
If (iMinMaxIndex <> i) Then
obj = col(iMinMaxIndex)
col.Remove(iMinMaxIndex)
If (bUseKey) Then
sKey = CStr(CallByName(obj, _
psKeyPropertyName, vbGet))
col.Add(obj, sKey, i)
Else
col.Add(obj, , i)
End If
obj = Nothing
End If
obj = Nothing
Next i
End Sub
#End Region 'SortCollection
#Region "Controls"
Private Sub cboBrushMode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboBrushMode.SelectedIndexChanged
BlendGradientMode = GetBrushMode()
Me.Invalidate()
End Sub
Private Sub ColorBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColorBox.SelectedIndexChanged
UpdateRGBnuds(Color.FromName(ColorBox.Text))
Panel1.Visible = False
Me.Invalidate()
End Sub
Private Sub rbutLinear_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles rbutLinear.Click, rbutPath.Click
Me.BlendGradientType = [Enum].Parse(GetType(eBlendGradientType), sender.text)
cboPathShape.Enabled = (BlendGradientType = eBlendGradientType.Path)
cboBrushMode.Enabled = (BlendGradientType = eBlendGradientType.Linear)
Me.Invalidate()
End Sub
Private Sub cboPathShape_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboPathShape.SelectedIndexChanged
Me.BlendPathShape = [Enum].Parse(GetType(eBlendPathShape), cboPathShape.Text)
Me.Invalidate()
End Sub
Private Sub Panel7_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles Panel22.Click, Panel7.Click, Panel8.Click, Panel9.Click, Panel10.Click, Panel11.Click, _
Panel12.Click, Panel13.Click, Panel20.Click, Panel19.Click, Panel14.Click, Panel15.Click, Panel16.Click, _
Panel17.Click, Panel21.Click, Panel18.Click, Panel28.Click, Panel27.Click, Panel26.Click, Panel25.Click, _
Panel24.Click, Panel23.Click, Panel6.Click, Panel29.Click
UpdateRGBnuds(sender.BackColor)
Panel1.Visible = False
Me.Invalidate()
End Sub
Private CurrSwatch As Panel
Private Sub Panel10_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles Panel22.MouseEnter, Panel7.MouseEnter, Panel8.MouseEnter, Panel9.MouseEnter, Panel10.MouseEnter, Panel11.MouseEnter, _
Panel12.MouseEnter, Panel13.MouseEnter, Panel20.MouseEnter, Panel19.MouseEnter, Panel14.MouseEnter, Panel15.MouseEnter, Panel16.MouseEnter, _
Panel17.MouseEnter, Panel21.MouseEnter, Panel18.MouseEnter, Panel28.MouseEnter, Panel27.MouseEnter, Panel26.MouseEnter, Panel25.MouseEnter, _
Panel24.MouseEnter, Panel23.MouseEnter, Panel6.MouseEnter, Panel29.MouseEnter
Try
CurrSwatch.BorderStyle = Windows.Forms.BorderStyle.Fixed3D
Catch ex As Exception
End Try
CurrSwatch = sender
CurrSwatch.BorderStyle = Windows.Forms.BorderStyle.FixedSingle
End Sub
Private Sub TabControl1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.MouseLeave
Try
CurrSwatch.BorderStyle = Windows.Forms.BorderStyle.Fixed3D
Catch ex As Exception
End Try
End Sub
Private Sub UpdateRGBnuds(ByVal c As Color)
tbarAlpha.Value = c.A
nudRed.Value = c.R
nudGreen.Value = c.G
nudBlue.Value = c.B
UpdatePointerColor()
End Sub
Private Sub butColorDropDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butColorDropDown.Click
Panel1.Visible = Not Panel1.Visible
Try
CurrSwatch.BorderStyle = Windows.Forms.BorderStyle.Fixed3D
Catch ex As Exception
End Try
End Sub
Private Sub butColorDropDown_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles butColorDropDown.Paint
e.Graphics.SmoothingMode = SmoothingMode.AntiAlias
Using pn As Pen = New Pen(Color.DimGray, 2)
pn.StartCap = LineCap.Round
pn.EndCap = LineCap.Round
Dim gp As New GraphicsPath
Dim rect As Rectangle = e.ClipRectangle
gp.AddLine(5, CInt(rect.Y + (rect.Height * 0.4)), CInt(rect.Width / 2) - 1, CInt(rect.Y + (rect.Height * 0.55)))
gp.AddLine(CInt(rect.Width / 2) - 1, CInt(rect.Y + (rect.Height * 0.55)), rect.Width - 7, CInt(rect.Y + (rect.Height * 0.4)))
e.Graphics.DrawPath(pn, gp)
End Using
End Sub
Private Sub nud_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles nudRed.ValueChanged, nudGreen.ValueChanged, nudBlue.ValueChanged, _
tbarAlpha.ValueChanged
txbAlpha.Text = tbarAlpha.Value
UpdatePointerColor()
End Sub
#End Region
#Region "ColorBox"
Private Sub ColorList_DrawItem(ByVal sender As Object, _
ByVal e As DrawItemEventArgs)
' If the item is the edit box item, then draw the rectangle white
' If the item is the selected item, then draw the rectangle blue
' Otherwise, draw the rectangle filled in beige
If (e.State And DrawItemState.ComboBoxEdit) = DrawItemState.ComboBoxEdit Then
e.Graphics.FillRectangle(Brushes.White, e.Bounds)
ElseIf (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
e.Graphics.FillRectangle(Brushes.CornflowerBlue, e.Bounds)
Else
e.Graphics.FillRectangle(Brushes.Beige, e.Bounds)
End If
' Cast the sender object to ComboBox type.
Dim TheBox As ComboBox = CType(sender, ComboBox)
Dim itemString As String = CType(TheBox.Items(e.Index), String)
Dim MyFont = New Font("Tahoma", 10)
Dim myBrush As New SolidBrush(Color.FromName(itemString))
'Draw a Color Swatch
e.Graphics.FillRectangle(myBrush, e.Bounds.X + 3, e.Bounds.Y + 3, 20, e.Bounds.Height - 5)
e.Graphics.DrawRectangle(Pens.Black, e.Bounds.X + 3, e.Bounds.Y + 3, 20, e.Bounds.Height - 5)
' Draw the text in the item.
e.Graphics.DrawString(itemString, MyFont, _
Brushes.Black, e.Bounds.X + 25, e.Bounds.Y + 1)
' Draw the focus rectangle around the selected item.
e.DrawFocusRectangle()
myBrush.Dispose()
End Sub
#End Region 'ColorBox
End Class
#Region "Pointer Class"
Class Pointer
Sub New(ByVal pt As Single, ByVal c As Color, ByVal IsCurr As Boolean)
pPos = pt
pColor = c
pIsCurr = IsCurr
End Sub
Private _pPos As Single
Public Property pPos() As Single
Get
Return _pPos
End Get
Set(ByVal value As Single)
_pPos = value
End Set
End Property
Private _pColor As Color
Public Property pColor() As Color
Get
Return _pColor
End Get
Set(ByVal value As Color)
_pColor = value
End Set
End Property
Private _pIsCurr As Boolean
Public Property pIsCurr() As Boolean
Get
Return _pIsCurr
End Get
Set(ByVal value As Boolean)
_pIsCurr = value
End Set
End Property
End Class
#End Region 'Pointer Class
Submit an article or tip