wizards/source/schedule/Language.xba

   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
   6 Public Const cLANGUAGE_SYSTEM = &quot;&quot;, cLANGUAGE_CHINESE = &quot;zh&quot;, cLANGUAGE_DANISH = &quot;da&quot;
   7 Public Const cLANGUAGE_DUTCH = &quot;nl&quot;, cLANGUAGE_ENGLISH = &quot;en&quot;, cLANGUAGE_FINNISH = &quot;fi&quot;
   8 Public Const cLANGUAGE_FRENCH = &quot;fr&quot;, cLANGUAGE_GERMAN = &quot;de&quot;, cLANGUAGE_GREEK = &quot;el&quot;
   9 Public Const cLANGUAGE_ITALIAN = &quot;it&quot;, cLANGUAGE_JAPANESE = &quot;ja&quot;, cLANGUAGE_NORWEGIAN = &quot;no&quot;
  10 Public Const cLANGUAGE_POLISH = &quot;pl&quot;, cLANGUAGE_PORTUGUESE = &quot;pt&quot;, cLANGUAGE_RUSSIAN = &quot;ru&quot;
  11 Public Const cLANGUAGE_SPANISH = &quot;es&quot;, cLANGUAGE_SWEDISH = &quot;sv&quot;, cLANGUAGE_TURKISH = &quot;tr&quot;
  12
  13 Public 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
  20 Sub LoadLanguage%(ByVal LangLocale)
  21 Dim Dummy$
  22 Dim i as Integer
  23 Const dlgMonth = 1200
  24 &apos; Abreviated months start 1225
  25 Const 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
  94 End Sub
  95 </script:module>