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 sTemplateCheckbox(SBMAXAPPLCOUNT-1) As String
  25 Public sDocumentCheckbox(SBMAXAPPLCOUNT-1) As String
  26 Public sTemplateGroupName As String
  27 Public sSearchInSubDir as String
  28 Public sPathErrorTemplates(SBMAXAPPLCOUNT-1) As String
  29 Public sPathErrorDocument(SBMAXAPPLCOUNT-1) As String
  30 Public sPathErrorStarDoc(SBMAXAPPLCOUNT-1) As String
  31 Public sStarDocLabel(SBMAXAPPLCOUNT-1) As String
  32 Public sImportLabel As String, sExportLabel As String
  33 Public SOApplicationName(5) As String
  34 Public sHelpButton As String, sCancelButton As String, sBackButton As String, sNextButton As String
  35 Public sSumInclusiveSubDir As String, sSumSaveDocuments As String
  36 Public sSummaryHeader As String
  37 Public sWelcometextLabel1 As String, sWelcometextLabel3 As String
  38 Public sBeginButton As String, sMsgDirNotThere As String
  39 Public sQueryForNewCreation As String, sPathError3 As String
  40 Public sNoDirCreation As String
  41 Public sProgressMoreDocs As String, sProgressMoreTemplates as String
  42 Public sFileExists As String, sMorePathsError3 As String
  43 Public sConvertError1 As String, sConvertError2 As String, sPathDialogMessage As String
  44 Public sRTErrorDesc As String, sRTErrorHeader As String
  45 Public sProgressPage_1 As String, sProgressPage_2 As String, sProgressPage_3 as String
  46 Public sProgressFound as String, sProgresspage_5 as String
  47 Public sContainerName(1) as String
  48 Public sReady as String, sTitle as String
  49 Public sCloseButton as String
  50 Public sSourceDocuments as String
  51 Public sTargetDocuments as String
  52 Public sSumMSDocuments(3) as String
  53 Public sSumMSTemplates(3) as String
  54 Public ModuleList(3) as String
  55 Public sLogSummary as String
  56 Public sReeditMacro as String
  57 Public sOverwriteallFiles as String
  58 Public sCouldnotopenDocument as String
  59 Public sCurcouldnotopenDocument as String
  60 Public sCouldnotsaveDocument as String
  61 Public sCurcouldnotsaveDocument as String
  62
  63
  64 Sub LoadLanguage()
  65         If InitResources(&quot;ImportWizard&quot;) then
  66                 sHelpButton = GetResText(&quot;HelpButton&quot;)
  67                 sCancelButton = GetResText(&quot;CancelButton&quot;)
  68                 sBackButton = GetResText(&quot;BackButton&quot;)
  69                 sNextButton = GetResText(&quot;NextButton&quot;)
  70                 sBeginButton = GetResText(&quot;BeginButton&quot;)
  71                 sCloseButton = GetResText(&quot;CloseButton&quot;)
  72
  73                 sWelcometextLabel1 = ReplaceString(GetResText(&quot;WelcometextLabel1&quot;), GetProductName(),&quot;%PRODUCTNAME&quot;)
  74                 sWelcometextLabel3 = GetResText(&quot;WelcometextLabel3&quot;)
  75
  76                 &apos; Microsoft Documents
  77                 sMSTemplateCheckBox(0) = GetResText(&quot;MSTemplateCheckbox_1_&quot;)
  78                 sMSTemplateCheckBox(1) = GetResText(&quot;MSTemplateCheckbox_2_&quot;)
  79                 sMSTemplateCheckBox(2) = GetResText(&quot;MSTemplateCheckbox_3_&quot;)
  80
  81                 &apos; DocumentCheckbox- Captions
  82                 sMSDocumentCheckBox(0) = GetResText(&quot;MSDocumentCheckbox_1_&quot;)
  83                 sMSDocumentCheckBox(1) = GetResText(&quot;MSDocumentCheckbox_2_&quot;)
  84                 sMSDocumentCheckBox(2) = GetResText(&quot;MSDocumentCheckbox_3_&quot;)
  85
  86                 &apos;StarOffice Applicationnames
  87
  88                 sContainerName(0) = GetResText(&quot;MSContainerName&quot;)
  89
  90                 sSummaryHeader = GetResText(&quot;SummaryHeader&quot;)
  91
  92                 sTemplateGroupName = GetResText(&quot;GroupnameDefault&quot;)
  93
  94                 sProgressMoreDocs = GetResText(&quot;ProgressMoreDocs&quot;)
  95                 sProgressMoreTemplates = GetResText(&quot;ProgressMoreTemplates&quot;)
  96                 sNoDirCreation = GetResText(&quot;NoDirCreation&quot;)
  97                 sMsgDirNotThere = GetResText(&quot;MsgDirNotThere&quot;)
  98                 sQueryForNewCreation = GetResText(&quot;QueryfornewCreation&quot;)
  99                 sFileExists = GetResText(&quot;FileExists&quot;)
 100                 sMorePathsError3 = GetResText(&quot;MorePathsError3&quot;)
 101                 sConvertError1 = GetResText(&quot;ConvertError1&quot;)
 102                 sConvertError2 = GetResText(&quot;ConvertError2&quot;)
 103                 sRTErrorDesc = GetResText(&quot;RTErrorDesc&quot;)
 104                 sRTErrorHeader = GetResText(&quot;RTErrorHeader&quot;)
 105                 sOverwriteallFiles = GetResText(&quot;OverwriteallFiles&quot;)
 106                 sReeditMacro = GetResText(&quot;ReeditMacro&quot;)
 107                 sCouldnotsaveDocument = GetResText(&quot;CouldNotsaveDocument&quot;)
 108                 sCouldnotopenDocument = GetResText(&quot;CouldNotopenDocument&quot;)
 109                 sPathDialogMessage = GetResText(&quot;PathDialogMessage&quot;)
 110                 sTitle = GetResText(&quot;DialogTitle&quot;)
 111
 112                 sProgressPage_1 = GetResText(&quot;ProgressPage1&quot;)
 113                 sProgressPage_2 = GetResText(&quot;ProgressPage2&quot;)
 114                 sProgressPage_3 = GetResText(&quot;ProgressPage3&quot;)
 115                 sProgressFound = GetResText(&quot;ProgressFound&quot;)
 116                 sProgressPage_5 = GetResText(&quot;ProgressPage5&quot;)
 117                 sReady = GetResText(&quot;Ready&quot;)
 118                 sSourceDocuments = GetResText(&quot;SourceDocuments&quot;)
 119                 sTargetDocuments = GetResText(&quot;TargetDocuments&quot;)
 120                 sLogSummary = GetResText(&quot;LogfileSummary&quot;)
 121                 sSumInclusiveSubDir = GetResText(&quot;SumInclusiveSubDir&quot;)
 122                 sSumSaveDocuments = GetResText(&quot;SumSaveDokumente&quot;)
 123                 sSumMSDocuments(0) = GetResText(&quot;SumMSTextDocuments&quot;)
 124                 sSumMSDocuments(1) = GetResText(&quot;SumMSTableDocuments&quot;)
 125                 sSumMSDocuments(2) = GetResText(&quot;SumMSDrawDocuments&quot;)
 126                 sSumMSTemplates(0) = GetResText(&quot;SumMSTextTemplates&quot;)
 127                 sSumMSTemplates(1) = GetResText(&quot;SumMSTableTemplates&quot;)
 128                 sSumMSTemplates(2) = GetResText(&quot;SumMSDrawTemplates&quot;)
 129                 With ImportDialog
 130                         sImportLabel = GetResText(&quot;TextImportLabel&quot;)
 131                         sExportLabel = GetResText(&quot;TextExportLabel&quot;)
 132                         sSearchInSubDir = GetResText(&quot;SearchInSubDir&quot;)
 133                         .chkTemplateSearchSubDir.Label = sSearchInSubDir
 134                         .lblDocumentImport.Label = sImportLabel
 135                         .lblDocumentExport.Label = sExportLabel
 136                         .chkDocumentSearchSubDir.Label = sSearchInSubDir
 137                         .lblTemplateImport.Label = sImportLabel
 138                         .lblTemplateExport.Label = sExportLabel
 139                         .chkLogfile.Label = GetResText(&quot;CreateLogfile&quot;)
 140                         .chkLogfile.Helptext = GetResText(&quot;LogfileHelpText&quot;)
 141                         .cmdShowLogFile.Label = GetResText(&quot;ShowLogfile&quot;)
 142                 End With
 143                 ModuleList(0) = &quot;com.sun.star.text.TextDocument&quot;
 144                 ModuleList(1) = &quot;com.sun.star.sheet.SpreadsheetDocument&quot;
 145                 ModuleList(2) = &quot;com.sun.star.drawing.DrawingDocument/com.sun.star.presentation.PresentationDocument&quot;
 146                 ModuleList(3) = &quot;com.sun.star.formula.FormulaProperties/com.sun.star.text.GlobalDocument&quot;
 147         End If
 148 End Sub
 149
 150 </script:module>