Calc(74)クリックした位置に出現するノンモダルダイアログ2-p--q

Calc(71)クリックした位置に出現するノンモダルダイアログのXMouseListenerをXEnhancedMouseClickHandlerに置き換えます。「ウィンドウの分割」のときは正しい位置にダイアログは出現しません。
前の関連記事：Calc(73)クリックした位置に出現するモダルダイアログ2

クリックした位置にノンモダルダイアログを出現させるマクロ2

        
          
          
              
              import unohelper  # オートメーションには必須(必須なのはuno)。
from com.sun.star.awt import XActionListener
from com.sun.star.awt import XKeyListener
from com.sun.star.awt import XEnhancedMouseClickHandler
from com.sun.star.awt import Key  # 定数
from com.sun.star.awt import MouseButton  # 定数
from com.sun.star.awt import Point  # Struct
from com.sun.star.awt import Selection  # Struct
from com.sun.star.document import XDocumentEventListener
from com.sun.star.frame import XFrameActionListener
from com.sun.star.frame.FrameAction import FRAME_UI_DEACTIVATING  # enum
from com.sun.star.util import XCloseListener
from com.sun.star.util import MeasureUnit  # 定数
from com.sun.star.style.VerticalAlignment import MIDDLE
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()  # 現在のコントローラを取得。
                    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)  # テクストボックスコントロールのカーソルの位置を変更。ピア作成後でないと反映されない。
                                                dialogframe = showModelessly(ctx, smgr, frame, dialog)  # ノンモダルダイアログとして表示。ダイアログのフレームを取得。
                                                actionlistener.frame = dialogframe  # ActionListenerにダイアログフレームを渡す。閉じるため。
                                                keylistener.frame = dialogframe  # KeyListenerにダイアログフレームを渡す。閉じるため。
                                                frameactionlistener = FrameActionListener()  # FrameActionListener。フレームがアクティブでなくなった時に閉じるため。
                                                dialogframe.addFrameActionListener(frameactionlistener)  # FrameActionListenerをダイアログフレームに追加。
                                                dialogframe.addCloseListener(CloseListener(dialog, frameactionlistener, actionlistener, keylistener))  # CloseListener
                                                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"] + m
class KeyListener(unohelper.Base, XKeyListener):
    def __init__(self, target):
        self.args = target
        self.frame = None  # ダイアログフレームをあとで入れる。
    def keyPressed(self, keyevent):
        if keyevent.KeyCode==Key.RETURN:  # リターンキーが押された時。
            target = self.args
            source = keyevent.Source  # テキストボックスコントロールが返る。
            context = source.getContext()  # コントロールダイアログが返ってくる。
            target.setString(context.getControl("Edit1").getText())  # テキストボックスコントロールの内容を選択セルに代入する。
            self.frame.close(True)  # ダイアログフレームを閉じる。
    def keyReleased(self, keyevnet):
        pass
    def disposing(self, eventobject):
        eventobject.Source.removeKeyListener(self)
class CloseListener(unohelper.Base, XCloseListener):  # ノンモダルダイアログのリスナー削除用。
    def __init__(self, dialog, frameactionlistener, actionlistener, keylistener):
        self.args = dialog, frameactionlistener, actionlistener, keylistener
    def queryClosing(self, eventobject, getsownership):  # コントロールダイアログを閉じると直前。フレーム削除する。
        dialog, frameactionlistener, actionlistener, keylistener = self.args
        dialog.getControl("Button2").removeActionListener(actionlistener)  # ボタンコントロールのActionListenerの削除。
        dialog.getControl("Edit1").removeKeyListener(keylistener)  # テキストボックスコントロールのKeyListenerの削除。
        eventobject.Source.removeFrameActionListener(frameactionlistener)  # ダイアログフレームのFrameActionListenerの削除。
        eventobject.Source.removeCloseListener(self)  # ダイアログフレームのCloseListenerの削除。
    def notifyClosing(self, eventobject):
        pass
    def disposing(self, eventobject):  
        eventobject.Source.removeCloseListener(self)
class ActionListener(unohelper.Base, XActionListener):
    def __init__(self, target):
        self.args = target
        self.frame = None  # ダイアログフレームをあとで入れる。
    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())  # テキストボックスコントロールの内容を選択セルに代入する。
            self.frame.close(True)  # ダイアログフレームを閉じる。
    def disposing(self, eventobject):
        eventobject.Source.removeActionListener(self)
class FrameActionListener(unohelper.Base, XFrameActionListener):
    def frameAction(self, frameactionevent):
        if frameactionevent.Action==FRAME_UI_DEACTIVATING:  # フレームがアクティブでなくなった時。TopWindowListenerのwindowDeactivated()だとウィンドウタイトルバーをクリックしただけで発火してしまう。
            frameactionevent.Frame.removeFrameActionListener(self)  # フレームにつけたリスナーを除去。
            frameactionevent.Frame.close(True)
    def disposing(self, eventobject):
        eventobject.Source.removeFrameActionListener(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)

            

        
      
ハイライトした部分がCalc(71)クリックした位置に出現するノンモダルダイアログのsourcepointonscreenの取得している部分を置き換えたものです。

Calc(73)クリックした位置に出現するモダルダイアログ2のときと同じ理由で、「ウィンドウの分割」のときは正しい位置にダイアログは出現しません。

PopupNonmodalDialog2.ods

このマクロを埋め込んだCalcドキュメントです。

Sheet1は「ウィンドウの分割」や「行と列の固定」をしていないシートの例です。

Sheet2は「行と列の固定」をしたシートの例です。

いずれもダブルクリックした位置にダイアログを出現します。
Calc(74)クリックした位置に出現するノンモダルダイアログ2

前の関連記事：Calc(73)クリックした位置に出現するモダルダイアログ2

クリックした位置にノンモダルダイアログを出現させるマクロ2

次の関連記事:Calc(75)カラーパレットの色の名前と値の一覧

0 件のコメント:

コメントを投稿

ブログ検索 by Blogger

Translate

最近のコメント

全記事
