diff options
Diffstat (limited to 'wizards/source/schedule/Language.xba')
-rw-r--r-- | wizards/source/schedule/Language.xba | 95 |
1 files changed, 95 insertions, 0 deletions
diff --git a/wizards/source/schedule/Language.xba b/wizards/source/schedule/Language.xba new file mode 100644 index 000000000000..9fbf0942e94f --- /dev/null +++ b/wizards/source/schedule/Language.xba @@ -0,0 +1,95 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<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>
\ No newline at end of file |