diff options
Diffstat (limited to 'wizards/source/schedule/Language.xba')
| -rw-r--r-- | wizards/source/schedule/Language.xba | 95 |
1 files changed, 0 insertions, 95 deletions
diff --git a/wizards/source/schedule/Language.xba b/wizards/source/schedule/Language.xba deleted file mode 100644 index 9fbf0942e..000000000 --- a/wizards/source/schedule/Language.xba +++ /dev/null @@ -1,95 +0,0 @@ -<?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 |