UI Language

[blub]

Hallo Leute,

Wie kann ich die aktive UI Language, also die Oberflächensprache, in Libre Office Basic abrufen?
Derzeit befinde ich mich im Writer.
Über ThisComponent oder Stardesktop bin ich bisher nicht dran gekommen.

Hätte jemand eine Idee?

Gruß
Kai

[F3K Total]

Hi,
vielleicht so:

Code: Alles auswählen

Sub S_Language_of_current_Document
    oText = ThisComponent.Text  'Writer documents have a Text object
    oCursor = oText.createTextCursor()
    ocharLocale = ocursor.charLocale
    sLanguage = ocharLocale.Language
    sCountry = ocharLocale.Country
    msgbox ("Sprache: " & sLanguage & CHR(13) &"Land: " & sCountry,64,"aktuelles Dokument")
End Sub

Gruß R

[karolus]

Hallo

@Rik
Das dürfte die Sprache des Dokuments zurückgeben, nicht aber zwangsläufig die Spracheinstellung der Benutzeroberfläche

zur Fragestellung - k.A.

Karolus

[F3K Total]

@Karolus,
genau, war mir bewußt, darum habe ich es in der Messagebox geschrieben und das Makro entsprechend benamst.
Gruß R

[balu]

Hallo Leute,

wie die Oberflächensprache ausgelesen werden kann, weiß ich jetzt auch nicht auf die schnelle, hab da kein passendes Makro parat. Aber vielleicht hilft ja ein wenig folgender Link:
Optionen-OpenOffice.org: Ansicht Einstellungen auslesen



Gruß
balu

[F3K Total]

Hi,
Balu's Link und damit komma4's Vorgehen angewendet, hat mich zu folgendem Code gebracht:

Code: Alles auswählen

Sub Get_System_Locale
    GlobalScope.BasicLibraries.loadLibrary( "Tools" )
    oRegistry_View = GetRegistryKeyContent("org.openoffice.Setup/L10N", FALSE )
    msgbox ("UI Sprache: " & oRegistry_View.getByName("ooLocale"),64,"aktuelle System Einstellung")
End Sub

Gruß R

[blub]

Yeah klasse. Genau das, was ich gebraucht hab.
Vielen Dank.

Hättest du noch nen Hinweis, wie du an den Key "org.openoffice.Setup/L10N" rangekommen bist? Fürs nächste mal.

Gruß
Kai

[F3K Total]

Klar,
ich habe nur das Vorgehen von komma4, auf das der Link von Balu oben zeigt, angewendet. Statt auf Common.xcu bin ich in diesem Fall auf die Datei registrymodifications.xcu gekommen.
Gruß R

[blub]

Alles klar.
Danke für die Hilfe.

Gruß
Kai