TestEIn 1.6i6 :

- aggiunto a Scene evento OnMouseMoveScene.
This commit is contained in:
Dario Sassi
2015-09-13 17:43:22 +00:00
parent 19f2b296af
commit 246d9a1cec
2 changed files with 8 additions and 3 deletions
+2 -2
View File
@@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices
' utilizzando l'asterisco (*) come descritto di seguito:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.6.9.5")>
<Assembly: AssemblyFileVersion("1.6.9.5")>
<Assembly: AssemblyVersion("1.6.9.6")>
<Assembly: AssemblyFileVersion("1.6.9.6")>
+6 -1
View File
@@ -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)