Bonjour,
Voici une solution pour recuperer ces coordonnees :
sub main
dim doc as object
dim controller as object
dim statusBar as object
dim accessibleContext as object
dim target as object
doc = thisComponent
controller = doc.currentController
if (not isNull(controller)) then
statusBar = _getStatusBar(controller.frame.layoutManager)
if (not isNull(statusBar)) then
target =
_getAccessibleChildByName(statusBar.realInterface, "Taille")
if (not isNull(target)) then
msgbox(target.text)
end if
end if
end if
end sub
function _getAccessibleChildByName(accessibleObject as object, aName as string)
as object
dim result as object
dim accessibleContext as object
dim childIndex as long
dim aChild as object
accessibleContext = accessibleObject.accessibleContext
while ((childIndex < accessibleContext.accessibleChildCount) and
isNull(result))
aChild = accessibleContext.getAccessibleChild(childIndex)
if (aChild.accessibleName = aName) then
result = aChild
else
result = _getAccessibleChildByName(aChild, aName)
end if
childIndex = childIndex + 1
wend
_getAccessibleChildByName = result
end function
function _getStatusBar(layManager as object) as object
dim result as object
dim elements as object
dim anElement as object
dim elemIndex as long
elements = layManager.elements()
elemIndex = lbound(elements)
while ((elemIndex <= ubound(elements)) and isNull(result))
anElement = elements(elemIndex)
if (_isStatusBar(anElement)) then
result = anElement
end if
elemIndex = elemIndex + 1
wend
_getStatusBar = result
end function
function _isStatusBar(anObject as object) as boolean
dim success as boolean
on local error resume next
success = (anObject.type = com.sun.star.ui.UIElementType.STATUSBAR)
_isStatusBar = success
end function
Cordialement,
Thibault Vataire
----- Mail Original -----
De: "Didier Dorange-Pattoret" <[email protected]>
À: [email protected]
Envoyé: Jeudi 1 Juillet 2010 14:08:22
Objet: [prog] Position de la souris dans un document dessin
Bonjour à tous,
Lorsqu'un document dessin est affiché, on peut remarquer, dans la
dernière ligne à côté de diapo 1/1, deux nombres qui donnent la
position du curseur, exprimée en cm, par rapport au coin supérieur
gauche de la page de dessin.
Comment peut-on récupérer ces coordonnées ?
Merci pour votre aide.
--
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
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
