From 48a20cf18c5d37104ab42caf51ad1b330c7a727a Mon Sep 17 00:00:00 2001 From: Pilzinsel64 Date: Thu, 3 Dec 2020 07:13:47 +0100 Subject: [PATCH] d --- .../Preview/ModelPreview.vb | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/Pilz.Drawing.Drawing3D.OpenGLRenderer/Preview/ModelPreview.vb b/Pilz.Drawing.Drawing3D.OpenGLRenderer/Preview/ModelPreview.vb index f313bde..098b362 100644 --- a/Pilz.Drawing.Drawing3D.OpenGLRenderer/Preview/ModelPreview.vb +++ b/Pilz.Drawing.Drawing3D.OpenGLRenderer/Preview/ModelPreview.vb @@ -291,12 +291,13 @@ Namespace PreviewN IsMouseDown = False End Sub - Private Sub glControl1_MouseMove(ByVal sender As Object, ByVal e As Windows.Forms.MouseEventArgs) Handles glControlHost.MouseMove - If IsMouseDown AndAlso e.Button = MouseButtons.Left Then + Private Sub glControl1_MouseMove(ByVal sender As Object, ByVal e As Windows.Input.MouseEventArgs) Handles glControl1.MouseMove + If e.LeftButton = MouseButtonState.Pressed Then + Dim pos = e.GetPosition(glControl1) If IsShiftPressed Then - MyCamera.UpdateCameraOffsetWithMouse(savedCamPos, e.X, e.Y, glControl1.Width, glControl1.Height, camMtx) + MyCamera.UpdateCameraOffsetWithMouse(savedCamPos, pos.X, pos.Y, glControl1.Width, glControl1.Height, camMtx) Else - MyCamera.UpdateCameraMatrixWithMouse(e.X, e.Y, camMtx) + MyCamera.UpdateCameraMatrixWithMouse(pos.X, pos.Y, camMtx) End If InvalidateGL() End If