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

PaintingControl: Zoom with Alt instead of Control

Browse Source
This commit is contained in:
Pascal
2023-08-09 09:26:33 +02:00
parent e142513083
commit 926951e268
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -644,7 +644,7 @@ Public Class PaintingControl
End Sub End Sub
Private Sub CheckMouseWheel(sender As Object, e As MouseEventArgs) Handles Me.MouseWheel Private Sub CheckMouseWheel(sender As Object, e As MouseEventArgs) Handles Me.MouseWheel
If pressedControl Then If pressedAlt Then
Dim val As Single = e.Delta / 120 / 10 Dim val As Single = e.Delta / 120 / 10
ZoomFactor = New SizeF(Math.Max(ZoomFactor.Width + val, 0.25), Math.Max(ZoomFactor.Height + val, 0.25)) ZoomFactor = New SizeF(Math.Max(ZoomFactor.Width + val, 0.25), Math.Max(ZoomFactor.Height + val, 0.25))
Refresh() Refresh()