Bonjour,
Trouvé ! (désolé, François ;) )
Exemple :
Dim dlg As Object, bibli As Object, monDialogue As Object
Dim langue As New com.sun.star.lang.Locale
DialogLibraries.loadLibrary("Library1")
bibli = DialogLibraries.getByName("Library1")
monDialogue = bibli.getByName("Dialog1")
dlg = CreateUnoDialog(monDialogue)
dlg.execute ' avec la langue de l'interface utilisateur
langue.Language = "de"
langue.Country = "DE"
dlg.Model.ResourceResolver.setCurrentLocale(langue, True)
dlg.execute ' le même en allemand
dlg.dispose
Attention:
Ce changement est appliqué à tous les dialogues de la même bibliothèque,
et reste mémorisé pour de nouveaux lancements de macros jusqu'à ce que
- soit on change encore la langue
- soit on ferme le document (bibliothèque de document)
- soit on ferme OpenOffice (bibliothèque de Mes Macros/OOo Macros).
______
Bernard
Message de Francois Gatto date 2008-11-24 07:41 :
Bonjour,
Ton besoin est maintenant clairement exprimé ;-)
et en effet la solution présentée a une portée globale pour OOo.
Je vais chercher ...
Francois Gatto
Didier Dorange-Pattoret wrote:
Bonsoir à tous,
Merci à François pour sa proposition qui fonctionne.
Mais ne règle pas mon problème.
Je m'explique :
Vous savez que maintenant les boîtes de dialogue peuvent être
configurées en multilangues avec une langue par défault.
Problème la langue chargée est la langue d'installation de OOo.
Elle est définie semble-t-il dans la propriété ooLocale.
Sub Main
oConfigAccess = GetConfigAccess( "/org.openoffice.Setup/L10N", True )
oConfigAccess.ooLocale = "de"
oConfigAccess.commitChanges()
End Sub
OOo refuse de la changer bien qu'une analyse faite avec Xray ne donne
pas cette propriété comme read only.
Du coup, je cherche un moyen de modifier les paramètres utilisateurs
pour que OOo charge des boîtes de dialogues dans une langue que
l'utilisateur choisit et donc pas nécessairement celle d'installation
de OOo.
On peut y parvenir en écrivant les traductions dans les modules Basic,
mais je voudrais utiliser les fonctionnalités nouvelles des boîtes de
dialogues.
Si quelqu'un a une idée ...
Merci d'avance.
Didier Dorange-Pattoret
www.dmaths.org
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
