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 <!--
   4  * This file is part of the LibreOffice project.
   5  *
   6  * This Source Code Form is subject to the terms of the Mozilla Public
   7  * License, v. 2.0. If a copy of the MPL was not distributed with this
   8  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   9  *
  10  * This file incorporates work covered by the following license notice:
  11  *
  12  *   Licensed to the Apache Software Foundation (ASF) under one or more
  13  *   contributor license agreements. See the NOTICE file distributed
  14  *   with this work for additional information regarding copyright
  15  *   ownership. The ASF licenses this file to you under the Apache
  16  *   License, Version 2.0 (the "License"); you may not use this file
  17  *   except in compliance with the License. You may obtain a copy of
  18  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  19 -->
  20 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Language" script:language="StarBasic">Option Explicit
  21
  22 Public sMSTemplateCheckbox(2) As String
  23 Public sMSDocumentCheckbox(2) As String
  24 Public sSODocumentCheckbox(4) As String
  25 Public sSOHelperdocuments(1,1) As String
  26 Public sTemplateCheckbox(SBMAXAPPLCOUNT-1) As String
  27 Public sDocumentCheckbox(SBMAXAPPLCOUNT-1) As String
  28 Public sTemplateGroupName As String
  29 Public sSearchInSubDir as String
  30 Public sPathErrorTemplates(SBMAXAPPLCOUNT-1) As String
  31 Public sPathErrorDocument(SBMAXAPPLCOUNT-1) As String
  32 Public sPathErrorStarDoc(SBMAXAPPLCOUNT-1) As String
  33 Public sStarDocLabel(SBMAXAPPLCOUNT-1) As String
  34 Public sImportLabel As String, sExportLabel As String
  35 Public SOApplicationName(5) As String
  36 Public sHelpButton As String, sCancelButton As String, sBackButton As String, sNextButton As String
  37 Public sSumInclusiveSubDir As String, sSumSaveDocuments As String
  38 Public sSummaryHeader As String
  39 Public sWelcometextLabel1 As String, sWelcometextLabel3 As String
  40 Public sBeginButton As String, sMsgDirNotThere As String
  41 Public sQueryForNewCreation As String, sPathError3 As String
  42 Public sNoDirCreation As String
  43 Public sProgressMoreDocs As String, sProgressMoreTemplates as String
  44 Public sFileExists As String, sMorePathsError3 As String
  45 Public sConvertError1 As String, sConvertError2 As String, sPathDialogMessage As String
  46 Public sRTErrorDesc As String, sRTErrorHeader As String
  47 Public sProgressPage_1 As String, sProgressPage_2 As String, sProgressPage_3 as String
  48 Public sProgressFound as String, sProgresspage_5 as String
  49 Public sContainerName(1) as String
  50 Public sReady as String, sTitle as String
  51 Public sCloseButton as String
  52 Public sSourceDocuments as String
  53 Public sTargetDocuments as String
  54 Public sSumSODocuments(4) as String
  55 Public sSumSOTemplates(4) as String
  56 Public sSumMSDocuments(3) as String
  57 Public sSumMSTemplates(3) as String
  58 Public ModuleList(3) as String
  59 Public sLogSummary as String
  60 Public sReeditMacro as String
  61 Public sOverwriteallFiles as String
  62 Public scouldnotopenDocument as String
  63 Public sCurcouldnotopenDocument as String
  64 Public scouldnotsaveDocument as String
  65 Public sCurcouldnotsaveDocument as String
  66
  67
  68 Sub LoadLanguage()
  69         If InitResources(&quot;ImportWizard&quot;,&quot;imp&quot;) then
  70                 sHelpButton = GetResText(1000)
  71                 sCancelButton = GetResText(1001)
  72                 sBackButton = GetResText(1002)
  73                 sNextButton = GetResText(1003)
  74                 sBeginButton = GetResText(1004)
  75                 sCloseButton = GetResText(1005)
  76
  77                 sWelcometextLabel1 = ReplaceString(GetResText(1006), GetProductName(),&quot;%PRODUCTNAME&quot;)
  78                 sWelcometextLabel3 = GetResText(1008)
  79
  80                 &apos; Microsoft Documents
  81                 GetApplResourceArray(1009, 3, sMSTemplateCheckBox())
  82
  83                 &apos; DocumentCheckbox- Captions
  84                 GetApplResourceArray(1012, 3, sMSDocumentCheckBox())
  85
  86                 &apos; DocumentCheckbox- Captions
  87                 GetApplResourceArray(2013, 5, sSODocumentCheckBox())
  88
  89                 &apos;StarOffice Applicationnames
  90
  91                 sSOHelperDocuments(0,0) = GetResText(2017)
  92                 sSOHelperDocuments(0,1) = &quot;com.sun.star.text.GlobalDocument&quot;
  93                 sSOHelperDocuments(1,0) = GetResText(2018)
  94                 sSOHelperDocuments(1,1) = &quot;com.sun.star.formula.FormulaProperties&quot;
  95
  96                 GetApplResourceArray(2017,2, sSOHelperDocuments())
  97
  98                 sContainerName(0) = GetResText(1030)
  99                 &apos; Note: for the version 5.2 there was no Productname &quot;StarSuite&quot;
 100                 sContainerName(1) = &quot;StarOffice&quot;
 101
 102                 sSummaryHeader = GetResText(1031)
 103
 104                 sTemplateGroupName = GetResText(1036)
 105
 106                 sProgressMoreDocs = GetResText(1041)
 107                 sProgressMoreTemplates = GetResText(1042)
 108                 sNoDirCreation = GetResText(1050)
 109                 sMsgDirNotThere = GetResText(1051)
 110                 sQueryForNewCreation = GetResText(1052)
 111                 sFileExists = GetResText(1053)
 112                 sMorePathsError3 = GetResText(1054)
 113                 sConvertError1 = GetResText(1055)
 114                 sConvertError2 = GetResText(1056)
 115                 sRTErrorDesc = GetResText(1057)
 116                 sRTErrorHeader = GetResText(1058)
 117                 sOverwriteallFiles = GetResText(1070)
 118                 sReeditMacro = GetResText(1071)
 119                 scouldnotsaveDocument = GetResText(1072)
 120                 scouldnotopenDocument = GetResText(1073)
 121                 sPathDialogMessage = GetResText(1080)
 122                 sTitle = GetResText(1081)
 123
 124                 sProgressPage_1 = GetResText(1090)
 125                 sProgressPage_2 = GetResText(1091)
 126                 sProgressPage_3 = GetResText(1092)
 127                 sProgressFound = GetResText(1093)
 128                 sProgressPage_5 = GetResText(1094)
 129                 sReady = GetResText(1100)
 130                 sSourceDocuments = GetResText(2030)
 131                 sTargetDocuments = GetResText(2031)
 132                 sLogSummary = GetResText(2034)
 133                 sSumInclusiveSubDir = GetResText(3000)
 134                 sSumSaveDocuments = GetResText(3001)
 135                 &apos;StarOffice Applicationnames
 136                 GetApplResourceArray(3100, 4, sSumSODocuments())
 137                 GetApplResourceArray(3110, 4, sSumSOTemplates())
 138                 GetApplResourceArray(3200, 3, sSumMSDocuments())
 139                 GetApplResourceArray(3210, 3, sSumMSTemplates())
 140                 With ImportDialog
 141                         sImportLabel = GetResText(1033)
 142                         sExportLabel = GetResText(1034)
 143                         sSearchInSubDir = GetResText(1022)
 144                         .chkTemplateSearchSubDir.Label = sSearchInSubDir
 145                         .lblDocumentImport.Label = sImportLabel
 146                         .lblDocumentExport.Label = sExportLabel
 147                         .chkDocumentSearchSubDir.Label = sSearchInSubDir
 148                         .lblTemplateImport.Label = sImportLabel
 149                         .lblTemplateExport.Label = sExportLabel
 150                         .chkLogfile.Label = GetResText(2032)
 151                         .chkLogfile.Helptext = GetResText(2033)
 152                         Dim Blabla as String
 153                         blabla = GetResText(1072)
 154                         .cmdShowLogFile.Label = GetResText(2035)
 155                 End With
 156                 ModuleList(0) = &quot;com.sun.star.text.TextDocument&quot;
 157                 ModuleList(1) = &quot;com.sun.star.sheet.SpreadsheetDocument&quot;
 158                 ModuleList(2) = &quot;com.sun.star.drawing.DrawingDocument/com.sun.star.presentation.PresentationDocument&quot;
 159                 ModuleList(3) = &quot;com.sun.star.formula.FormulaProperties/com.sun.star.text.GlobalDocument&quot;
 160         End If
 161 End Sub
 162
 163
 164 Sub GetApplResourceArray(StartResIndex as Integer, Count as Integer, BigArray())
 165 Dim i as Integer
 166 Dim a as Integer
 167         a = 0
 168         For i = StartResIndex To StartResIndex + Count-1
 169                 BigArray(a) = GetResText(i)
 170                 a = a + 1
 171         Next
 172 End Sub
 173 </script:module>