Dialogowy pśeźěłowak napóraś
Mimo pśipokazowanja makrow tšojenjam abo napóranja tšojeńskich pśisłuchakow, móžośo dialogowe pśisłuchaki wužywaś, kótarychž princip jo, klucowe słowa abo metody UNO definěrowaś, kótarež se tšojenjam pśirěduju, kótarež se maju wobglědowaś. Tšojeński pśisłuchak jo zagronity za wuwjeźenje metodow z pomocu protokola vnd.sun.star.UNO:<method_name>. Na rozdźěl wót pśisłuchakow, kótarež muse wšykne pódprěte metody definěrowaś, samo gaž njeby se wužywali, dialogowe pśisłuchaki jano dwě metoźe gromaźe z wótglědanymi wóźeńskimi hookimi skriptami trjebaju.
Lěpšyny toś togo pśistupa su:
Pakujo kod, kótaryž wót tšojenja wóźone makra pśeźěłujo,
źěli tšojenja wót makrowych mjenjow, což wótwardowanje abo aktualizacije wólažcujo, pśedewšym, gaž se makra abo module pśesuwaju.
Toś ten mechanizm se how za rěcy Basic a Python z pomocu importěrowaneju kopiju dialoga Access2Base dlgTrace znaglědnja. Wobchad z wuwześami a lokalizacija se pśeglědnosći dla wuwóstajatej.
Dialogowe metody pśipokazaś
Eksportěrujśo dialog Access2Base dlgTrace a importěrujśo jen do nałožeńskeje biblioteki MyLib.
Wužywajśo we wobceŕku kakosćow wóźeńskich elementow dialogowego editora rejtarik Tšojenja, aby makrowe pśipokazanja z komponentowymi pśipokazanjami wuměnił a zapódajśo wótglědane metodowe mjenja:
Nastajśo metodowe mě komponenty dialogowego tłocaška Dump to file na _dump2File
Na žycenje móžośo metodowe mjenja tšojeńskich komponentow tłoconeje tasty txtTracelog a tłoconeje tasty myški ako _openHelp definěrowaś
Definěrujśo na žycenje tłocašk W pórěźe, kótaryž metodowego mjenja fokusoweje tšojeńskeje komponenty ako onOkHasfocus dostawa
Tšojenja, kótarymž akcije su pśipokazane, měli protokol vnd.sun.star.UNO: naspomnjeś.
Pśeźěłowak napóraś
Metoda createDialogWithHandler słužby com.sun.star.awt.DialogProvider2 se wužywa, aby dialog a jogo předźěłowak póstajiła. Pśeźěłowak jo zagronity za implementěrowanje zwězowańskego městna com.sun.star.awt.XDialogEventHandler.
Wšykne metodowe mjenja komponenty muse se eksplicitnje deklarěrowaś, gaž se dialogowy pśeźěłowak wužywa.
Z Python
W toś tom pśikłaźe jo dialog na licadle.
# -*- coding: utf-8 -*-
from __future__ import unicode_literals
import uno, unohelper
from com.sun.star.awt import XDialogEventHandler
_DLG_PROVIDER = "com.sun.star.awt.DialogProvider2"
class Console(unohelper.Base, XDialogEventHandler):
""" Access2Base Console Handler """
''' adaptěrowany wót « Créer un dialogue avec gestionnaire d'événements » wót JM Zambon
https://wiki.openoffice.org/wiki/FR/Documentation/Python/Creating_Dialog_with_Handler '''
def show(self):
dialog = self.getDialog("MyLib.dlgTrace", embedded=True)
dialog.Title = "Konsole"
dialog.execute()
def callHandlerMethod(self, dialog, event, method):
if method == '_dump2File':
event.Source.setLabel("dump requested")
scr = getBasicScript(script="_DumpToFile", module="Trace",
library='Access2Base')
scr.invoke((event,), (), ())
elif method == '_openHelp':
_msgbox('Not yet implemented')
dialog.endDialog(1)
else:
return False
def getSupportedMethodNames(self):
return ('_dump2File', '_openHelp')
def getDialog(self, libr_dlg: str, embedded=False):
""" Dialog wót jogo stojnišća napóraś """
smgr = XSCRIPTCONTEXT.getComponentContext().ServiceManager
if embedded:
model = XSCRIPTCONTEXT.getDocument()
dp = smgr.createInstanceWithArguments(_DLG_PROVIDER, (model,))
location = "?location=document"
else:
dp = smgr.createInstanceWithContext(_DLG_PROVIDER, ctx)
location = "?location=application"
dlg = dp.createDialogWithHandler("vnd.sun.star.script:"+libr_dlg+location, self)
return dlg
# def getBasicScript() # see note
def _msgbox(prompt='', title=''):
''' Grozny MsgBox '''
import msgbox
mb = msgbox.MsgBox(uno.getComponentContext())
mb.addButton('Howdy')
mb.show(prompt,0,title)
def ConsoleHandler():
Console().show()
g_exportedScripts = (ConsoleHandler,)
Ako wócakane, felujuca metoda onOkHasFocus wuwześe wuchytujo.
Cytajśo bok wuwołanja Python na LibreOffice Basic za getBasicScript rutinowe wopisanje a za drobnostki wó rěcy pśesegajucem skriptowem wuwjeźenju.
Z LibreOffice Basic
W toś tom pśikłaźe jo dialog w dokumenśe zasajźony a móžo teke na licadle byś.
' <MyLib>.<Handler> module
Public Sub Console_Show()
Dim dp as Object ' com.sun.star.awt.DialogProvider2
Dim dialog As Object ' com.sun.star.awt.XDialog, com.sun.star.awt.XDialogEventHandler
Dim eventHandler As Object ' com.sun.star.awt.XDialogEventHandler
dp = CreateUnoService("com.sun.star.awt.DialogProvider2")
dp.Initialize(Array(ThisComponent)) ' jolic dialog jo w dokumenśe zasajźony
eventHandler = CreateUnoListener("Console_", "com.sun.star.awt.XDialogEventHandler")
dialog = dp.createDialogWithHandler("vnd.sun.star.script:MyLib.dlgTrace?location=document", eventHandler)
dialog.Title = "Konsole"
dialog.execute()
End Sub ' <Handler>.Console_Show()
Private Function Console_callHandlerMethod(dialog as Object, _
event As com.sun.star.document.DocumentEvent, _
method As String) As Boolean
''' Intercept dialog events using .UNO protocol '''
Console_callHandlerMethod = True
Select Case method
Case "_dump2File"
event.Source.setLabel("dump requested")
With GlobalScope.BasicLibraries
If Not .IsLibraryLoaded("Access2Base") Then .LoadLibrary("Access2Base")
End With
Access2Base.Trace._DumpToFile
Case "_openHelp"
MsgBox "Not yet implemented",0 , "Howdy"
'dialog.endDialog(1) pśi pśez kompjuter zeprětem dialogu
Case Else : Console_callHandlerMethod = False
End Select
End Function ' <Handler>.Console_callHandlerMethod
Private Function Console_getSupportedMethodNames()
Console_getSupportedMethodNames = Array("_dump2File", "_openHelp")
End Function ' <Handler>.Console _getSupportedMethodNames
' adaptěrowany wót « Créer un dialogue avec gestionnaire d'événements » wót JM Zambon
' https://wiki.openoffice.org/wiki/FR/Documentation/Python/Creating_Dialog_with_Handler
Ako wócakane, felujuca metoda onOkHasFocus wuwześe wuchytujo.