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

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

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

Войти
Новости: Вы можете задать вопрос по LibreOffice или Apache OpenOffice без регистрации, используя форму
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1 2 »   Вниз
  Печать  
Автор Тема: Программируемый Диалог  (Прочитано 4421 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Tigrik
Форумчанин
***
Offline Offline

Сообщений: 94


« Ответ #54897: 13 Июнь 2020, 15:02 »

Мой вопрос, некоторое отношение, имеет и к программируемым диалогам, поэтому задам вопрос в этой теме.

Давно уже пытаюсь найти наиболее правильный и удобный метод по определению истинного размера монитора.
Скорее всего в объекте Windows, но, не совсем, уверен. Тот метод, что используется в коде дает точные размеры монитора, но для работы диалога необходым коэффициенты - скорее всего, размеры диалогов используют свои коэффициенты (твипы, или подобное, не разобрался).
Подскажите, пожалуйста.
Небольшой код прилагается.
Код:
Sub Dlg_Display()
 Dim oWindow, oDlg, oDlgModel
 Dim WW&, WH&, disKoefW, disKoefH
oWindow = CreateUnoService("com.sun.star.awt.Toolkit")
WW = oWindow.ActiveTopWindow.Info.Width
WH = oWindow.ActiveTopWindow.Info.Height
disKoefW = 1.78 : disKoefH = 1.63
oDlgModel = CreateUnoService("com.sun.star.awt.UnoControlDialogModel")
oDlgModel.setPropertyValue("PositionX", 0) : oDlgModel.setPropertyValue("PositionY", 0)
oDlgModel.setPropertyValue("Width", Clng(WW/disKoefW)) : oDlgModel.setPropertyValue("Height", Clng(WH/disKoefH))
oDlgModel.setPropertyValue("Title", "Диалог - Большое Окно")
oDlg = CreateUnoService("com.sun.star.awt.UnoControlDialog")
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!