xref: /trunk/main/wizards/source/importwizard/Language.xba (revision fc9fd3f14a55d77b35643a64034752a178b2a5b0) 
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
5Public sMSTemplateCheckbox(2) As String
6Public sMSDocumentCheckbox(2) As String
7Public sSODocumentCheckbox(4) As String
8Public sSOHelperdocuments(1,1) As String
9Public sTemplateCheckbox(SBMAXAPPLCOUNT-1) As String
10Public sDocumentCheckbox(SBMAXAPPLCOUNT-1) As String
11Public sTemplateGroupName As String
12Public sSearchInSubDir as String
13Public sPathErrorTemplates(SBMAXAPPLCOUNT-1) As String
14Public sPathErrorDocument(SBMAXAPPLCOUNT-1) As String
15Public sPathErrorStarDoc(SBMAXAPPLCOUNT-1) As String
16Public sStarDocLabel(SBMAXAPPLCOUNT-1) As String
17Public sImportLabel As String, sExportLabel As String
18Public SOApplicationName(5) As String
19Public sHelpButton As String, sCancelButton As String, sBackButton As String, sNextButton As String
20Public sSumInclusiveSubDir As String, sSumSaveDocuments As String
21Public sSummaryHeader As String
22Public sWelcometextLabel1 As String, sWelcometextLabel2 As String,  sWelcometextLabel3 As String
23Public sBeginButton As String, sMsgDirNotThere As String
24Public sQueryForNewCreation As String, sPathError3 As String
25Public sNoDirCreation As String
26Public sProgressMoreDocs As String, sProgressMoreTemplates as String
27Public sFileExists As String, sMorePathsError3 As String
28Public sConvertError1 As String, sConvertError2 As String, sPathDialogMessage As String
29Public sRTErrorDesc As String, sRTErrorHeader As String
30Public sProgressPage_1 As String, sProgressPage_2 As String, sProgressPage_3 as String
31Public sProgressFound as String, sProgresspage_5 as String
32Public sContainerName(1) as String
33Public sReady as String, sTitle as String
34Public sCloseButton as String
35Public sSourceDocuments as String
36Public sTargetDocuments as String
37Public sSumSODocuments(4) as String
38Public sSumSOTemplates(4) as String
39Public sSumMSDocuments(3) as String
40Public sSumMSTemplates(3) as String
41Public ModuleList(3) as String
42Public sLogSummary as String
43Public sReeditMacro as String
44Public sOverwriteallFiles as String
45Public scouldnotopenDocument as String
46Public sCurcouldnotopenDocument as String
47Public scouldnotsaveDocument as String
48Public sCurcouldnotsaveDocument as String
49
50
51Sub 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
145End Sub
146
147
148Sub GetApplResourceArray(StartResIndex as Integer, Count as Integer, BigArray())
149Dim i as Integer
150Dim 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
156End Sub
157</script:module>