diff options
Diffstat (limited to 'wizards/source/importwizard/Language.xba')
-rw-r--r-- | wizards/source/importwizard/Language.xba | 157 |
1 files changed, 157 insertions, 0 deletions
diff --git a/wizards/source/importwizard/Language.xba b/wizards/source/importwizard/Language.xba new file mode 100644 index 000000000000..32efcc242e8a --- /dev/null +++ b/wizards/source/importwizard/Language.xba @@ -0,0 +1,157 @@ +<?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 sMSTemplateCheckbox(2) As String +Public sMSDocumentCheckbox(2) As String +Public sSODocumentCheckbox(4) As String +Public sSOHelperdocuments(1,1) As String +Public sTemplateCheckbox(SBMAXAPPLCOUNT-1) As String +Public sDocumentCheckbox(SBMAXAPPLCOUNT-1) As String +Public sTemplateGroupName As String +Public sSearchInSubDir as String +Public sPathErrorTemplates(SBMAXAPPLCOUNT-1) As String +Public sPathErrorDocument(SBMAXAPPLCOUNT-1) As String +Public sPathErrorStarDoc(SBMAXAPPLCOUNT-1) As String +Public sStarDocLabel(SBMAXAPPLCOUNT-1) As String +Public sImportLabel As String, sExportLabel As String +Public SOApplicationName(5) As String +Public sHelpButton As String, sCancelButton As String, sBackButton As String, sNextButton As String +Public sSumInclusiveSubDir As String, sSumSaveDocuments As String +Public sSummaryHeader As String +Public sWelcometextLabel1 As String, sWelcometextLabel2 As String, sWelcometextLabel3 As String +Public sBeginButton As String, sMsgDirNotThere As String +Public sQueryForNewCreation As String, sPathError3 As String +Public sNoDirCreation As String +Public sProgressMoreDocs As String, sProgressMoreTemplates as String +Public sFileExists As String, sMorePathsError3 As String +Public sConvertError1 As String, sConvertError2 As String, sPathDialogMessage As String +Public sRTErrorDesc As String, sRTErrorHeader As String +Public sProgressPage_1 As String, sProgressPage_2 As String, sProgressPage_3 as String +Public sProgressFound as String, sProgresspage_5 as String +Public sContainerName(1) as String +Public sReady as String, sTitle as String +Public sCloseButton as String +Public sSourceDocuments as String +Public sTargetDocuments as String +Public sSumSODocuments(4) as String +Public sSumSOTemplates(4) as String +Public sSumMSDocuments(3) as String +Public sSumMSTemplates(3) as String +Public ModuleList(3) as String +Public sLogSummary as String +Public sReeditMacro as String +Public sOverwriteallFiles as String +Public scouldnotopenDocument as String +Public sCurcouldnotopenDocument as String +Public scouldnotsaveDocument as String +Public sCurcouldnotsaveDocument as String + + +Sub LoadLanguage() + If InitResources("ImportWizard","imp") then + sHelpButton = GetResText(1000) + sCancelButton = GetResText(1001) + sBackButton = GetResText(1002) + sNextButton = GetResText(1003) + sBeginButton = GetResText(1004) + sCloseButton = GetResText(1005) + + sWelcometextLabel1 = ReplaceString(GetResText(1006), GetProductName(),"%PRODUCTNAME") + sWelcometextLabel2 = GetResText(1007) + sWelcometextLabel3 = GetResText(1008) + + ' Microsoft Documents + GetApplResourceArray(1009, 3, sMSTemplateCheckBox()) + + ' DocumentCheckbox- Captions + GetApplResourceArray(1012, 3, sMSDocumentCheckBox()) + + ' DocumentCheckbox- Captions + GetApplResourceArray(2013, 5, sSODocumentCheckBox()) + + 'StarOffice Applicationnames + + sSOHelperDocuments(0,0) = GetResText(2017) + sSOHelperDocuments(0,1) = "com.sun.star.text.GlobalDocument" + sSOHelperDocuments(1,0) = GetResText(2018) + sSOHelperDocuments(1,1) = "com.sun.star.formula.FormulaProperties" + + GetApplResourceArray(2017,2, sSOHelperDocuments()) + + sContainerName(0) = GetResText(1030) + ' Note: for the version 5.2 there was no Productname "StarSuite" + sContainerName(1) = "StarOffice" + + sSummaryHeader = GetResText(1031) + + sTemplateGroupName = GetResText(1036) + + sProgressMoreDocs = GetResText(1041) + sProgressMoreTemplates = GetResText(1042) + sNoDirCreation = GetResText(1050) + sMsgDirNotThere = GetResText(1051) + sQueryForNewCreation = GetResText(1052) + sFileExists = GetResText(1053) + sMorePathsError3 = GetResText(1054) + sConvertError1 = GetResText(1055) + sConvertError2 = GetResText(1056) + sRTErrorDesc = GetResText(1057) + sRTErrorHeader = GetResText(1058) + sOverwriteallFiles = GetResText(1070) + sReeditMacro = GetResText(1071) + scouldnotsaveDocument = GetResText(1072) + scouldnotopenDocument = GetResText(1073) + sPathDialogMessage = GetResText(1080) + sTitle = GetResText(1081) + + sProgressPage_1 = GetResText(1090) + sProgressPage_2 = GetResText(1091) + sProgressPage_3 = GetResText(1092) + sProgressFound = GetResText(1093) + sProgressPage_5 = GetResText(1094) + sReady = GetResText(1100) + sSourceDocuments = GetResText(2030) + sTargetDocuments = GetResText(2031) + sLogSummary = GetResText(2034) + sSumInclusiveSubDir = GetResText(3000) + sSumSaveDocuments = GetResText(3001) + 'StarOffice Applicationnames + GetApplResourceArray(3100, 4, sSumSODocuments()) + GetApplResourceArray(3110, 4, sSumSOTemplates()) + GetApplResourceArray(3200, 3, sSumMSDocuments()) + GetApplResourceArray(3210, 3, sSumMSTemplates()) + With ImportDialog + sImportLabel = GetResText(1033) + sExportLabel = GetResText(1034) + sSearchInSubDir = GetResText(1022) + .chkTemplateSearchSubDir.Label = sSearchInSubDir + .lblDocumentImport.Label = sImportLabel + .lblDocumentExport.Label = sExportLabel + .chkDocumentSearchSubDir.Label = sSearchInSubDir + .lblTemplateImport.Label = sImportLabel + .lblTemplateExport.Label = sExportLabel + .chkLogfile.Label = GetResText(2032) + .chkLogfile.Helptext = GetResText(2033) + Dim Blabla as String + blabla = GetResText(1072) + .cmdShowLogFile.Label = GetResText(2035) + End With + ModuleList(0) = "com.sun.star.text.TextDocument" + ModuleList(1) = "com.sun.star.sheet.SpreadsheetDocument" + ModuleList(2) = "com.sun.star.drawing.DrawingDocument/com.sun.star.presentation.PresentationDocument" + ModuleList(3) = "com.sun.star.formula.FormulaProperties/com.sun.star.text.GlobalDocument" + End If +End Sub + + +Sub GetApplResourceArray(StartResIndex as Integer, Count as Integer, BigArray()) +Dim i as Integer +Dim a as Integer + a = 0 + For i = StartResIndex To StartResIndex + Count-1 + BigArray(a) = GetResText(i) + a = a + 1 + Next +End Sub +</script:module>
\ No newline at end of file |