diff options
Diffstat (limited to 'wizards/source/webwizard/Language.xba')
-rw-r--r-- | wizards/source/webwizard/Language.xba | 84 |
1 files changed, 84 insertions, 0 deletions
diff --git a/wizards/source/webwizard/Language.xba b/wizards/source/webwizard/Language.xba new file mode 100644 index 000000000000..1aa26fac30cb --- /dev/null +++ b/wizards/source/webwizard/Language.xba @@ -0,0 +1,84 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Language" script:language="StarBasic">Option Explicit + + + + +Sub LoadLanguage() + If InitResources("WebWizard","wwz") Then + WebWiz_gErrContentNotFound = GetResText(1101) + WebWiz_gErrStyleNotFound = GetResText(1102) + WebWiz_gErrMainTemplateError = GetResText(1103) + WebWiz_gErrWhileReloading = GetResText(1104) + WebWiz_gErrWhileLoadStyles = GetResText(1105) + WebWiz_gErrMainDocumentError = GetResText(1106) + WebWiz_gErrMsg = GetResText(1107) + End If +End Sub + + +Function GetWebWizardPaths() as Boolean +Dim TemplatePath as String + TextureDir = GetOfficeSubPath("Gallery","www-back") + If TextureDir <> "" Then + GraphicsDir = GetOfficeSubPath("Gallery","www-graf/") + If GraphicsDir <> "" Then + BulletDir = GetOfficeSubPath("Gallery", "bullets/") + If BulletDir <> "" Then + PhotosDir = GetPathSettings("Gallery", False, 1) + If PhotosDir <> "" Then + TemplatePath = GetOfficeSubPath("Template", "wizard/web/") + If TemplatePath <> "" Then + SOBitmapPath = GetOfficeSubPath("Template", "wizard/bitmap") + If SOBitmapPath <> "" Then + GetWebwizardPaths() = True + Exit Function + End If + End If + End If + End If + End If + End If + DisposeDocument(oBaseDocument) + GetWebWizardPaths() = False +End Function + + + +Sub OpenWebDialog() + Dim sBitmapPath as String + Dim BufferNames() as String + Dim SelList(0) as Integer + SelList(0) = 0 + MainDialog = LoadDialog("WebWizard","WebWzrd") + DialogModel = MainDialog.Model + With DialogModel + .cbHelp.Label = GetResText(1000) + .Title = GetResText(1001) + .cbCancel.Label = GetResText(1002) + .cbGoOn.Label = GetResText(1003) + .lblTemplate.Label = GetResText(1004) + .lblStyle.Label = GetResText(1005) + .hlnBackground.Label = GetResText(1006) + .optTiled.Label = GetRestext(1007) + .optArea.Label = GetResText(1008) + .chkSaveasTemplate.Label = GetResText(1010) + End With + + BufferNames() = ArrayfromMultiArray(Layout, 1) + DialogModel.lbTemplate.StringItemList() = BufferNames() + DialogModel.lbTemplate.SelectedItems() = SelList() + + + BufferNames() = ArrayfromMultiArray(Style, 1) + DialogModel.lbStyles.StringItemList() = BufferNames() + DialogModel.lbStyles.SelectedItems() = SelList() + sBitmapPath = SOBitmapPath & "webwizard.bmp" + + DialogModel.ImagePreview.ImageURL = sBitmapPath + ToggleOptionButtons(DialogModel, bWithBackGraphic) + MainDialog.GetControl("lbTemplate").SetFocus() + DialogModel.cbGoOn.DefaultButton = True + DialogModel.ImagePreview.BackGroundColor = RGB(0,60,126) +End Sub</script:module>
\ No newline at end of file |