xref: /AOO41X/main/wizards/source/importwizard/Language.xba (revision ff0525f24f03981d56b7579b645949f111420994) 
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
25Public sMSTemplateCheckbox(2) As String
26Public sMSDocumentCheckbox(2) As String
27Public sSODocumentCheckbox(4) As String
28Public sSOHelperdocuments(1,1) As String
29Public sTemplateCheckbox(SBMAXAPPLCOUNT-1) As String
30Public sDocumentCheckbox(SBMAXAPPLCOUNT-1) As String
31Public sTemplateGroupName As String
32Public sSearchInSubDir as String
33Public sPathErrorTemplates(SBMAXAPPLCOUNT-1) As String
34Public sPathErrorDocument(SBMAXAPPLCOUNT-1) As String
35Public sPathErrorStarDoc(SBMAXAPPLCOUNT-1) As String
36Public sStarDocLabel(SBMAXAPPLCOUNT-1) As String
37Public sImportLabel As String, sExportLabel As String
38Public SOApplicationName(5) As String
39Public sHelpButton As String, sCancelButton As String, sBackButton As String, sNextButton As String
40Public sSumInclusiveSubDir As String, sSumSaveDocuments As String
41Public sSummaryHeader As String
42Public sWelcometextLabel1 As String, sWelcometextLabel2 As String,  sWelcometextLabel3 As String
43Public sBeginButton As String, sMsgDirNotThere As String
44Public sQueryForNewCreation As String, sPathError3 As String
45Public sNoDirCreation As String
46Public sProgressMoreDocs As String, sProgressMoreTemplates as String
47Public sFileExists As String, sMorePathsError3 As String
48Public sConvertError1 As String, sConvertError2 As String, sPathDialogMessage As String
49Public sRTErrorDesc As String, sRTErrorHeader As String
50Public sProgressPage_1 As String, sProgressPage_2 As String, sProgressPage_3 as String
51Public sProgressFound as String, sProgresspage_5 as String
52Public sContainerName(1) as String
53Public sReady as String, sTitle as String
54Public sCloseButton as String
55Public sSourceDocuments as String
56Public sTargetDocuments as String
57Public sSumSODocuments(4) as String
58Public sSumSOTemplates(4) as String
59Public sSumMSDocuments(3) as String
60Public sSumMSTemplates(3) as String
61Public ModuleList(3) as String
62Public sLogSummary as String
63Public sReeditMacro as String
64Public sOverwriteallFiles as String
65Public scouldnotopenDocument as String
66Public sCurcouldnotopenDocument as String
67Public scouldnotsaveDocument as String
68Public sCurcouldnotsaveDocument as String
69
70
71Sub LoadLanguage()
72    If InitResources(&quot;ImportWizard&quot;,&quot;imp&quot;) 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(),&quot;%PRODUCTNAME&quot;)
81        sWelcometextLabel2 = GetResText(1007)
82        sWelcometextLabel3 = GetResText(1008)
83
84        &apos; Microsoft Documents
85        GetApplResourceArray(1009, 3, sMSTemplateCheckBox())
86
87        &apos; DocumentCheckbox- Captions
88        GetApplResourceArray(1012, 3, sMSDocumentCheckBox())
89
90        &apos; DocumentCheckbox- Captions
91        GetApplResourceArray(2013, 5, sSODocumentCheckBox())
92
93        &apos;StarOffice Applicationnames
94
95        sSOHelperDocuments(0,0) = GetResText(2017)
96        sSOHelperDocuments(0,1) = &quot;com.sun.star.text.GlobalDocument&quot;
97        sSOHelperDocuments(1,0) = GetResText(2018)
98        sSOHelperDocuments(1,1) = &quot;com.sun.star.formula.FormulaProperties&quot;
99
100        GetApplResourceArray(2017,2, sSOHelperDocuments())
101
102        sContainerName(0) = GetResText(1030)
103        &apos; Note: for the version 5.2 there was no Productname &quot;StarSuite&quot;
104        sContainerName(1) = &quot;StarOffice&quot;
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        &apos;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) = &quot;com.sun.star.text.TextDocument&quot;
161        ModuleList(1) = &quot;com.sun.star.sheet.SpreadsheetDocument&quot;
162        ModuleList(2) = &quot;com.sun.star.drawing.DrawingDocument/com.sun.star.presentation.PresentationDocument&quot;
163        ModuleList(3) = &quot;com.sun.star.formula.FormulaProperties/com.sun.star.text.GlobalDocument&quot;
164    End If
165End Sub
166
167
168Sub GetApplResourceArray(StartResIndex as Integer, Count as Integer, BigArray())
169Dim i as Integer
170Dim 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
176End Sub
177</script:module>
178