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