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