home *** CD-ROM | disk | FTP | other *** search
/ PC World 2003 April / PCWorld_2003-04_cd.bin / Software / Komercni / openoffice / f_0217 / Language.xba < prev    next >
Extensible Markup Language  |  2001-08-15  |  1KB  |  36 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.  
  6. Sub LoadLanguage()
  7.     If InitResources("WebWizard","wwz") Then
  8.         With DialogModel
  9.             .cbHelp.Label = GetResText(1000)
  10.             .Title = GetResText(1001)
  11.             .cbCancel.Label = GetResText(1002)
  12.             .cbGoOn.Label = GetResText(1003)
  13.             .lblTemplate.Label = GetResText(1004)
  14.             .lblStyle.Label = GetResText(1005)
  15.             .hlnBackground.Label = GetResText(1006)
  16.             .optTiled.Label = GetRestext(1007)
  17.             .optArea.Label = GetResText(1008)
  18.             .chkSaveasTemplate.Label = GetResText(1010)
  19.         End With
  20.         WebWiz_gErrContentNotFound = GetResText(1101)
  21.         WebWiz_gErrStyleNotFound = GetResText(1102)
  22.         WebWiz_gErrMainTemplateError = GetResText(1103)
  23.         WebWiz_gErrWhileReloading = GetResText(1104)
  24.         WebWiz_gErrWhileLoadStyles = GetResText(1105)
  25.         WebWiz_gErrMainDocumentError = GetResText(1106)
  26.         WebWiz_gErrMsg = GetResText(1107)
  27.     End If
  28. End Sub
  29.  
  30.  
  31. Sub GetPaths
  32.     TextureDir = GetOfficeSubPath("Gallery", "www-back/")
  33.     GraphicsDir = GetOfficeSubPath("Gallery", "www-graf/")
  34.     BulletDir = GetOfficeSubPath("Gallery", "bullets/")
  35.     PhotosDir = GetPathSettings("Gallery", False, 1)
  36. End Sub</script:module>