620 lines
18 KiB
XML
620 lines
18 KiB
XML
<?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="Init" script:language="StarBasic">Option Explicit
|
|
REM ***** BASIC *****
|
|
|
|
|
|
|
|
Public Const SBRANGEUBOUND = 20
|
|
Public StyleRangeAssignmentList(SBRANGEUBOUND)as String
|
|
Public SelRangeList(SBRANGEUBOUND) as String
|
|
Public RangeList(SBRANGEUBOUND) as String
|
|
Public UnprotectList() as String
|
|
Public FilterNames(2,1) as String
|
|
Public bDoUnProtect as Boolean
|
|
Public bCancelTask as Boolean
|
|
|
|
Public sREADY as String
|
|
Public sPROTECT as String
|
|
Public sCONTINUE as String
|
|
|
|
Public sSELTEMPL as String
|
|
Public sSELCELL as String
|
|
Public sCURRRANGES as String
|
|
Public sTEMPLATES as String
|
|
|
|
Public sSOURCEFILE as String
|
|
Public sSOURCEDIR as String
|
|
Public sTARGETDIR as String
|
|
|
|
Public sStsPROGRESS as String
|
|
Public sStsCELLPROGRSS as String
|
|
Public sStsRELRANGES as String
|
|
Public sStsRELSHEETRANGES as String
|
|
Public sStsREPROTECT as String
|
|
|
|
Public sMsgSELDIR as String
|
|
Public sMsgSELFILE as String
|
|
Public sMsgTARGETDIR as String
|
|
Public sMsgNOTTHERE as String
|
|
Public sMsgDLGTITLE as String
|
|
Public sMsgUNPROTECT as String
|
|
Public sMsgPWPROTECT as String
|
|
Public sMsgWRONGPW as String
|
|
Public sMsgSHEETPROTECTED as String
|
|
Public sMsgWARNING as String
|
|
Public sMsgSHEETSNOPROTECT as String
|
|
Public sMsgSHEETNOPROTECT as String
|
|
Public sMsgCHOOSECURRENCY as String
|
|
Public sMsgPASSWORD as String
|
|
Public sMsgOK as String
|
|
Public sMsgCANCEL as String
|
|
Public sMsgFileInvalid as String
|
|
Public sMsgNODIRECTORY as String
|
|
Public sMsgDOCISREADONLY as String
|
|
Public sMsgFileExists as String
|
|
Public sMsgCancelConversion as String
|
|
Public sMsgCancelTitle as String
|
|
Public sCurrPORTUGUESE as String
|
|
Public sCurrDUTCH as String
|
|
Public sCurrFRENCH as String
|
|
Public sCurrSPANISH as String
|
|
Public sCurrITALIAN as String
|
|
Public sCurrGERMAN as String
|
|
Public sCurrBELGIAN as String
|
|
Public sCurrIRISH as String
|
|
Public sCurrLUXEMBOURG as String
|
|
Public sCurrAUSTRIAN as String
|
|
Public sCurrFINNISH as String
|
|
Public sCurrGREEK as String
|
|
Public sCurrSLOVENIAN as String
|
|
Public sCurrCYPRIOT as String
|
|
Public sCurrMALTESE as String
|
|
Public sCurrSLOVAK as String
|
|
Public sCurrESTONIAN as String
|
|
Public sCurrUNKNOWN as String
|
|
Public sCurrSYSUNKNOWN as String
|
|
|
|
Public sPrgsRETRIEVAL as String
|
|
Public sPrgsCONVERTING as String
|
|
Public sPrgsUNPROTECT as String
|
|
Public sInclusiveSubDir as String
|
|
|
|
Public Const SBCOUNTRYCOUNT = 17
|
|
Public CurMimeType as String
|
|
Public CurCellCount as Long
|
|
Public oSheets as Object
|
|
Public oStyles as Object
|
|
Public oStyle as Object
|
|
Public oFormats as Object
|
|
Public aSimpleStr as String
|
|
Public nSimpleKey as Long
|
|
Public aFormat() as Variant
|
|
Public oRanges as Object
|
|
Public oRange as Object
|
|
Public nLanguage as integer
|
|
Public nFormatLanguage as integer
|
|
Public aCellFormat as Variant
|
|
Public oDocument as Object
|
|
Public StartCol, StartRow, EndCol, EndRow as String
|
|
Public oSheet as Object
|
|
Public IntStartCol, IntStartRow, IntEndCol, IntEndRow as integer
|
|
Public oSelRanges as Object
|
|
Public nFormatType as Integer
|
|
Public sFormatCurrency as String
|
|
Public sFormatLanguage as String
|
|
Public CurSheetName as String
|
|
Public oStatusLine as Object
|
|
Public Const SBRELGET = 50
|
|
Public StatusValue as Single
|
|
Public TotCellCount as Long
|
|
Public StyleIndex as Integer
|
|
Public RangeIndex as Integer
|
|
Public CurrIndex as Integer
|
|
Public ActLangNumber(1) as Integer
|
|
Public CurExtension(2) as String
|
|
Public Currfactor as Double
|
|
Public CurrSymbolList(2) as String
|
|
Public CurrLanguage as String
|
|
Public CurrValue(16,5)
|
|
Public LangIDValue(16,2,2) as String
|
|
Public PreName as String
|
|
Public Separator as String
|
|
Public BitmapDir as String
|
|
Public TypeIndex as Integer, CSIndex as Integer, LangIndex as Integer, FSIndex as Integer
|
|
Public oLocale as New com.sun.star.lang.Locale
|
|
Public sEuroSign as String
|
|
Public oPointer as Object
|
|
Public sDocType as String
|
|
Public bPreSelected as Boolean
|
|
Public bRecursive as Boolean
|
|
Public bCancelProtection as Boolean
|
|
Public CurrRoundMode as Boolean
|
|
Public bRangeListDefined as Boolean
|
|
Public bDocHasProtectedSheets as Boolean
|
|
Public sGOON as String
|
|
Public sHELP as String
|
|
Public sCANCEL as String
|
|
Dim sEnd as String
|
|
|
|
Sub InitializeResources()
|
|
Dim LocWorkPath as String
|
|
With DialogModel
|
|
' Strings that are also needed by the Password Dialog
|
|
sGoOn = GetResText(1003)
|
|
sHelp = GetResText(1001)
|
|
sCANCEL = GetResText(1418)
|
|
sEnd = GetResText(1000)
|
|
sPROTECT = GetResText(1005)
|
|
sCONTINUE = GetResText(1007)
|
|
sSELTEMPL = GetResText(1106)
|
|
sSELCELL = GetResText(1107)
|
|
sCURRRANGES = GetResText(1108)
|
|
sTEMPLATES = GetResText(1109)
|
|
sStsPROGRESS = GetResText(1300)
|
|
sStsCELLPROGRSS = GetResText(1301)
|
|
sStsRELSHEETRANGES = GetResText(1302)
|
|
sStsRELRANGES = GetResText(1303)
|
|
sStsREPROTECT = GetResText(1304)
|
|
sREADY = GetResText(1400)
|
|
sMsgSELDIR = GetResText(1401)
|
|
sMsgSELFILE = GetResText(1402)
|
|
sMsgTARGETDIR = GetResText(1403)
|
|
sMsgNOTTHERE = GetResText(1404)
|
|
sMsgDLGTITLE = GetResText(1405)
|
|
sMsgUNPROTECT = GetResText(1406)
|
|
sMsgPWPROTECT = GetResText(1407)
|
|
sMsgWRONGPW = GetResText(1408)
|
|
sMsgSHEETPROTECTED = GetResText(1409)
|
|
sMsgWARNING = GetResText(1410)
|
|
sMsgSHEETSNOPROTECT = GetResText(1411)
|
|
sMsgSHEETNOPROTECT = GetResText(1412)
|
|
sMsgCHOOSECURRENCY = GetResText(1415)
|
|
sMsgPASSWORD = GetResText(1416)
|
|
sMsgOK = GetResText(1417)
|
|
sMsgCANCEL = GetResText(1418)
|
|
sMsgFILEINVALID = GetResText(1419)
|
|
sMsgFILEINVALID = ReplaceString(sMsgFILEINVALID,"%PRODUCTNAME", GetProductname())
|
|
SMsgNODIRECTORY = GetResText(1420)
|
|
sMsgDOCISREADONLY = GetResText(1421)
|
|
sMsgFileExists = GetResText(1422)
|
|
sMsgCancelConversion = GetResText(1423)
|
|
sMsgCancelTitle = GetResText(1424)
|
|
sCurrPORTUGUESE = GetResText(1500)
|
|
sCurrDUTCH = GetResText(1501)
|
|
sCurrFRENCH = GetResText(1502)
|
|
sCurrSPANISH = GetResText(1503)
|
|
sCurrITALIAN = GetResText(1504)
|
|
sCurrGERMAN = GetResText(1505)
|
|
sCurrBELGIAN = GetResText(1506)
|
|
sCurrIRISH = GetResText(1507)
|
|
sCurrLUXEMBOURG = GetResText(1508)
|
|
sCurrAUSTRIAN = GetResText(1509)
|
|
sCurrFINNISH = GetResText(1510)
|
|
sCurrGREEK = GetResText(1511)
|
|
sCurrSLOVENIAN = GetResText(1512)
|
|
sCurrCYPRIOT = GetResText(1513)
|
|
sCurrMALTESE = GetResText(1514)
|
|
sCurrSLOVAK = GetResText(1515)
|
|
sCurrESTONIAN = GetResText(1516)
|
|
sCurrUNKNOWN = GetResText(1517)
|
|
sCurrSYSUNKNOWN = GetResText(1518)
|
|
.cmdCancel.Label = sCANCEL
|
|
.cmdHelp.Label = sHELP
|
|
.cmdBack.Label = GetResText(1002)
|
|
.cmdGoOn.Label = sGOON
|
|
.lblHint.Label = GetResText(1004)
|
|
.lblCurrencies.Label = GetResText(1006)
|
|
.cmdBack.Enabled = False
|
|
If .Step = 1 Then
|
|
.chkComplete.Label = GetResText(1100)
|
|
.hlnSelection.Label = GetResText(1101)
|
|
.optCellTemplates.Label = GetResText(1102)
|
|
.optSheetRanges.Label = GetResText(1103)
|
|
.optDocRanges.Label = GetResText(1104)
|
|
.optSelRange.Label = GetResText(1105)
|
|
sCURRRANGES = GetResText(1108)
|
|
.lblSelection.Label = sCURRRANGES
|
|
Else
|
|
.lblProgress.Label = sStsPROGRESS
|
|
.hlnExtent.Label = GetResText(1200)
|
|
.optSingleFile.Label = GetResText(1201)
|
|
.optWholeDir.Label = GetResText(1202)
|
|
.chkProtect.Label = GetResText(1207)
|
|
.chkTextDocuments.Label = GetResText(1210)
|
|
|
|
sSOURCEFILE = GetResText(1203)
|
|
sSOURCEDIR = GetResText(1204)
|
|
.lblSource.Label = sSOURCEDIR
|
|
sInclusiveSubDir = GetResText(1205)
|
|
.chkRecursive.Label = sInclusiveSubDir
|
|
sTARGETDIR = GetResText(1206)
|
|
.lblTarget.Label = STARGETDIR
|
|
|
|
LocWorkPath = GetPathSettings("Work")
|
|
If Not oUcb.Exists(LocWorkPath) Then
|
|
ShowNoOfficePathError()
|
|
Stop
|
|
End If
|
|
|
|
.txtSource.Text = ConvertfromUrl(LocWorkPath)
|
|
|
|
SubstDir = .txtSource.Text
|
|
.txtTarget.Text = .txtSource.Text
|
|
.hlnProgress.Label = GetResText(1600)
|
|
.lblConfig.Label = GetResText(1603)
|
|
sPrgsRETRIEVAL = GetResText(1601)
|
|
sPrgsCONVERTING = GetResText(1602)
|
|
sPrgsUNPROTECT = GetResText(1604)
|
|
End If
|
|
End With
|
|
End Sub
|
|
|
|
Sub InitializeLanguages()
|
|
sEuroSign = chr(8364)
|
|
|
|
' CURRENCIES_PORTUGUESE
|
|
LangIDValue(0,0,0) = "pt"
|
|
LangIDValue(0,0,1) = ""
|
|
LangIDValue(0,0,2) = "-816"
|
|
|
|
' CURRENCIES_DUTCH
|
|
LangIDValue(1,0,0) = "nl"
|
|
LangIDValue(1,0,1) = ""
|
|
LangIDValue(1,0,2) = "-413"
|
|
|
|
' CURRENCIES_FRENCH
|
|
LangIDValue(2,0,0) = "fr"
|
|
LangIDValue(2,0,1) = ""
|
|
LangIDValue(2,0,2) = "-40C"
|
|
|
|
' CURRENCIES_SPANISH
|
|
LangIDValue(3,0,0) = "es"
|
|
LangIDValue(3,0,1) = ""
|
|
LangIDValue(3,0,2) = "-40A"
|
|
|
|
'Spanish modern
|
|
LangIDValue(3,1,0) = "es"
|
|
LangIDValue(3,1,1) = ""
|
|
LangIDValue(3,1,2) = "-C0A"
|
|
|
|
'Spanish katalanic
|
|
LangIDValue(3,2,0) = "es"
|
|
LangIDValue(3,2,1) = ""
|
|
LangIDValue(3,2,2) = "-403"
|
|
|
|
' CURRENCIES_ITALIAN
|
|
LangIDValue(4,0,0) = "it"
|
|
LangIDValue(4,0,1) = ""
|
|
LangIDValue(4,0,2) = "-410"
|
|
|
|
' CURRENCIES_GERMAN
|
|
LangIDValue(5,0,0) = "de"
|
|
LangIDValue(5,0,1) = "DE"
|
|
LangIDValue(5,0,2) = "-407"
|
|
|
|
' CURRENCIES_BELGIAN
|
|
LangIDValue(6,0,0) = "fr"
|
|
LangIDValue(6,0,1) = "BE"
|
|
LangIDValue(6,0,2) = "-80C"
|
|
|
|
LangIDValue(6,1,0) = "nl"
|
|
LangIDValue(6,1,1) = "BE"
|
|
LangIDValue(6,1,2) = "-813"
|
|
|
|
' CURRENCIES_IRISH
|
|
LangIDValue(7,0,0) = "en"
|
|
LangIDValue(7,0,1) = "IE"
|
|
LangIDValue(7,0,2) = "-1809"
|
|
|
|
LangIDValue(7,1,0) = "ga"
|
|
LangIDValue(7,1,1) = "IE"
|
|
LangIDValue(7,1,2) = "-83C"
|
|
|
|
' CURRENCIES_LUXEMBOURG
|
|
LangIDValue(8,0,0) = "fr"
|
|
LangIDValue(8,0,1) = "LU"
|
|
LangIDValue(8,0,2) = "-140C"
|
|
|
|
LangIDValue(8,1,0) = "de"
|
|
LangIDValue(8,1,1) = "LU"
|
|
LangIDValue(8,1,2) = "-1007"
|
|
|
|
' CURRENCIES_AUSTRIAN
|
|
LangIDValue(9,0,0) = "de"
|
|
LangIDValue(9,0,1) = "AT"
|
|
LangIDValue(9,0,2) = "-C07"
|
|
|
|
' CURRENCIES_FINNISH
|
|
LangIDValue(10,0,0) = "fi"
|
|
LangIDValue(10,0,1) = "FI"
|
|
LangIDValue(10,0,2) = "-40B"
|
|
|
|
LangIDValue(10,1,0) = "sv"
|
|
LangIDValue(10,1,1) = "FI"
|
|
LangIDValue(10,1,2) = "-81D"
|
|
|
|
' CURRENCIES_GREEK
|
|
LangIDValue(11,0,0) = "el"
|
|
LangIDValue(11,0,1) = "GR"
|
|
LangIDValue(11,0,2) = "-408"
|
|
|
|
' CURRENCIES_SLOVENIAN
|
|
LangIDValue(12,0,0) = "sl"
|
|
LangIDValue(12,0,1) = "SI"
|
|
LangIDValue(12,0,2) = "-424"
|
|
|
|
' CURRENCIES_CYPRIOT
|
|
LangIDValue(13,0,0) = "el"
|
|
LangIDValue(13,0,1) = "CY"
|
|
LangIDValue(13,0,2) = "-408"
|
|
|
|
' CURRENCIES_MALTESE
|
|
LangIDValue(14,0,0) = "mt"
|
|
LangIDValue(14,0,1) = "MT"
|
|
LangIDValue(14,0,2) = "-43A"
|
|
|
|
' CURRENCIES_SLOVAK
|
|
LangIDValue(15,0,0) = "sk"
|
|
LangIDValue(15,0,1) = "SK"
|
|
LangIDValue(15,0,2) = "-41B"
|
|
|
|
' CURRENCIES_ESTONIAN
|
|
LangIDValue(16,0,0) = "et"
|
|
LangIDValue(16,0,1) = "ET"
|
|
LangIDValue(16,0,2) = "-425"
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Sub InitializeCurrencies()
|
|
Dim i as Integer
|
|
GoOn = True
|
|
|
|
CurrValue(0,0) = sCurrPORTUGUESE
|
|
' real conversion rate
|
|
CurrValue(0,1) = 200.482
|
|
' rounded conversion rate
|
|
CurrValue(0,2) = 200
|
|
CurrValue(0,3) = "Esc."
|
|
CurrValue(0,4) = "Esc."
|
|
CurrValue(0,5) = "PTE"
|
|
|
|
CurrValue(1,0) = sCurrDUTCH
|
|
' real conversion rate
|
|
CurrValue(1,1) = 2.20371
|
|
' rounded conversion rate
|
|
CurrValue(1,2) = 2
|
|
CurrValue(1,3) = "F"
|
|
CurrValue(1,4) = "fl"
|
|
CurrValue(1,5) = "NLG"
|
|
|
|
CurrValue(2,0) = sCurrFRENCH
|
|
' real conversion rate
|
|
CurrValue(2,1) = 6.55957
|
|
' rounded conversion rate
|
|
CurrValue(2,2) = 7
|
|
CurrValue(2,3) = "F"
|
|
CurrValue(2,4) = "F"
|
|
CurrValue(2,5) = "FRF"
|
|
|
|
CurrValue(3,0) = sCurrSPANISH
|
|
' real conversion rate
|
|
CurrValue(3,1) = 166.386
|
|
' rounded conversion rate
|
|
CurrValue(3,2) = 170
|
|
CurrValue(3,3) = "Pts"
|
|
CurrValue(3,4) = "Pts"
|
|
CurrValue(3,5) = "ESP"
|
|
|
|
CurrValue(4,0) = sCurrITALIAN
|
|
' real conversion rate
|
|
CurrValue(4,1) = 1936.27
|
|
' rounded conversion rate
|
|
CurrValue(4,2) = 2000
|
|
CurrValue(4,3) = "L."
|
|
CurrValue(4,4) = "L."
|
|
CurrValue(4,5) = "ITL"
|
|
|
|
CurrValue(5,0) = sCurrGERMAN
|
|
' real conversion rate
|
|
CurrValue(5,1) = 1.95583
|
|
' rounded conversion rate
|
|
CurrValue(5,2) = 2
|
|
CurrValue(5,3) = "DM"
|
|
CurrValue(5,4) = "DM"
|
|
CurrValue(5,5) = "DEM"
|
|
|
|
CurrValue(6,0) = sCurrBELGIAN
|
|
' real conversion rate
|
|
CurrValue(6,1) = 40.3399
|
|
' rounded conversion rate
|
|
CurrValue(6,2) = 40
|
|
CurrValue(6,3) = "FB"
|
|
CurrValue(6,4) = "BF"
|
|
CurrValue(6,5) = "BEF"
|
|
|
|
CurrValue(7,0) = sCurrIRISH
|
|
' real conversion rate
|
|
CurrValue(7,1) = 0.787564
|
|
' rounded conversion rate
|
|
CurrValue(7,2) = 0.8
|
|
CurrValue(7,3) = "IR£"
|
|
CurrValue(7,4) = "£"
|
|
CurrValue(7,5) = "IEP"
|
|
|
|
CurrValue(8,0) = sCurrLUXEMBOURG
|
|
' real conversion rate
|
|
CurrValue(8,1) = 40.3399
|
|
' rounded conversion rate
|
|
CurrValue(8,2) = 40
|
|
CurrValue(8,3) = "F"
|
|
CurrValue(8,4) = "F"
|
|
CurrValue(8,5) = "LUF"
|
|
|
|
CurrValue(9,0) = sCurrAUSTRIAN
|
|
' real conversion rate
|
|
CurrValue(9,1) = 13.7603
|
|
' rounded conversion rate
|
|
CurrValue(9,2) = 15
|
|
CurrValue(9,3) = "öS"
|
|
CurrValue(9,4) = "S"
|
|
CurrValue(9,5) = "ATS"
|
|
|
|
CurrValue(10,0) = sCurrFINNISH
|
|
' real conversion rate
|
|
CurrValue(10,1) = 5.94573
|
|
' rounded conversion rate
|
|
CurrValue(10,2) = 6
|
|
CurrValue(10,3) = "mk"
|
|
CurrValue(10,4) = "mk"
|
|
CurrValue(10,5) = "FIM"
|
|
|
|
CurrValue(11,0) = sCurrGREEK
|
|
' real conversion rate
|
|
CurrValue(11,1) = 340.750
|
|
' rounded conversion rate
|
|
CurrValue(11,2) = 400
|
|
CurrValue(11,3) = chr(916) & chr(961) & chr(967)
|
|
CurrValue(11,4) = chr(916) & chr(961) & chr(967)
|
|
CurrValue(11,5) = "GRD"
|
|
|
|
CurrValue(12,0) = sCurrSLOVENIAN
|
|
' real conversion rate
|
|
CurrValue(12,1) = 239.64
|
|
' rounded conversion rate
|
|
CurrValue(12,2) = 240
|
|
CurrValue(12,3) = "SIT"
|
|
CurrValue(12,4) = "SIT"
|
|
CurrValue(12,5) = "SIT"
|
|
|
|
CurrValue(13,0) = sCurrCYPRIOT
|
|
' real conversion rate
|
|
CurrValue(13,1) = 0.585274
|
|
' rounded conversion rate
|
|
CurrValue(13,2) = 0.6
|
|
CurrValue(13,3) = "£C"
|
|
CurrValue(13,4) = "£"
|
|
CurrValue(13,5) = "CYP"
|
|
|
|
CurrValue(14,0) = sCurrMALTESE
|
|
' real conversion rate
|
|
CurrValue(14,1) = 0.429300
|
|
' rounded conversion rate
|
|
CurrValue(14,2) = 0.4
|
|
CurrValue(14,3) = chr(8356)
|
|
CurrValue(14,4) = "Lm"
|
|
CurrValue(14,5) = "MTL"
|
|
|
|
CurrValue(15,0) = sCurrSLOVAK
|
|
' real conversion rate
|
|
CurrValue(15,1) = 30.1260
|
|
' rounded conversion rate
|
|
CurrValue(15,2) = 30
|
|
CurrValue(15,3) = "Sk"
|
|
CurrValue(15,4) = "Sk"
|
|
CurrValue(15,5) = "SKK"
|
|
|
|
CurrValue(16,0) = sCurrESTONIAN
|
|
' real conversion rate
|
|
CurrValue(16,1) = 15.6466
|
|
' rounded conversion rate
|
|
CurrValue(16,2) = 16
|
|
CurrValue(16,3) = "kr"
|
|
CurrValue(16,4) = "kr"
|
|
CurrValue(16,5) = "EEK"
|
|
|
|
i = -1
|
|
CurrSymbolList(0) = ""
|
|
CurrSymbolList(1) = ""
|
|
InitializeCurrencyValues(CurrIndex)
|
|
End Sub
|
|
|
|
|
|
Sub InitializeControls()
|
|
If CurrIndex = -1 Then
|
|
If DialogModel.Step = 1 Then
|
|
EnableStep1DialogControls(True, False, False)
|
|
ElseIf DialogModel.Step = 2 Then
|
|
EnableStep2DialogControls(True)
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Sub InitializeConverter(oLocale, iDialogPage as Integer)
|
|
Dim Isthere as Boolean
|
|
bCancelProtection = False
|
|
bRangeListDefined = False
|
|
PWIndex = -1
|
|
If iDialogPage = 1 Then
|
|
ToggleWindow(False)
|
|
sDocType = Tools.GetDocumentType(ThisComponent)
|
|
If sDocType = "sCalc" Then
|
|
bDocHasProtectedSheets = CheckSheetProtection(oSheets)
|
|
End If
|
|
oStatusline = ThisComponent.GetCurrentController.GetFrame.CreateStatusIndicator()
|
|
End If
|
|
DialogConvert = LoadDialog("Euro", "DlgConvert")
|
|
DialogModel = DialogConvert.Model
|
|
DialogPassword = LoadDialog("Euro", "DlgPassword")
|
|
PasswordModel = DialogPassword.Model
|
|
DialogModel.Step = iDialogPage
|
|
InitializeResources()
|
|
InitializeLanguages()
|
|
InitializeLocales(oLocale)
|
|
InitializeCurrencies()
|
|
InitializeControls()
|
|
BitmapDir = GetOfficeSubPath("Template", "../wizard/bitmap")
|
|
If BitmapDir = "" Then
|
|
Stop
|
|
End If
|
|
FillUpCurrencyListbox()
|
|
DialogModel.imgPreview.ImageUrl = BitmapDir & "euro_" & DialogModel.Step & ".bmp"
|
|
DialogConvert.Title = sMsgDLGTITLE
|
|
DialogModel.cmdGoOn.DefaultButton = True
|
|
If iDialogPage = 1 Then
|
|
ToggleWindow(True)
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Sub InitializeCurrencyValues(CurrIndex)
|
|
If CurrIndex <> -1 Then
|
|
CurrLanguage = CurrValue(CurrIndex,0)
|
|
CurrFactor = CurrValue(CurrIndex,1)
|
|
CurrSymbolList(0) = CurrValue(CurrIndex,3)
|
|
CurrSymbolList(1) = CurrValue(CurrIndex,4)
|
|
CurrSymbolList(2) = CurrValue(CurrIndex,5)
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Function InitializeLocales(oLocale) as Boolean
|
|
Dim i as Integer, n as Integer, m as Integer
|
|
Dim sLanguage as String, sCountry as String
|
|
Dim bTakeThisLocale as Boolean
|
|
sLanguage = oLocale.Language
|
|
sCountry = oLocale.Country
|
|
For n = 0 To SBCOUNTRYCOUNT - 1
|
|
For m = 0 TO 1
|
|
If DialogModel.Step = 2 Then
|
|
bTakeThisLocale = LangIDValue(n,m,0) = sLanguage
|
|
Else
|
|
bTakeThisLocale = LangIDValue(n,m,0) = sLanguage
|
|
End If
|
|
If bTakeThisLocale Then
|
|
CurrIndex = n
|
|
For i = 0 To 2
|
|
CurExtension(i) = LangIDValue(CurrIndex,i,2)
|
|
Next i
|
|
InitializeLocales = True
|
|
Exit Function
|
|
End If
|
|
Next m
|
|
Next n
|
|
CurrIndex = -1
|
|
InitializeLocales = False
|
|
End Function
|
|
</script:module>
|