| <?xml version="1.0" encoding="UTF-8"?> |
| <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> |
| <!--*********************************************************** |
| * |
| * Licensed to the Apache Software Foundation (ASF) under one |
| * or more contributor license agreements. See the NOTICE file |
| * distributed with this work for additional information |
| * regarding copyright ownership. The ASF licenses this file |
| * to you under the Apache License, Version 2.0 (the |
| * "License"); you may not use this file except in compliance |
| * with the License. You may obtain a copy of the License at |
| * |
| * http://www.apache.org/licenses/LICENSE-2.0 |
| * |
| * Unless required by applicable law or agreed to in writing, |
| * software distributed under the License is distributed on an |
| * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY |
| * KIND, either express or implied. See the License for the |
| * specific language governing permissions and limitations |
| * under the License. |
| * |
| ***********************************************************--> |
| <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Language" script:language="StarBasic">Option Explicit |
| |
| |
| Public Const cLANGUAGE_SYSTEM = "", cLANGUAGE_CHINESE = "zh", cLANGUAGE_DANISH = "da" |
| Public Const cLANGUAGE_DUTCH = "nl", cLANGUAGE_ENGLISH = "en", cLANGUAGE_FINNISH = "fi" |
| Public Const cLANGUAGE_FRENCH = "fr", cLANGUAGE_GERMAN = "de", cLANGUAGE_GREEK = "el" |
| Public Const cLANGUAGE_ITALIAN = "it", cLANGUAGE_JAPANESE = "ja", cLANGUAGE_NORWEGIAN = "no" |
| Public Const cLANGUAGE_POLISH = "pl", cLANGUAGE_PORTUGUESE = "pt", cLANGUAGE_RUSSIAN = "ru" |
| Public Const cLANGUAGE_SPANISH = "es", cLANGUAGE_SWEDISH = "sv", cLANGUAGE_TURKISH = "tr" |
| |
| Public BLNameList(0 To 16) as String |
| |
| |
| ' R e s o u r c e s t r i n g c o n s t a n t s |
| ' ------------------------------------------------- |
| ' Dialog labels start at 1000 |
| |
| Sub LoadLanguage%(ByVal LangLocale) |
| Dim Dummy$ |
| Dim i as Integer |
| Const dlgMonth = 1200 |
| ' Abreviated months start 1225 |
| Const dlgShortMonth = 1225 |
| If InitResources("schedule", "cal") Then |
| If LangLocale = cLANGUAGE_GERMAN Then |
| |
| ' Load all states |
| BLNameList(0) = GetResText(1100) |
| BLNameList(1) = "Bayern" |
| BLNameList(2) = "Baden-Württemberg" |
| BLNameList(3) = "Berlin" |
| BLNameList(4) = "Bremen" |
| BLNameList(5) = "Brandenburg" |
| BLNameList(6) = "Hamburg" |
| BLNameList(7) = "Hessen" |
| BLNameList(8) = "Mecklenburg-Vorpommern" |
| BLNameList(9) = "Niedersachsen" |
| BLNameList(10) = "Nordrhein-Westfalen" |
| BLNameList(11) = "Rheinland-Pfalz" |
| BLNameList(12) = "Saarland" |
| BLNameList(13) = "Sachsen" |
| BLNameList(14) = "Sachsen-Anhalt" |
| BLNameList(15) = "Schleswig Holstein" |
| BLNameList(16) = "Thüringen" |
| |
| DlgCalModel.lstHolidays.StringItemList() = BLNameList() |
| End If |
| sWizardTitle$ = GetResText(1300) |
| sError = GetResText(1301) |
| cCalSubcmdDeleteSelect_DeleteSelEntryTitle$ = GetResText(1302) |
| cCalSubcmdDeleteSelect_DeleteSelEntry$ = GetResText(1303) |
| DlgCalendar.Title = GetResText(1000) |
| |
| With DlgCalModel |
| cCalSubcmdSwitchOwnDataOrGeneral_OwnData$ = GetResText(1002) |
| cCalSubcmdSwitchOwnDataOrGeneral_Back$ = GetResText(1001) |
| .hlnTime.Label = GetResText(1011) |
| .lblYear.Label = GetResText(1012) |
| .cmdCancel.Label = GetResText(1005) |
| .cmdGoOn.Label = GetResText(1004) |
| .lblHolidays.Label = GetResText(1014) |
| sBitmapFilename = GetResText(1099) |
| sBitmapFilename = ReplaceString(sBitmapFileName, ".gif", ".bmp") |
| DlgCalModel.hlnCalendar.Label = GetResText(1006) |
| .optYear.Label = GetResText(1007) |
| .optMonth.Label = GetResText(1008) |
| .lblMonth.Label = GetResText(1013) |
| .cmdOwnData.Label = GetResText(1015) |
| .hlnNewEvent.Label = GetResText(1019) |
| .lblEvent.Label = GetResText(1019) |
| .lblEventDay.Label = GetResText(1021) |
| .lblEventMonth.Label = GetResText(1022) |
| ' .lblEventYear.Label = GetResText(1023) |
| ' .chkEventOnce.Label = GetResText(1020) |
| .cmdInsert.Label = GetResText(1016) |
| .cmdDelete.Label = GetResText(1017) |
| ' Load long month names |
| For i = 0 To 11 |
| cCalLongMonthNames(i) = GetResText(dlgMonth+i) |
| cCalShortMonthNames(i)= cCalLongMonthNames(i) |
| 'cCalShortMonthNames(i)= Left$(cCalLongMonthNames(i), 3) |
| cCalShortMonthNames(i)= RTrim(cCalShortMonthNames(i)) |
| Next |
| ' Load sheet names |
| sCalendarTitle = GetResText(1410) |
| sMonthTitle = GetResText(1411) |
| ' Load names of styles |
| cCalStyleWorkday$ = GetResText(1400) |
| cCalStyleWeekend$ = GetResText(1401) |
| End With |
| End If |
| End Sub |
| </script:module> |