[oodisc] native OO vs. ALT OO

Peter V. Saveliev peet на infosite.ru
Чт Апр 11 15:16:34 MSD 2002


On Thu, 11 Apr 2002 14:23:57 +0400
"Aleksey Novodvorsky" <aen на altlinux.ru> wrote:

> "Peter V. Saveliev" wrote:
<skip>
> > идет не задумываясь. Не может это быть связано с переводом? Вдруг,
> > название библиотек тоже перевели :)
> >
> 
> Очень похоже на то. Попробуйте русские переводы.
> В этой части кода мы ничего не меняли.
<skip>

Интересно, что этот код никак не заставить работать. А вот этот -

8<------------------------------------------------------------------------
Sub Main
DialogLibraries.LoadLibrary( "Standard" )
oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )
oDialog1.Execute()
End Sub
8<------------------------------------------------------------------------

Работает вполне. Какой-то в этом есть подвох: есть ли вероятность, что
версия 641D на OO.org _сейчас_ и та версия, из которой собран релиз ALT -
не одна и та же?

Такое ощущение, что макрос LoadDialog из .Tools.ModuleControls не
вызывается (но и не выдает ошибки), так как перенос его в локальный модуль
нормально работает:

8<------------------------------------------------------------------------
Sub Main
oDialog1 = MyDialog("Standard", "Dialog1")
oDialog1.Execute()
End Sub

rem MyDialog - точная копия LoadDialog из [soffice].Tools.ModuleControls

Function MyDialog(Libname as String, DialogName as String, Optional oLibContainer)
Dim oLib as Object
Dim oLibDialog as Object
Dim oRuntimeDialog as Object
	If IsMissing(oLibContainer ) then
		oLibContainer = DialogLibraries
	End If
	oLibContainer.LoadLibrary(LibName)
	oLib = oLibContainer.GetByName(Libname)
	oLibDialog = oLib.GetByName(DialogName)
	oRuntimeDialog = CreateUnoDialog(oLibDialog)
	MyDialog() = oRuntimeDialog
End Function
8<------------------------------------------------------------------------

Опять же, при условии, что в [soffice].Standard есть Dialog1. Кстати, я
так и не понял, как вызывать локальные диалоги, сохраненные в документе.
Если есть мысли - буду благодарен.



-- 
С уважением, Петр.
E-mail: peet на peet.spb.ru
JID:    peet на peet.spb.ru




Подробная информация о списке рассылки Oo-discuss