Bonsoir,
La macro ci-dessous permet de mettre en place un Listener qui me donne
en cliquant la position de la souris.
Problème : si le document qui appelle la macro est un doc writer,
j'obtiens la position de la souris par rapport au rectangle grisé dans
lequel figure le document texte lui-même blanc.
Or je voudrais la position par rapport au rectangle blanc du texte.
Avez-vous une idée ?
Merci pour votre réponse.
/Sub RegisterMouseHandler
oDocView = ThisComponent.getCurrentController
oMouseListener =
CreateUnoListener("MonEssai_","com.sun.star.awt.XMouseClickHandler")
oDocView.addMouseClickHandler(oMouseListener)
End Sub
Sub UnRegisterMouseHandler
oDocView.removeMouseClickHandler(oMouseListener)
End Sub
Sub MonEssai_mousePressed(oEvt) as Boolean
Print oEvt.X, oEvt.Y, 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
