home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2002 #3 / K-CD-3-2002.ISO / OpenOffice / f_0243 / Language.xba < prev    next >
Encoding:
Extensible Markup Language  |  2001-07-12  |  5.0 KB  |  132 lines
  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.  
  5. Public sMSTemplateCheckbox(2) As String
  6. Public sMSDocumentCheckbox(2) As String
  7. Public sSODocumentCheckbox(4) As String
  8. Public sSOHelperdocuments(1) As String
  9. Public sTemplateCheckbox(SBMAXAPPLCOUNT-1) As String
  10. Public sDocumentCheckbox(SBMAXAPPLCOUNT-1) As String
  11. Public sTemplateGroupName As String
  12. Public sSearchInSubDir as String
  13. Public sPathErrorTemplates(SBMAXAPPLCOUNT-1) As String
  14. Public sPathErrorDocument(SBMAXAPPLCOUNT-1) As String
  15. Public sPathErrorStarDoc(SBMAXAPPLCOUNT-1) As String
  16. Public sStarDocLabel(SBMAXAPPLCOUNT-1) As String
  17. Public sImportLabel As String, sExportLabel As String
  18. Public SOApplicationName(5) As String
  19. Public sHelpButton As String, sCancelButton As String, sBackButton As String, sNextButton As String
  20. Public sSumInclusiveSubDir As String, sSumSaveDocuments As String
  21. Public sSummaryHeader As String
  22. Public sWelcometextLabel1 As String, sWelcometextLabel2 As String,  sWelcometextLabel3 As String
  23. Public sBeginButton As String, sMsgDirNotThere As String
  24. Public sQueryForNewCreation As String, sPathError3 As String
  25. Public sNoDirCreation As String
  26. Public sProgressMoreDocs As String, sProgressMoreTemplates as String
  27. Public sFileExists As String, sMorePathsError3 As String
  28. Public sConvertError1 As String, sConvertError2 As String, sPathDialogMessage As String
  29. Public sRTErrorDesc As String, sRTErrorHeader As String
  30. Public sProgressPage_1 As String, sProgressPage_2 As String, sProgressPage_3 as String
  31. Public sProgressFound as String, sProgresspage_5 as String
  32. Public sContainerName(1) as String
  33. Public sReady as String, sTitle as String
  34. Public sCloseButton as String
  35. Public sSourceDocuments as String
  36. Public sTargetDocuments as String
  37. Public sSumSODocuments(4) as String
  38. Public sSumSOTemplates(4) as String
  39. Public sSumMSDocuments(3) as String
  40. Public sSumMSTemplates(3) as String
  41.  
  42.  
  43. Sub LoadLanguage()
  44.     If InitResources("ImportWizard","imp") then
  45.         sHelpButton = GetResText(1000)
  46.         sCancelButton = GetResText(1001)
  47.         sBackButton = GetResText(1002)
  48.         sNextButton = GetResText(1003)
  49.         sBeginButton = GetResText(1004)
  50.         sCloseButton = GetResText(1005)
  51.         
  52.         sWelcometextLabel1 = ReplaceString(GetResText(1006), GetProductName(),"%PRODUCTNAME")
  53.         sWelcometextLabel2 = GetResText(1007)
  54.         sWelcometextLabel3 = GetResText(1008)
  55.  
  56.         ' Microsoft Documents
  57.         GetApplResourceArray(1009, 3, sMSTemplateCheckBox())
  58.  
  59.         ' DocumentCheckbox- Captions
  60.         GetApplResourceArray(1012, 3, sMSDocumentCheckBox())
  61.  
  62.         ' DocumentCheckbox- Captions
  63.         GetApplResourceArray(2013, 5, sSODocumentCheckBox())
  64.  
  65.         'StarOffice Applicationnames
  66.         GetApplResourceArray(2017,2, sSOHelperDocuments())        
  67.  
  68.         sContainerName(0) = GetResText(1030)
  69.  
  70.         sContainerName(1) = "StarOffice"
  71.     
  72.         sSummaryHeader = GetResText(1031)
  73.  
  74.         sTemplateGroupName = GetResText(1036)
  75.  
  76.         sProgressMoreDocs = GetResText(1041)
  77.         sProgressMoreTemplates = GetResText(1042)
  78.         sNoDirCreation = GetResText(1050)
  79.         sMsgDirNotThere = GetResText(1051)
  80.         sQueryForNewCreation = GetResText(1052)
  81.         sFileExists = GetResText(1053)
  82.         sMorePathsError3 = GetResText(1054)
  83.         sConvertError1 = GetResText(1055)
  84.         sConvertError2 = GetResText(1056)
  85.         sRTErrorDesc = GetResText(1057)
  86.         sRTErrorHeader = GetResText(1058)
  87.         sPathDialogMessage = GetResText(1080)
  88.         sTitle = GetResText(1081)
  89.  
  90.         sProgressPage_1 = GetResText(1090)
  91.         sProgressPage_2 = GetResText(1091)
  92.         sProgressPage_3 = GetResText(1092)
  93.         sProgressFound = GetResText(1093)
  94.         sProgressPage_5 = GetResText(1094)
  95.         sReady = GetResText(1100)
  96.         sSourceDocuments = GetResText(2030)
  97.         sTargetDocuments = GetResText(2031)
  98.         sSumInclusiveSubDir = GetResText(3000)
  99.         sSumSaveDocuments = GetResText(3001)
  100.         'StarOffice Applicationnames
  101.         GetApplResourceArray(3100, 4, sSumSODocuments())
  102.         GetApplResourceArray(3110, 4, sSumSOTemplates())
  103.         GetApplResourceArray(3200, 3, sSumMSDocuments())
  104.         GetApplResourceArray(3210, 3, sSumMSTemplates())
  105.         ImportDialogArea.Title = sTitle
  106.         With ImportDialog
  107.             sImportLabel = GetResText(1033) 
  108.             sExportLabel = GetResText(1034)    
  109.             sSearchInSubDir = GetResText(1022)
  110.             .TemplateSearchSubDir.Label = sSearchInSubDir
  111.             .DocumentImportLabel.Label = sImportLabel
  112.             .DocumentExportLabel.Label = sExportLabel
  113.             .DocumentSearchSubDir.Label = sSearchInSubDir
  114.             .TemplateImportLabel.Label = sImportLabel    
  115.             .TemplateExportLabel.Label = sExportLabel    
  116.             .chkLogfile.Label = GetResText(2032)    
  117.             .chkLogfile.Helptext = GetResText(2033)
  118.         End With        
  119.     End If
  120. End Sub
  121.  
  122.  
  123. Sub GetApplResourceArray(StartResIndex as Integer, Count as Integer, BigArray())
  124. Dim i as Integer
  125. Dim a as Integer
  126.     a = 0
  127.     For i = StartResIndex To StartResIndex + Count-1
  128.         BigArray(a) = GetResText(i)
  129.         a = a + 1
  130.     Next            
  131. End Sub
  132. </script:module>