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

fix checks for key down & up

Browse Source
This commit is contained in:
Pascal
2023-10-23 12:30:05 +02:00
parent 972f4ef41d
commit 5931b1476b
1 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Pilz.UI/PaintingControl/PaintingControl.vb
View File

@@ -129,10 +129,16 @@ Public Class PaintingControl
Refresh() Refresh()
End Sub End Sub
Private Sub CheckKeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown, Me.KeyUp Private Sub CheckKeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
pressedShift = e.Shift If e.Shift Then pressedShift = True
pressedControl = e.Control If e.Control Then pressedControl = True
pressedAlt = e.Alt If e.Alt Then pressedAlt = True
End Sub
Private Sub CheckKeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
If e.Shift Then pressedShift = False
If e.Control Then pressedControl = False
If e.Alt Then pressedAlt = False
End Sub End Sub
Friend ReadOnly Property AreaSelectionRectangle As RectangleF Friend ReadOnly Property AreaSelectionRectangle As RectangleF