From 926951e268697b40cd8416de61f2c28eafefde42 Mon Sep 17 00:00:00 2001
From: Pilzinsel64 <pilzinsel64@gmx.de>
Date: Wed, 9 Aug 2023 09:26:33 +0200
Subject: [PATCH] PaintingControl: Zoom with Alt instead of Control

---
 Pilz.UI/PaintingControl/PaintingControl.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Pilz.UI/PaintingControl/PaintingControl.vb b/Pilz.UI/PaintingControl/PaintingControl.vb
index 0de9a3c..e1a7890 100644
--- a/Pilz.UI/PaintingControl/PaintingControl.vb
+++ b/Pilz.UI/PaintingControl/PaintingControl.vb
@@ -644,7 +644,7 @@ Public Class PaintingControl
     End Sub
 
     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
             ZoomFactor = New SizeF(Math.Max(ZoomFactor.Width + val, 0.25), Math.Max(ZoomFactor.Height + val, 0.25))
             Refresh()