diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index 10172fa..d191172 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices ' utilizzando l'asterisco (*) come descritto di seguito: ' - - + + diff --git a/Scene.vb b/Scene.vb index 7f4480f..eb4452b 100644 --- a/Scene.vb +++ b/Scene.vb @@ -215,6 +215,7 @@ Public Class Scene Public Event OnMousePointFromSelection(ByVal sender As Object, ByVal nId As Integer, ByVal PtP As Point3d, ByVal nAux As Integer) Public Event OnMouseDownScene(ByVal sender As Object, e As System.Windows.Forms.MouseEventArgs) Public Event OnMouseUpScene(ByVal sender As Object, e As System.Windows.Forms.MouseEventArgs) + Public Event OnMouseMoveScene(ByVal sender As Object, e As System.Windows.Forms.MouseEventArgs) Public Event OnCursorPos(ByVal sender As Object, ByVal sCursorPos As String) Public Event OnShowDistance(ByVal sender As Object, ByVal sDistance As String) Public Event OnCloseGetDist(ByVal sender As Object) @@ -432,8 +433,9 @@ Public Class Scene Else MyBase.OnMouseDown(e) End If - Focus() + ' Evento che può essere gestito da altri RaiseEvent OnMouseDownScene(Me, e) + Focus() End Sub Protected Overrides Sub OnMouseUp(e As System.Windows.Forms.MouseEventArgs) @@ -496,6 +498,7 @@ Public Class Scene Else MyBase.OnMouseUp(e) End If + ' Evento che può essere gestito da altri RaiseEvent OnMouseUpScene(Me, e) ' Ripristino il contesto originale If nOldGseCtx <> m_nGseContext Then @@ -579,6 +582,8 @@ Public Class Scene ElseIf m_nStatus = ST.SEL Then Cursor = New Cursor(Me.GetType(), "Select.cur") End If + ' Evento che può essere gestito da altri + RaiseEvent OnMouseMoveScene(Me, e) ' Ripristino il contesto originale If nOldGseCtx <> m_nGseContext Then EgtSetCurrentContext(nOldGseCtx)