Wopśimjeśe

# 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.

Pódobne temy

Makra Basic z Python wuwołaś

Dialog z Basic wócyniś

Funkcija CreateUnoListener

Tšojeńske pśisłuchaki napóraś

Dialog z Python wócyniś

Dokumentowe tšojenja doglědowaś

programěrowańske pśikłady Python

LibreOffice Pomoc wó skriptach Python

Pšosym pódprějśo nas!