Top > OOoBasic > Dialog > Example14

XTopWindowListener Edit

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

話題は XTopWindowListener です。

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

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

Example14.png

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

Example14-2.png

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

fileExample14-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

Attach file: fileExample14.png 598 download [Information] fileExample14.odt 626 download [Information] fileExample14-2.odt 2739 download [Information] fileExample14-2.png 590 download [Information]

Reload   New Lower page making Edit Freeze Diff Upload Copy Rename   Front page List of pages Search Recent changes Backup   Help   RSS of recent changes