Таймер на MsgBox

Автор OOKapitan, 30 января 2018, 17:18

0 Пользователи и 1 гость просматривают эту тему.

OOKapitan

Цитата: rami от 31 января 2018, 15:42Заменить на:
Заменил. Эффект нулевой  :'( .

rami

#31
Цитата: OOKapitan от 31 января 2018, 15:04Всё получилось. Но возникла следующая проблема: диалог не реагирует на нажатие кнопок. Никак
Каждой кнопке надо назначать соответствующий макрос (в свойствах кнопки есть вкладка "События")

OOKapitan

Цитата: rami от 31 января 2018, 15:48Каждой кнопке надо назначать соответствующий макрос (в свойствах кнопки есть вкладка "События")
Иииииихуууууууу!!! Зарабоооотало! А как поменять это название "Что будем делать?"? В коде или в диалоге тоже?

bigor

#33
ЦитироватьА как скопировать диалог в мои диалоги?
В либре в редакторе макросов есть кнопка экспортировать диалог, импортировать диалог - переносятся все события
Поддержать разработчиков LibreOffice можно можно тут, а наш форум вот тут

rami

Цитата: OOKapitan от 31 января 2018, 15:55А как поменять это название "Что будем делать?"? В коде или в диалоге тоже?
Код меняет то, что есть в диалоге, поэтому менять нужно в коде.

OOKapitan

Цитата: Bigor от 31 января 2018, 15:55В либре в редакторе макросов есть кнопка экспортировать диалог, импортировать диалог
Что-то не вижу у себя в OpenOffice в редакторе макросов.

OOKapitan

Цитата: rami от 31 января 2018, 16:03Код меняет то, что есть в диалоге, поэтому менять нужно в коде
Большущее спасибо.

rami

Цитата: OOKapitan от  1 февраля 2018, 14:53Что-то не вижу у себя в OpenOffice в редакторе макросов.
Не в редакторе макросов, а в редакторе диалогов в панели инструментов есть кнопки "Экспортировать диалог" и "Импортировать диалог"

bigor

Цитата: OOKapitan от  1 февраля 2018, 14:53Что-то не вижу у себя в OpenOffice в редакторе макросов.

вот как в ООО, правда 4.х
Поддержать разработчиков LibreOffice можно можно тут, а наш форум вот тут

OOKapitan

Большущее спасибо.

dimmon777

#40
Добрый день! На скорую руку прикрутил таймер в не модальный диалог, можно использовать как MsgBox (очень удобно при редактировании документа)
Sub NonModalDlg
dim n as integer
dim Controls() as Object
DialogLibraries.LoadLibrary( "Standard" )  'Load the standard Library
dlg = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )  'Load the existing Practice Dialog
odlgModel = dlg.Model
odlgModel.Step = 1
'dlg.execute
MustBeClose = false
Modal = False
dlg.visible = true
dim t as integer, p as integer
t=5000 'устанавливаем счетчик(можно реализовать в секундах)
do
if MustBeClose   then exit Do
t=t-220
wait (200)
if t = 0 or t < 0 then goto ii
p=t/1000
oCell2=("До закрытия осталось: "& p)
dlg.getControl("Label1").setText(oCell2)
'Npis = dlg.getControl("До закрытия осталось: "& t)
Loop
ii:
dlg.visible = false ' и т.д.
End Sub

rami

Цитата: dimmon777 от 21 марта 2018, 18:41На скорую руку прикрутил таймер в не модальный диалог, можно использовать как MsgBox (очень удобно при редактировании документа)
Это как? и для чего? менять надписи в диалоге не проблема, но что с ним делать, кроме "посмотреть"?

tagezi

Цитата: rami от 21 марта 2018, 18:22кроме "посмотреть"?
Посмотреть ещё раз? :)

Цитата: dimmon777 от 21 марта 2018, 17:41На скорую руку прикрутил
Рука была очень скорая, аж отвертка тряслась.

ЗЫ: очень сложно читать текст, где стиля разметки нет в принципе :(
Хотя, хозяин барин.
(x86_64) Kubuntu 16.04.3 - LibreOffice 6.0.2 / 6.1 alpha

dimmon777

Цитата: rami от 21 марта 2018, 19:22Это как? и для чего? менять надписи в диалоге не проблема, но что с ним делать, кроме "посмотреть"?
Вот вполне рабочий диалог (не только посмотреть)

rami

dimmon777, напишите комментарии на каждую строку кода (я имею ввиду на каждую без исключения строку кода — примерно 40 комментариев), а потом прочитайте.