OOoBasic/Dialog/Example14

XTopWindowListener

原案: OOobbs2/80 - OOo BasicでQuickLauncherを作成する試み

話題は XTopWindowListener です。

ウィンドウではウィンドウを開いたり、閉じたり、アクティブかされたりといったイベントを検出するために XTopWindowListener を利用できます (検出ではなく BroadCaster から通知を受ける)。

ウィンドウがアクティブになると

ウィンドウがアクティブでなくなると

となるようにしてみました。

Example14-2.odt

OOo Basic で XTopWindowListener を利用すると、ウィンドウを手動で最小化しようとするとなぜかウィンドウのタイトルバーだけ残ります (OOo + Win。その他は不明)。Py-UNO だと再現しないので原因不明です。OOo API からウィンドウを最小化できないのでどうしようもありません。

ExecuteDispatch の部分を以下のように修正。2007/11/15

Sub ExecuteDispatch(sCommand)
  aURL = CreateUnoStruct("com.sun.star.util.URL")
  aURL.Complete = ".uno:" & sCommand
  CreateUnoService("com.sun.star.util.URLTransformer").parseStrict(aURL)
  oDispatch = StarDesktop.queryDispatch(aURL,"_self",0)
  If NOT IsNull(oDispatch) Then
    oDispatch.dispatch(aURL,Array())
  End IF
End Sub