如何在 OpenOffice BASIC 宏中通过鼠标单击获取文档坐标

背景：

我想在我用鼠标单击或悬停的位置（使用按键激活时）粘贴（如 [CTRL+V]）任何内容（最好是图像、形状）。我不知道该怎么做获取我单击的文档 (X, Y) 上的位置.

（Apache OpenOffice、SDraw-Document、OpenOffice BASIC 宏）

我需要的：

• 提示/提示如何从文档上的鼠标单击/鼠标位置获取位置。 （我需要哪个类、监听器、组件）

Notes： 像一个com.sun.star.awt.XMouseClickHandler将是完美的，如果给定oEvent给了我文档的 X+Y，我点击的地方。 （也许你知道如何“激活”PopupTrigger? (com.sun.star.awt.MouseEvent))

到目前为止我的代码：

我尝试使用提到的XMouseClickHandler得到X+Y。 遗憾的是，X+Y 指的是窗口的相对位置，而不是形状或文本在文档上的实际位置。

执行： My Sub Main通过顶部的菜单按钮执行。 然后单击任意位置将输出（通过 MsgBox）该单击的坐标。

唯一的问题：坐标是相对于窗口的角，而不是文档的角。

Global gListener As Object

Sub Main
  gListener = CreateUnoListener("Listener_","com.sun.star.awt.XMouseClickHandler")
  ThisComponent.CurrentController.addMouseClickHandler(gListener) 
End Sub

Sub Listener_mousePressed(oMouseEvent) As Boolean
   ThisComponent.CurrentController.removeMouseClickHandler(gListener)

   Msg = "Position: "
   Msg = Msg & oMouseEvent.X & "/" & oMouseEvent.Y
   MsgBox(Msg)

   REM :: I want something like:
   REM :: Msg = "Position: " & oMouseEvent.PositionOnDocument.X
   REM :: Msg = Msg & "/" & oMouseEvent.PositionOnDocument.Y
   REM :: MsgBox(Msg)
End Sub

我的参考资料：

到目前为止，我的所有信息都来自官方参考资料/文档，因为我所有的搜索都没有找到任何有用的东西。

• 班级列表：http://api.libreoffice.org/docs/idl/ref/annotated.html http://api.libreoffice.org/docs/idl/ref/annotated.html在这里您可以查看所使用的类的文档（com.sun.star.awt.XMouseClickHandler、com.sun.star.awt.MouseEvent）
• 监听器的相关信息：https://help.libreoffice.org/3.6/Basic/CreateUnoListener_Function_Runtime https://help.libreoffice.org/3.6/Basic/CreateUnoListener_Function_Runtime

提前致谢。

我终于找到办法了获取鼠标单击的精确坐标（相对于文档）。 我设法从底部的状态栏获取信息，它通常显示坐标（对我来说以厘米为单位）。

这是我现在用来获取位置 (X / Y) 的函数：

REM // Warning: If there is currently a selection, the returning Point will instead show the coordinates of the selection!
Sub GetMousePositionOnDocument as com.sun.star.awt.Point
  Dim aPosition As New com.sun.star.awt.Point
  Dim o1, o2, o3, o4, o5, o6

  REM // First get AccessibleContext of the Window of the active Frame of the Application
  o1 = StarDesktop.ActiveFrame.ContainerWindow.AccessibleContext

  REM // 7th AC of o1 is the StatusBar at the bottom;
  o2 = o1.GetAccessibleChild(6).AccessibleContext

  REM // 2nd AC of o2 is the Position + Size of the Selection (e.g: "10,95 / 14,980,00 x 0,00") 
  o3 = o2.GetAccessibleChild(1)
  o4 = o3.GetText()

  REM // Taking out only the coordinates from o4
  REM // TODO: Check for negatives (longer)
  o5 = LEFT(o4, 4)
  o6 = MID(o4, 8, 5)

  aPosition.X = o5
  aPosition.Y = o6

  REM // Return
  GetMousePositionOnDocument = aPosition
End Sub

注意：这个函数是在我之前的内部调用的Listener_mousePressed从上面。

希望这对其他人也有效。

我是怎么找到的？

我花了很多时间在调试器中手动检查该组件和 Stars Desktop 的每个 Windows ApplicationContext。

如果需要其他值，这是迭代 ThisDesktop 的起点。ThisComponent.CurrentController.Frame.ComponentWindow.AccessibleContext

未来的改进

我“知道” GetAccessibleChild()-Function 的索引，因为我检查了调试器。当然有更好的方法可以到达o3并且您不应该期望每个人都具有相同的 AccessibleContext。