xref: /trunk/main/wizards/source/schedule/Language.xba (revision fc9fd3f14a55d77b35643a64034752a178b2a5b0) 
1<?xml version="1.0" encoding="UTF-8"?>
2<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
3<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Language" script:language="StarBasic">Option Explicit
4
5
6Public Const cLANGUAGE_SYSTEM = &quot;&quot;, cLANGUAGE_CHINESE = &quot;zh&quot;, cLANGUAGE_DANISH = &quot;da&quot;
7Public Const cLANGUAGE_DUTCH = &quot;nl&quot;, cLANGUAGE_ENGLISH = &quot;en&quot;, cLANGUAGE_FINNISH = &quot;fi&quot;
8Public Const cLANGUAGE_FRENCH = &quot;fr&quot;, cLANGUAGE_GERMAN = &quot;de&quot;, cLANGUAGE_GREEK = &quot;el&quot;
9Public Const cLANGUAGE_ITALIAN = &quot;it&quot;, cLANGUAGE_JAPANESE = &quot;ja&quot;, cLANGUAGE_NORWEGIAN = &quot;no&quot;
10Public Const cLANGUAGE_POLISH = &quot;pl&quot;, cLANGUAGE_PORTUGUESE = &quot;pt&quot;, cLANGUAGE_RUSSIAN = &quot;ru&quot;
11Public Const cLANGUAGE_SPANISH = &quot;es&quot;, cLANGUAGE_SWEDISH = &quot;sv&quot;, cLANGUAGE_TURKISH = &quot;tr&quot;
12
13Public BLNameList(0 To 16) as String
14
15
16&apos; R e s o u r c e   s t r i n g   c o n s t a n t s
17&apos; -------------------------------------------------
18&apos; Dialog labels start at 1000
19
20Sub LoadLanguage%(ByVal LangLocale)
21Dim Dummy$
22Dim i as Integer
23Const dlgMonth = 1200
24&apos; Abreviated months start 1225
25Const dlgShortMonth = 1225
26    If InitResources(&quot;schedule&quot;, &quot;cal&quot;) Then
27        If LangLocale  = cLANGUAGE_GERMAN Then
28
29            &apos; Load all states
30            BLNameList(0) = GetResText(1100)
31            BLNameList(1) = &quot;Bayern&quot;
32            BLNameList(2) = &quot;Baden-Württemberg&quot;
33            BLNameList(3) = &quot;Berlin&quot;
34            BLNameList(4) = &quot;Bremen&quot;
35            BLNameList(5) = &quot;Brandenburg&quot;
36            BLNameList(6) = &quot;Hamburg&quot;
37            BLNameList(7) = &quot;Hessen&quot;
38            BLNameList(8) = &quot;Mecklenburg-Vorpommern&quot;
39            BLNameList(9) = &quot;Niedersachsen&quot;
40            BLNameList(10) = &quot;Nordrhein-Westfalen&quot;
41            BLNameList(11) = &quot;Rheinland-Pfalz&quot;
42            BLNameList(12) = &quot;Saarland&quot;
43            BLNameList(13) = &quot;Sachsen&quot;
44            BLNameList(14) = &quot;Sachsen-Anhalt&quot;
45            BLNameList(15) = &quot;Schleswig Holstein&quot;
46            BLNameList(16) = &quot;Thüringen&quot;
47
48            DlgCalModel.lstHolidays.StringItemList() = BLNameList()
49        End If
50        sWizardTitle$ = GetResText(1300)
51        sError = GetResText(1301)
52        cCalSubcmdDeleteSelect_DeleteSelEntryTitle$ = GetResText(1302)
53        cCalSubcmdDeleteSelect_DeleteSelEntry$ = GetResText(1303)
54        DlgCalendar.Title = GetResText(1000)
55
56        With DlgCalModel
57            cCalSubcmdSwitchOwnDataOrGeneral_OwnData$ = GetResText(1002)
58            cCalSubcmdSwitchOwnDataOrGeneral_Back$ = GetResText(1001)
59            .hlnTime.Label = GetResText(1011)
60            .lblYear.Label = GetResText(1012)
61            .cmdCancel.Label = GetResText(1005)
62            .cmdGoOn.Label = GetResText(1004)
63            .lblHolidays.Label = GetResText(1014)
64            sBitmapFilename = GetResText(1099)
65            sBitmapFilename = ReplaceString(sBitmapFileName, &quot;.gif&quot;, &quot;.bmp&quot;)
66            DlgCalModel.hlnCalendar.Label = GetResText(1006)
67            .optYear.Label = GetResText(1007)
68            .optMonth.Label = GetResText(1008)
69            .lblMonth.Label = GetResText(1013)
70            .cmdOwnData.Label = GetResText(1015)
71            .hlnNewEvent.Label = GetResText(1019)
72            .lblEvent.Label = GetResText(1019)
73            .lblEventDay.Label = GetResText(1021)
74            .lblEventMonth.Label = GetResText(1022)
75&apos;          .lblEventYear.Label = GetResText(1023)
76&apos;          .chkEventOnce.Label = GetResText(1020)
77            .cmdInsert.Label = GetResText(1016)
78            .cmdDelete.Label = GetResText(1017)
79            &apos; Load long month names
80            For i = 0 To 11
81                cCalLongMonthNames(i) = GetResText(dlgMonth+i)
82                cCalShortMonthNames(i)= cCalLongMonthNames(i)
83                &apos;cCalShortMonthNames(i)= Left$(cCalLongMonthNames(i), 3)
84                cCalShortMonthNames(i)= RTrim(cCalShortMonthNames(i))
85            Next
86            &apos; Load sheet names
87            sCalendarTitle = GetResText(1410)
88            sMonthTitle = GetResText(1411)
89            &apos; Load names of styles
90            cCalStyleWorkday$ = GetResText(1400)
91            cCalStyleWeekend$ = GetResText(1401)
92        End With
93    End If
94End Sub
95</script:module>