LO-7

Автор Kadet, 11 августа 2020, 15:37

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

mikekaganski

:) Разве я не так написал в предыдущем ответе? :P
С уважением,
Михаил Каганский

Kadet

#31
Так. Дома снова установил 7-ку и потестил с отключённым Skia. Действительно не крашит.
Спасибо!

Цитата: mikekaganski от 13 августа 2020, 17:09так что я думаю, что оно не будет падать уже в 7.0.1.
Ну, так я же тестирую любую новую версию. Так, что естественно буду следить за развитием.
В принципе, вроде бы при беглом взгляде, поки ничего. Нормально. Вначале как-то притормаживает, но потом разгоняется.

Однако, вот цвета текста на кнопках (создаваемых макросом) слетели. Сейчас буду разбираться. Видать какой-то параметр изменили.

Цитата: mikekaganski от 13 августа 2020, 17:09То, что раньше называлось OpenGL в том диалоге, ушло; Skia - это не оно, а другая библиотека.
Ну, это понятно, что то ушло, другое пришло. Но я о задачах, которые решило одно, теперь тоже самое решает другое, поэтому и сгорнул их в кучу.

Кстати, я глубоко не копал в этом направлении, но вроде бы OpenGL это дляЛинукса то же, что для Win - DirectX, поэтому на винду его не ставят, и у меня он всегда автоматически был отключен.
Не?

Kadet

#32
Ага. Вот косячёк, который непонятен.
Вот макрос создания кнопки:
'Создание кнопок **************************************************************
Sub AddButton(oDoc, oSheet, oCol%, oRow%, nam$, label$, sTag$, iWidth%, iHeight%, oKegl%, color&, macro$)
Dim vCell, oDrawPage, oControlShape, oButtonModel, sScriptURL$, oForm
Dim aSize As new com.sun.star.awt.Size
Dim aEvent As new com.sun.star.script.ScriptEventDescriptor

oDrawPage = oSheet.DrawPage

oControlShape = oDoc.createInstance("com.sun.star.drawing.ControlShape")
vCell = oSheet.getCellByPosition(oCol, oRow)
oControlShape.setPosition(vCell.Position)
aSize.Width = iWidth
aSize.Height = iHeight
oControlShape.setSize(aSize)

oButtonModel = CreateUnoService("com.sun.star.form.component.CommandButton")
oButtonModel.Label = label
oButtonModel.FontStyleName = "Полужирный"
oButtonModel.FontWeight = 150
oButtonModel.FontHeight = oKegl
oButtonModel.TextColor = color
oButtonModel.VerticalAlign = com.sun.star.style.VerticalAlignment.MIDDLE
oButtonModel.Name = nam
oButtonModel.Printable = False
oButtonModel.Tag = sTag

oControlShape.setControl(oButtonModel)
oDrawPage.add(oControlShape)

sScriptURL = "vnd.sun.star.script:DBLibrary." & macro & "?language=Basic&location=application"
oForm = oDrawPage.getForms().getByIndex(0)
With aEvent
.AddListenerParam = ""
.EventMethod = "actionPerformed"
.ListenerType = "XActionListener"
.ScriptCode = sScriptURL
.ScriptType = "Script"
End With
oForm.registerScriptEvent(oForm.Count-1, aEvent)

oControlShape.Anchor = vCell
oControlShape.MoveProtect = True
oDoc.CurrentController.setFormDesignMode(false)
End Sub

Цвет текста кнопки устанавливает следующая строка:
oButtonModel.TextColor = color
Параметр color (тип Long) передаётся правильно. В параметр oButtonModel.TextColor заносится правильно, но в реальности цвет не меняется. Остаётся - чёрным (0). При этом странно, что параметр TextColor изначально имеет тип Variant, хотя должен иметь тип Long. Может создатели предполагали, что туда нужно вводить какие-то другие параметры, типа раздельно R-G-B? Потому, что тип Long параметр явно не отрабатывает.

Помнится подобная эпопея была когда-то при переходе с 5-й на 6-ю в датах (Date). Формат типа изменили и ковырять вынудили.

Как можно получить понимание, что же в этом параметре стало не так?

При этом в подобной расцветке ячеек Calc всё отрабатывает нормально, как и прежде. В документах Write тоже. Только в кнопках слетела раскрасска (пока тут только нашёл).

Kadet

#33
Попробовал поменять цвет текста в других кнопах (созданных вручную).
Та же пестня. Параметр меняется, а цвет визуально остаётся прежним.
Параметр менял макросом.

Вау... Да даже вручную (в свойствах элемента) цвет шрифта на кнопках не меняется. Вообще никак.
Это уже точно - косяк.

Kadet

#34
А вот размытый пазл, при загрузке OLE-объектов в 6.4 мне нравился больше, чем такой чёткий "мультяшный" как в 7-й.
Как бы так тихонечко попросить создателей вернуть тот пазл обратно, в 7-ку?! :roll:

Кстати, есть небольшой меркантильный вопрос. Я подобным никогда не занимался, хотя по образованию программист, но никогда профессионально этим не занимался. Базу писал больше на добровольных началах, как хобби.
Однако, моей базой уже начали интересоваться сторонние "наблюдатели". Предлагают подумать над продажей.
Вы видели мою базу. Как думаете, сколько такой продукт может стоить? Ну, конечно, если её почистить и заточить под более широкое стороннее использование.

Оценка труда программиста (обсуждение в новой теме)

Технополис

Спасибо за совет с отключением skia. В новой 7 версии перестали выполняться некоторые алгоритмы в нашей системе Тех.Корпорация, которая тесно интегрирована с LibreOffice. Под отладчиком нашел в нашем коде причину. Перерыл исходники новой версии Офиса. Нашел причину. И уже думал переписать наш код. И тут вижу совет, который наладил работу нашего генератора отчетов. Как раз из области ошибки авторов в работе с skia, думаю что это ошибка, а не новая особенность внутренних механизмов работы Офиса. Все заработало. Будем ждать следующих версий.

mikekaganski

#36
Цитата: Технополис от 14 августа 2020, 12:26
В новой 7 версии перестали выполняться некоторые алгоритмы в нашей системе Тех.Корпорация, которая тесно интегрирована с LibreOffice. Под отладчиком нашел в нашем коде причину. Перерыл исходники новой версии Офиса. Нашел причину. И уже думал переписать наш код. И тут вижу совет, который наладил работу нашего генератора отчетов. Как раз из области ошибки авторов в работе с skia, думаю что это ошибка, а не новая особенность внутренних механизмов работы Офиса. Все заработало. Будем ждать следующих версий.

... что может не исправить ситуацию, пока Вы не опишите проблему в багтрекере. Как мы узнаем, что у нас в коде ошибка, если Вы об этом не напишите?
С уважением,
Михаил Каганский

Технополис

Поплотнее поизучаем исходники 7 версии LibreOffice, чтобы может быть дать совет, и напишем. Обязательно.

kompilainenn

Цитата: Технополис от 14 августа 2020, 12:48
Поплотнее поизучаем исходники 7 версии LibreOffice, чтобы может быть дать совет, и напишем. Обязательно.
а патч предложить было бы и вовсе круто
Поддержать разработчиков LibreOffice можно тут, а наш форум вот тут

rami

При запуске ругается:

Kadet

Цитата: rami от 14 августа 2020, 13:55При запуске ругается:
Вах-вах-вах... Мой недоглад.
Делал вложение из старой БД, где Хозтоваров ещё не было. Думал, что всем дополнил, а вот про запрос этот забыл.
Ща исправлю. Спасибо!

Kadet

Исправил.
Извените за криворучество.

Kadet

Сегодня запустил 7-ку. Юзал целый день.
Показалось, что шустрей работает, прорисовывает.
Под конец работы решил уже на всех машинах установить.

В общем нормально работает. Интересно с этим вот Skia будет лучше? Цвета вернутся?

mikekaganski

#43
Цитата: Kadet от 14 августа 2020, 18:54Цвета вернутся?

Нет. Пока не будет бага - ничего не вернётся.
(Конечно, весьма возможно, что его кто-то уже отправил, и оно уже исправлено ... но не стоит на это надеяться никогда.)

Только что проверил - изменение цвета шрифта в мастере не отображается.
С уважением,
Михаил Каганский

kompilainenn

Цитата: Kadet от 14 августа 2020, 18:54Под конец работы решил уже на всех машинах установить.
ох зря Вы спешите, подождите до 7.0.3 хотя бы
Поддержать разработчиков LibreOffice можно тут, а наш форум вот тут