Содержимое

# Создание слушателей событий

События, генерируемые диалоговыми окнами, документами, формами или графическими элементами управления, можно связать с макросами. Такой подход называется событийно-ориентированным программированием. Наиболее распространённым способом для создания связи событий с макросами является использование вкладки События в меню Сервис – Настройка и панели свойств элемента управления Редактор диалоговых окон в меню Сервис - Макросы – Управление диалогами….

Графические события, ввод с клавиатуры, перемещения мыши и другие элементы человеко-машинного взаимодействия можно контролировать с помощью слушателей UNO, которые наблюдают за поведением пользователя. Слушатели представляют собой динамический программный код, который может служить альтернативой назначениям макросов. Можно создать столько слушателей UNO, сколько существует событий для наблюдения. В то же время один слушатель может обрабатывать несколько элементов управления пользовательского интерфейса.

## Создание слушателя событий

Слушатели привязываются к элементам управления в диалоговых окнах, а также к событиям документа или формы. Используются они и при создании динамических диалоговых окон и при добавлении элементов управления к диалоговым окнам на лету.

Данный пример демонстрирует создание слушателя для элемента управления Button1 в диалоговом окне Dialog1 из библиотеки Standard.

### С помощью Python

             # -*- coding: utf-8 -*-
             from __future__ import unicode_literals

             import uno, unohelper
             from com.sun.star.awt import XActionListener
             from com.sun.star.awt import ActionEvent
             from com.sun.star.lang import EventObject
             from com.sun.star.ui.dialogs.ExecutableDialogResults \
                 import OK, CANCEL
             import msgbox as util

             _MY_BUTTON =  "Button1"
             _MY_LABEL = 'Слушатели Python …'
             _DLG_PROVIDER = "com.sun.star.awt.DialogProvider"

             def Main(*args):
                 ui = createUnoDialog("Standard.Dialog1", embedded=True)
                 ui.Title = "Python X[any]Listener"
                 ctl = ui.getControl(_MY_BUTTON)
                 ctl.Model.Label = _MY_LABEL
                 act = ActionListener()
                 ctl.addActionListener(act)
                 rc = ui.execute()
                 if rc == OK:
                     MsgBox("Пользователь принял условия диалогового окна.")
                 elif rc == CANCEL:
                     MsgBox("Пользователь не принял условия диалогового окна.")
                 ui.dispose()  # ui.endExecute
                 ctl.removeActionListener(act)

             def createUnoDialog(libr_dlg: str, embedded=False):
                 """ Создание диалогового окна по его расположению """
                 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.createDialog("vnd.sun.star.script:"+libr_dlg+location)
                 return dlg

             class ActionListener(unohelper.Base, XActionListener):
                 """ Прослушивание и подсчёт щелчков кнопки мыши """
                 def __init__(self):
                     self.count = 0

                 def actionPerformed(self, evt: ActionEvent):
                     self.count = self.count + 1
                     #mri(evt)
                     if evt.Source.Model.Name == _MY_BUTTON:
                         evt.Source.Model.Label = _MY_LABEL+ str( self.count )
                 return

                 def disposing(self, evt: EventObject):  # обязательная процедура
                     pass

             def MsgBox(txt: str):
                 mb = util.MsgBox(uno.getComponentContext())
                 mb.addButton("Ok")
                 mb.show(txt, 0, "Python")

             g_exportedScripts = (Main,)

msgbox.py в каталоге {installation}/program/ содержится несколько примеров слушателей для кнопок.

### С помощью LibreOffice Basic

             Option Explicit

             Const MY_LIBRARY = "Standard", MY_DIALOG = "Dialog1", MY_BUTTON = "Button1"
             Const MY_LABEL = "Basic слушает.."
             Dim count As Integer

             Sub Main
                 Dim libr As Object ' com.sun.star.script.XLibraryContainer
                 Dim dlg As Object
                 Dim ui As Object  ' stardiv.Toolkit.UnoDialogControl
                 Dim ctl As Object ' stardiv.Toolkit.UnoButtonControl
                 Dim act As Object ' com.sun.star.awt.XActionListener
                 Dim rc As Object : rc = com.sun.star.ui.dialogs.ExecutableDialogResults

                 BasicLibraries.LoadLibrary(MY_LIBRARY)
                 libr = DialogLibraries.GetByName(MY_LIBRARY)
                 dlg = libr.GetByName(MY_DIALOG)
                 ui = CreateUnoDialog(dlg)
                 ui.Title = "Basic X[any]Listener example"
                 count = 0
                 ctl = ui.GetControl(MY_BUTTON)
                 ctl.Model.Label = MY_LABEL
                 act = CreateUnoListener("awt_", "com.sun.star.awt.XActionListener")
                 ctl.addActionListener(act)
                 Select Case ui.Execute
                     Case rc.OK : MsgBox "Пользователь принял условия диалогового окна.",, "Basic"
                     Case rc.CANCEL : MsgBox "Пользователь не принял условия диалогового окна.",, "Basic"
                 End Select
                 ui.dispose ' ui.endExecute()
                 ctl.removeActionListener(act)
             End Sub

             Private Sub awt_actionPerformed(evt As com.sun.star.awt.ActionEvent)
                 ''' Прослушивание и подсчёт щелчков кнопки мыши '''
                 With evt.Source.Model
                     If .Name = MY_BUTTON Then
                         count = count + 1
                         .Label = MY_LABEL+Cstr(count)
                     End If
                 End With
             End Sub ' awt_actionPerformed

             Private Sub awt_disposing(evt As com.sun.star.lang.EventObject) ' mandatory Sub
                 ' Здесь можно вставить свой код
             End Sub ' awt_disposing

## Другие слушатели событий

Слушатели обычно определяются в коде при открытии диалогового окна. Существует большое количество способов их реализации, например в качестве обработчиков событий для диалоговых окон или наблюдателей событий для документов и форм.

См. также

Примеры программирования для управляющих элементов в редакторе диалогов

CreateUnoListener Function

Сопоставление событий с объектами

См. также События документов, События форм.

Создание обработчика диалогового окна

Прослушивание событий документа

Примеры кода на Python

Пожалуйста, поддержите нас!