前の関連記事：Calc(72)リスナーの削除をしているメソッドの発火の確認をするためのマクロ
クリックした位置に出現するモダルダイアログ2
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 |
import unohelper # オートメーションには必須(必須なのはuno)。from com.sun.star.awt import XActionListenerfrom com.sun.star.awt import XKeyListenerfrom com.sun.star.awt import XEnhancedMouseClickHandlerfrom com.sun.star.awt import Key # 定数from com.sun.star.awt import MouseButton # 定数from com.sun.star.awt import Point # Structfrom com.sun.star.awt import Selection # Structfrom com.sun.star.document import XDocumentEventListenerfrom com.sun.star.util import MeasureUnit # 定数from com.sun.star.style.VerticalAlignment import MIDDLEfrom com.sun.star.ui.dialogs import ExecutableDialogResults # 定数def macro(documentevent=None): # 引数は文書のイベント駆動用。import pydevd; pydevd.settrace(stdoutToServer=True, stderrToServer=True) doc = XSCRIPTCONTEXT.getDocument() # 現在開いているドキュメントを取得。 ctx = XSCRIPTCONTEXT.getComponentContext() # コンポーネントコンテクストの取得。 smgr = ctx.getServiceManager() # サービスマネージャーの取得。 controller = doc.getCurrentController() # コントローラの取得。 enhancedmouseclickhandler = EnhancedMouseClickHandler(controller, ctx, smgr, doc) # EnhancedMouseClickHandler。EnhancedMouseClickHandlerではSubject(コントローラ)が取得できないのでコントローラを渡しておく。 controller.addEnhancedMouseClickHandler(enhancedmouseclickhandler) # コントローラにEnhancedMouseClickHandlerを追加。 doc.addDocumentEventListener(DocumentEventListener(controller, enhancedmouseclickhandler)) # ドキュメントにDocumentEventListenerを追加。コントローラに追加したEnhancedMouseClickHandlerを除去する用。class EnhancedMouseClickHandler(unohelper.Base, XEnhancedMouseClickHandler): def __init__(self, subj, ctx, smgr, doc): self.subj = subj # disposing()用。コントローラは取得し直さないと最新の画面の状態が反映されない。 self.args = ctx, smgr, doc def mousePressed(self, enhancedmouseevent): ctx, smgr, doc = self.args target = enhancedmouseevent.Target # ターゲットのセルを取得。 if enhancedmouseevent.Buttons==MouseButton.LEFT: # 左ボタンのとき if target.supportsService("com.sun.star.sheet.SheetCell"): # ターゲットがセルの時。 if enhancedmouseevent.ClickCount==2: # ダブルクリックの時 controller = doc.getCurrentController() # 現在のコントローラを取得。分割しているのとしていないシートで発火しないことがある問題はself.subjでも解決しない。 frame = controller.getFrame() # フレームを取得。 containerwindow = frame.getContainerWindow() # コンテナウィドウの取得。 framepointonscreen = containerwindow.getAccessibleContext().getAccessibleParent().getAccessibleContext().getLocationOnScreen() # フレームの左上角の点（画面の左上角が原点)。 componentwindow = frame.getComponentWindow() # コンポーネントウィンドウを取得。 border = controller.getBorder() # 行ヘッダの幅と列ヘッダの高さの取得のため。 accessiblecontext = componentwindow.getAccessibleContext() # コンポーネントウィンドウのAccessibleContextを取得。 for i in range(accessiblecontext.getAccessibleChildCount()): # 子AccessibleContextについて。 childaccessiblecontext = accessiblecontext.getAccessibleChild(i).getAccessibleContext() # 子AccessibleContextのAccessibleContext。 if childaccessiblecontext.getAccessibleRole()==51: # SCROLL_PANEの時。 for j in range(childaccessiblecontext.getAccessibleChildCount()): # 孫AccessibleContextについて。 grandchildaccessiblecontext = childaccessiblecontext.getAccessibleChild(j).getAccessibleContext() # 孫AccessibleContextのAccessibleContext。 if grandchildaccessiblecontext.getAccessibleRole()==84: # DOCUMENT_SPREADSHEETの時。これが枠。 bounds = grandchildaccessiblecontext.getBounds() # 枠の位置と大きさを取得(SCROLL_PANEの左上角が原点)。 if bounds.X==border.Left and bounds.Y==border.Top: # SCROLL_PANEに対する相対座標が行ヘッダと列ヘッダと一致する時は左上枠。 for k, subcontroller in enumerate(controller): # 各枠のコントローラについて。インデックスも取得する。 cellrange = subcontroller.getReferredCells() # 見えているセル範囲を取得。 if len(cellrange.queryIntersection(target.getRangeAddress())): # ターゲットが含まれるセル範囲コレクションが返る時その枠がクリックした枠。「ウィンドウの分割」では正しいiは必ずしも取得できない。 sourcepointonscreen = grandchildaccessiblecontext.getLocationOnScreen() # 左上枠の左上角の点を取得(画面の左上角が原点)。 if k==1: # 左下枠の時。 sourcepointonscreen = Point(X=sourcepointonscreen.X, Y=sourcepointonscreen.Y+bounds.Height) elif k==2: # 右上枠の時。 sourcepointonscreen = Point(X=sourcepointonscreen.X+bounds.Width, Y=sourcepointonscreen.Y) elif k==3: # 右下枠の時。 sourcepointonscreen = Point(X=sourcepointonscreen.X+bounds.Width, Y=sourcepointonscreen.Y+bounds.Height) x = sourcepointonscreen.X + enhancedmouseevent.X - framepointonscreen.X # ウィンドウの左上角からの相対Xの取得。 y = sourcepointonscreen.Y + enhancedmouseevent.Y - framepointonscreen.Y # ウィンドウの左上角からの相対Yの取得。 dialogpoint = componentwindow.convertPointToLogic(Point(X=x, Y=y), MeasureUnit.APPFONT) # ピクセル単位をma単位に変換。 actionlistener = ActionListener(target) # ボタンコントロールに追加するActionListener。操作するためにtargetを渡す。 keylistener = KeyListener(target) # テクストボックスコントロールに追加するKeyListener。操作するためにtargetを渡す。 m = 6 # コントロール間の間隔 name = {"PositionX": m, "Width": 50, "Height": 12, "NoLabel": True, "Align": 0, "VerticalAlign": MIDDLE} # PositionYは後で設定。 address = {"PositionX": m, "Width": 50, "Height": name["Height"], "VerticalAlign": MIDDLE} # PositionYは後で設定。 controldialog = {"PositionX": dialogpoint.X, "PositionY": dialogpoint.Y, "Width": XWidth(address, m), "Title": "Popup Dialog", "Name": "PopupDialog", "Step": 0, "Moveable": True} # コントロールダイアログのプロパティ。幅は右端のコントロールから取得。高さは最後に設定する。 dialog, addControl = dialogCreator(ctx, smgr, controldialog) # コントロールダイアログの作成。 name["PositionY"] = m name["Label"] = "Target Address" addControl("FixedText", name) # ラベルフィールドコントロールの追加。 address["PositionY"] = YHeight(name, m) stringaddress = getStringAddressFromCellRange(target) # 選択セルの文字列アドレスを取得。 address["Text"] = stringaddress # テキストボックスコントロールに文字列アドレスを入れる。 textlength = len(stringaddress) # 文字列アドレスの長さを取得。 edit1selection = Selection(Min=textlength, Max=textlength) # カーソルの位置を最後にする。指定しないと先頭になる。 edit1 = addControl("Edit", address, {"addKeyListener": keylistener}) # テキストボックスコントロールの追加。 button1 = {"PositionY": YHeight(address, m), "Width": 26, "Height": name["Height"]+2, "Label": "~Cancel", "PushButtonType": 2} # PositionXは後で設定。 button2 = {"PositionY": YHeight(address, m), "Width": 22, "Height": name["Height"]+2, "Label": "~Enter", "PushButtonType": 0} # PositionXは後で設定。 button2["PositionX"] = XWidth(address, -button2["Width"]) button1["PositionX"] = button2["PositionX"] - int(m/2) - button1["Width"] addControl("Button", button1) # ボタンコントロールの追加。 addControl("Button", button2, {"setActionCommand": "enter" ,"addActionListener": actionlistener}) # ボタンコントロールの追加。 dialog.getModel().setPropertyValue("Height", YHeight(button1, m)) # コントロールダイアログの高さを設定。 toolkit = componentwindow.getToolkit() # ピアからツールキットを取得。 dialog.createPeer(toolkit, componentwindow) # ダイアログを描画。親ウィンドウを渡す。ノンモダルダイアログのときはNone(デスクトップ)ではフリーズする。Stepを使うときはRoadmap以外のコントロールが追加された後にピアを作成しないとStepが重なって表示される。 edit1.setSelection(edit1selection) # テクストボックスコントロールのカーソルの位置を変更。ピア作成後でないと反映されない。 dialog.execute() dialog.dispose() return False # セル編集モードにしない。 return True # セル編集モードにする。 def mouseReleased(self, enhancedmouseevent): return True # シングルクリックでFalseを返すとセル選択範囲の決定の状態になってどうしようもなくなる。 def disposing(self, eventobject): self.subj.removeEnhancedMouseClickHandler(self)def XWidth(props, m=0): # 左隣のコントロールからPositionXを取得。mは間隔。 return props["PositionX"] + props["Width"] + m def YHeight(props, m=0): # 上隣のコントロールからPositionYを取得。mは間隔。 return props["PositionY"] + props["Height"] + mclass KeyListener(unohelper.Base, XKeyListener): def __init__(self, target): self.args = target def keyPressed(self, keyevent): if keyevent.KeyCode==Key.RETURN: # リターンキーが押された時。 target = self.args source = keyevent.Source # テキストボックスコントロールが返る。 context = source.getContext() # コントロールダイアログが返ってくる。 target.setString(context.getControl("Edit1").getText()) # テキストボックスコントロールの内容を選択セルに代入する。 context.endDialog(ExecutableDialogResults.OK) # ダイアログフレームを閉じる。 def keyReleased(self, keyevnet): pass def disposing(self, eventobject): eventobject.Source.removeKeyListener(self)class ActionListener(unohelper.Base, XActionListener): def __init__(self, target): self.args = target def actionPerformed(self, actionevent): target = self.args cmd = actionevent.ActionCommand source = actionevent.Source # ボタンコントロールが返る。 context = source.getContext() # コントロールダイアログが返ってくる。 if cmd == "enter": target.setString(context.getControl("Edit1").getText()) # テキストボックスコントロールの内容を選択セルに代入する。 context.endDialog(ExecutableDialogResults.OK) # ダイアログフレームを閉じる。 def disposing(self, eventobject): eventobject.Source.removeActionListener(self)class DocumentEventListener(unohelper.Base, XDocumentEventListener): def __init__(self, controller, enhancedmouseclickhandler): self.args = controller, enhancedmouseclickhandler def documentEventOccured(self, documentevent): controller, enhancedmouseclickhandler = self.args if documentevent.EventName=="OnUnload": # ドキュメントを閉じる時。リスナーを削除する。 controller.removeEnhancedMouseClickHandler(enhancedmouseclickhandler) # コントローラのEnhancedMouseClickHandlerの削除。 documentevent.Source.removeDocumentEventListener(self) # このリスナーをドキュメントから削除。 def disposing(self, eventobject): eventobject.Source.removeDocumentEventListener(self) |
まずコンポーネントウィンドウのAccessibleContextを取得してその子AccessibleContextからSCROLL_PANE=51を探し出します(40行目)。
SCROLL_PANE=51は1つしかないはずです(Calc(67)AccessibleWindowの位置と大きさを取得するマクロ)。
さらにその子AccessibleContextからDOCUMENT_SPREADSHEET=84を探します(43行目)。
このDOCUMENT_SPREADSHEET=84は通常は1つですが、シートのウィンドウの分割や行や列の固定をしているときは4つまで増えます。
SCROLL_PANE=51に対するXが行ヘッダの幅、Yが列ヘッダの高さに一致しているDOCUMENT_SPREADSHEET=84が左上の枠と判断します(45行目)。
(2019.1.26追記。この条件は行番号が400ぐらい以上になると成立しませんでした。なので、XYともに最小のものを左上枠と判断するようにしないといけません。)
AccessibleContextからは画面の左上角を原点とする座標のXYを取得できる(49行目)ので、左上枠の大きさからすべての枠の左上角の画面に対するXYを算出できます。
EnhancedMouseEvent StructのXYはクリックした枠の左上角を原点とする座標の点なので、これで画面の左上角を原点とする座標のXYが算出できます。
しかし、問題はXEnhancedMouseClickHandlerのメソッドの引数のEnhancedMouseEvent StructのSourceアトリビュートはNoneしか返ってこないので、XMouseListenerのようにクリックしている枠がどれか判定できないことです。
EnhancedMouseEvent StructからはTargetでクリックしたセルが取得できるだけです。
セルのアドレスでは、「ウィンドウの分割」でスクロールしてどの枠にも同じセルを表示させているときはどの枠かは判定できません。
なので、XEnhancedMouseClickHandlerを使った今回のマクロでは「ウィンドウの分割」では正しくクリックした位置にダイアログを出現させることはできません。
「行と列の固定」のときは左上の枠がスクロールすることがなく、各枠で同じセルが表示されることはないのでTargetのアドレスでどの枠を判定できます。
なので、46行目でコントローラから各枠のSpreadsheetViewPaneを取得して、Targetがそれに含まれるかを判断しています(48行目)(Calc(63)セルの固定、ウィンドウの分割、の境界を取得する)。
これでどの枠をクリックしたのかが判定できるので、左上枠のとき(49行目)、左下枠のとき(50行目)、右上枠のとき(52行目)、右下枠のとき(54行目)で場合分けして、EnhancedMouseEvent StructのXYの原点を決定しています。
「ウィンドウの分割」や「行と列の固定」をしていないときは枠が一つの場合なので同じアルゴリズムで処理できます。
クリックした位置にモダルダイアログを出現させるCalcドキュメント
PopupModalDialog2.ods
動作はCalc(70)クリックした位置に出現するモダルダイアログのPopupModalDialog.odsと同じですが、Sheet3の「ウィンドウの分割」の場合はクリックした位置に正しくダイアログが出現しません。
右下枠のB8セルをダブルクリックしていますが、左上枠にもB8セルがあるために左上枠をクリックしたと判定してしまって、左上枠の左上角を原点としてダイアログを出現させてしまっています。
0 件のコメント:
コメントを投稿