home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 2004 April
/
VPR0404.ISO
/
OPENOFFICE
/
INSTALL
/
f_0187
/
Language.xba
< prev
next >
Wrap
Extensible Markup Language
|
2002-10-29
|
4KB
|
94 lines
<?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)= 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>