[prog] Obtenir la position de la souris

[Didier Dorange-Pattoret]

Bonjour à tous,

Avec le code ci-dessous, je peux récupérer la position de la souris sur
un document Draw.
Le scénario :
- un doc draw nouveau est ouvert,
- je lance la macro RegisterMousehandler,
- en cliquant sur la page de dessin, j'obtiens la position de la souris
en centième de millimètre à partir du coin supérieur gauche de la page
de dessin.

Le problème, c'est qu'il y a une petite erreur que je ne comprends pas.
Essayez-vous même en cliquant sur le coin supérieur gauche vous n'aurez
pas 0,0

Quelqu'un a-t-il une idée de pourquoi ?

Rem : pour désactiver le XMouseClickHandler il suffit de fermer le
document ou de lancer UnRegisterMouseHandler.

D'avance merci.


/REM  *****  BASIC  *****
Global oDocView, oMouseListener, oContainerWindow  as Object

Sub RegisterMouseHandler
    oDocView = ThisComponent.getCurrentController '.GetFrame.getController
    oMouseListener =
CreateUnoListener("MonEssai_","com.sun.star.awt.XMouseClickHandler")
    oDocView.addMouseClickHandler(oMouseListener)
End Sub

Sub UnRegisterMouseHandler
    oDocView = ThisComponent.getCurrentController
    oDocView.removeMouseClickHandler(oMouseListener)
End Sub


Sub MonEssai_mousePressed(oEvt) as Boolean
    monZoom = ThisComponent.CurrentController.Zoomvalue/100
    monX = Int(oEvt.X*25.4 + (oDocView.VisibleArea.X)*monZoom)
    monY = Int(oEvt.Y*25.4 + (oDocView.VisibleArea.Y)*monZoom)
       Print monX, monY, oEvt.Buttons
    MonEssai_mousePressed = True
End Sub


Sub MonEssai_mouseReleased(oEvt) as Boolean
    MonEssai_mouseReleased = True   
end sub/

-- 
Didier Dorange-Pattoret

http://www.dmaths.org
http://sesamath.net

Soutenez le projet Dmaths : rejoignez le club ou faites adhérer votre 
établissement !
http://www.dmaths.org/documentation/doku.php?id=presentation:club