wizards/source/importwizard/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 Public sMSTemplateCheckbox(2) As String
   6 Public sMSDocumentCheckbox(2) As String
   7 Public sSODocumentCheckbox(4) As String
   8 Public sSOHelperdocuments(1,1) As String
   9 Public sTemplateCheckbox(SBMAXAPPLCOUNT-1) As String
  10 Public sDocumentCheckbox(SBMAXAPPLCOUNT-1) As String
  11 Public sTemplateGroupName As String
  12 Public sSearchInSubDir as String
  13 Public sPathErrorTemplates(SBMAXAPPLCOUNT-1) As String
  14 Public sPathErrorDocument(SBMAXAPPLCOUNT-1) As String
  15 Public sPathErrorStarDoc(SBMAXAPPLCOUNT-1) As String
  16 Public sStarDocLabel(SBMAXAPPLCOUNT-1) As String
  17 Public sImportLabel As String, sExportLabel As String
  18 Public SOApplicationName(5) As String
  19 Public sHelpButton As String, sCancelButton As String, sBackButton As String, sNextButton As String
  20 Public sSumInclusiveSubDir As String, sSumSaveDocuments As String
  21 Public sSummaryHeader As String
  22 Public sWelcometextLabel1 As String, sWelcometextLabel2 As String,  sWelcometextLabel3 As String
  23 Public sBeginButton As String, sMsgDirNotThere As String
  24 Public sQueryForNewCreation As String, sPathError3 As String
  25 Public sNoDirCreation As String
  26 Public sProgressMoreDocs As String, sProgressMoreTemplates as String
  27 Public sFileExists As String, sMorePathsError3 As String
  28 Public sConvertError1 As String, sConvertError2 As String, sPathDialogMessage As String
  29 Public sRTErrorDesc As String, sRTErrorHeader As String
  30 Public sProgressPage_1 As String, sProgressPage_2 As String, sProgressPage_3 as String
  31 Public sProgressFound as String, sProgresspage_5 as String
  32 Public sContainerName(1) as String
  33 Public sReady as String, sTitle as String
  34 Public sCloseButton as String
  35 Public sSourceDocuments as String
  36 Public sTargetDocuments as String
  37 Public sSumSODocuments(4) as String
  38 Public sSumSOTemplates(4) as String
  39 Public sSumMSDocuments(3) as String
  40 Public sSumMSTemplates(3) as String
  41 Public ModuleList(3) as String
  42 Public sLogSummary as String
  43 Public sReeditMacro as String
  44 Public sOverwriteallFiles as String
  45 Public scouldnotopenDocument as String
  46 Public sCurcouldnotopenDocument as String
  47 Public scouldnotsaveDocument as String
  48 Public sCurcouldnotsaveDocument as String
  49
  50
  51 Sub LoadLanguage()
  52         If InitResources(&quot;ImportWizard&quot;,&quot;imp&quot;) then
  53                 sHelpButton = GetResText(1000)
  54                 sCancelButton = GetResText(1001)
  55                 sBackButton = GetResText(1002)
  56                 sNextButton = GetResText(1003)
  57                 sBeginButton = GetResText(1004)
  58                 sCloseButton = GetResText(1005)
  59
  60                 sWelcometextLabel1 = ReplaceString(GetResText(1006), GetProductName(),&quot;%PRODUCTNAME&quot;)
  61                 sWelcometextLabel2 = GetResText(1007)
  62                 sWelcometextLabel3 = GetResText(1008)
  63
  64                 &apos; Microsoft Documents
  65                 GetApplResourceArray(1009, 3, sMSTemplateCheckBox())
  66
  67                 &apos; DocumentCheckbox- Captions
  68                 GetApplResourceArray(1012, 3, sMSDocumentCheckBox())
  69
  70                 &apos; DocumentCheckbox- Captions
  71                 GetApplResourceArray(2013, 5, sSODocumentCheckBox())
  72
  73                 &apos;StarOffice Applicationnames
  74
  75                 sSOHelperDocuments(0,0) = GetResText(2017)
  76                 sSOHelperDocuments(0,1) = &quot;com.sun.star.text.GlobalDocument&quot;
  77                 sSOHelperDocuments(1,0) = GetResText(2018)
  78                 sSOHelperDocuments(1,1) = &quot;com.sun.star.formula.FormulaProperties&quot;
  79
  80                 GetApplResourceArray(2017,2, sSOHelperDocuments())
  81
  82                 sContainerName(0) = GetResText(1030)
  83                 &apos; Note: for the version 5.2 there was no Productname &quot;StarSuite&quot;
  84                 sContainerName(1) = &quot;StarOffice&quot;
  85
  86                 sSummaryHeader = GetResText(1031)
  87
  88                 sTemplateGroupName = GetResText(1036)
  89
  90                 sProgressMoreDocs = GetResText(1041)
  91                 sProgressMoreTemplates = GetResText(1042)
  92                 sNoDirCreation = GetResText(1050)
  93                 sMsgDirNotThere = GetResText(1051)
  94                 sQueryForNewCreation = GetResText(1052)
  95                 sFileExists = GetResText(1053)
  96                 sMorePathsError3 = GetResText(1054)
  97                 sConvertError1 = GetResText(1055)
  98                 sConvertError2 = GetResText(1056)
  99                 sRTErrorDesc = GetResText(1057)
 100                 sRTErrorHeader = GetResText(1058)
 101                 sOverwriteallFiles = GetResText(1070)
 102                 sReeditMacro = GetResText(1071)
 103                 scouldnotsaveDocument = GetResText(1072)
 104                 scouldnotopenDocument = GetResText(1073)
 105                 sPathDialogMessage = GetResText(1080)
 106                 sTitle = GetResText(1081)
 107
 108                 sProgressPage_1 = GetResText(1090)
 109                 sProgressPage_2 = GetResText(1091)
 110                 sProgressPage_3 = GetResText(1092)
 111                 sProgressFound = GetResText(1093)
 112                 sProgressPage_5 = GetResText(1094)
 113                 sReady = GetResText(1100)
 114                 sSourceDocuments = GetResText(2030)
 115                 sTargetDocuments = GetResText(2031)
 116                 sLogSummary = GetResText(2034)
 117                 sSumInclusiveSubDir = GetResText(3000)
 118                 sSumSaveDocuments = GetResText(3001)
 119                 &apos;StarOffice Applicationnames
 120                 GetApplResourceArray(3100, 4, sSumSODocuments())
 121                 GetApplResourceArray(3110, 4, sSumSOTemplates())
 122                 GetApplResourceArray(3200, 3, sSumMSDocuments())
 123                 GetApplResourceArray(3210, 3, sSumMSTemplates())
 124                 With ImportDialog
 125                         sImportLabel = GetResText(1033)
 126                         sExportLabel = GetResText(1034)
 127                         sSearchInSubDir = GetResText(1022)
 128                         .chkTemplateSearchSubDir.Label = sSearchInSubDir
 129                         .lblDocumentImport.Label = sImportLabel
 130                         .lblDocumentExport.Label = sExportLabel
 131                         .chkDocumentSearchSubDir.Label = sSearchInSubDir
 132                         .lblTemplateImport.Label = sImportLabel
 133                         .lblTemplateExport.Label = sExportLabel
 134                         .chkLogfile.Label = GetResText(2032)
 135                         .chkLogfile.Helptext = GetResText(2033)
 136                         Dim Blabla as String
 137                         blabla = GetResText(1072)
 138                         .cmdShowLogFile.Label = GetResText(2035)
 139                 End With
 140                 ModuleList(0) = &quot;com.sun.star.text.TextDocument&quot;
 141                 ModuleList(1) = &quot;com.sun.star.sheet.SpreadsheetDocument&quot;
 142                 ModuleList(2) = &quot;com.sun.star.drawing.DrawingDocument/com.sun.star.presentation.PresentationDocument&quot;
 143                 ModuleList(3) = &quot;com.sun.star.formula.FormulaProperties/com.sun.star.text.GlobalDocument&quot;
 144         End If
 145 End Sub
 146
 147
 148 Sub GetApplResourceArray(StartResIndex as Integer, Count as Integer, BigArray())
 149 Dim i as Integer
 150 Dim a as Integer
 151         a = 0
 152         For i = StartResIndex To StartResIndex + Count-1
 153                 BigArray(a) = GetResText(i)
 154                 a = a + 1
 155         Next
 156 End Sub
 157 </script:module>