Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

31 Июль 2021, 09:09 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Доступно и просто о работе в офисных пакетах
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: « 1 2   Вниз
  Печать  
Автор Тема: Программируемый Диалог  (Прочитано 4936 раз)
0 Пользователей и 1 Гость смотрят эту тему.
rami
Гуру
*******
Offline Offline

Пол: Мужской
Сообщений: 3 077


iMac, LibreOffice и Apache OpenOffice


« Ответ #54898: 13 Июнь 2020, 16:28 »

Так будет проще:
Код:
Sub Dlg_Display()
Dim oWindow, oDlg, oDlgModel, WW&, WH&
oWindow = CreateUnoService("com.sun.star.awt.Toolkit")
WW = oWindow.ActiveTopWindow.Info.Width
WH = oWindow.ActiveTopWindow.Info.Height
oDlgModel = CreateUnoService("com.sun.star.awt.UnoControlDialogModel")
oDlgModel.setPropertyValue("Title", "Диалог - Большое Окно Большого Брата")
oDlg = CreateUnoService("com.sun.star.awt.UnoControlDialog")
oDlg.setPosSize(0, 0, WW, WH, 15)                '<—— так
oDlg.setModel(oDlgModel)
oDlg.createPeer(oWindow, null)
oDlg.execute()
End Sub
Записан

Страниц: « 1 2   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!