Pilz.NET/Pilz
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix highlighter

Browse Source
This commit is contained in:
Pascal
2022-06-27 21:33:24 +02:00
parent 68f26c6c9f
commit efb522d842
3 changed files with 90 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Pilz.UI/HighlightPanel.vb
View File

@@ -160,7 +160,7 @@ Friend Class HighlightPanel
If rgb = -1 Then
Return Color.Empty
Else
Return Color.FromArgb((rgb And &HFF0000) >> 16, (rgb And &HFF00) >> 8, rgb & &HFF)
Return Color.FromArgb((rgb And &HFF0000) >> 16, (rgb And &HFF00) >> 8, rgb And &HFF)
End If
End Function
@@ -168,7 +168,7 @@ Friend Class HighlightPanel
If rgb = -1 Then
Return Color.Empty
Else
Return Color.FromArgb(alpha, (rgb And &HFF0000) >> 16, (rgb And &HFF00) >> 8, rgb & &HFF)
Return Color.FromArgb(alpha, (rgb And &HFF0000) >> 16, (rgb And &HFF00) >> 8, rgb And &HFF)
End If
End Function
@@ -220,9 +220,9 @@ Friend Class HighlightPanel
Public HighlightColor As eHighlightColor
Public Sub New(ByVal bounds As Rectangle, ByVal backColor As Color, ByVal highlightColor As eHighlightColor)
bounds = bounds
backColor = backColor
highlightColor = highlightColor
Me.Bounds = bounds
Me.BackColor = backColor
Me.HighlightColor = highlightColor
End Sub
End Structure