L. Esswood
Newbie
Joined: 25 Jul 2012
Posts: 1
|
 Posted: Wed Jul 25, 2012 3:38 pm Post subject: XEnhancedMouse Problems |
 |
|
The mouseReleased event seems to be consuming the event - no matter what I do.
After wrestling with this for hours - I took all of the functionality out of my macro and found that even a pretty much blank function still consumes the event
Any obvious problems? Thanks in advance.
| Code: | Option Explicit
Global DocView As Variant
Global MouseClickHandler As Variant
Sub startClicker
DocView = ThisComponent.currentController
MouseClickHandler = _
createUnoListener("mouseEvent_", "com.sun.star.awt.XEnhancedMouseClickHandler")
DocView.addEnhancedMouseClickHandler(MouseClickHandler)
End Sub
Sub unregisterEvent
DocView.removeEnhancedMouseClickHandler(MouseClickHandler)
End Sub
Sub MyApp_disposing(oEvt)
unregisterEvent()
End Sub
Function mouseEvent_mousePressed(oEvt) As Boolean
mouseEvent_mousePressed = False
End Function
Function mouseEvent_mouseReleased(oEvt) As Boolean
Print "Entered Function"
mouseEvent_mouseReleased = False
End Function |
|
|
