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