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 Sub GetPaths TextureDir = GetOfficeSubPath("Gallery", "www-back/") GraphicsDir = GetOfficeSubPath("Gallery", "www-graf/") BulletDir = GetOfficeSubPath("Gallery", "bullets/") PhotosDir = GetPathSettings("Gallery", False, 1) End Sub Sub OpenWebDialog() Dim SOBitmapPath,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() SOBitmapPath = GetOfficeSubPath("Template", "wizard/bitmap") sBitmapPath = SOBitmapPath & "webwizard.bmp" DialogModel.ImagePreview.ImageURL = sBitmapPath ToggleOptionButtons(DialogModel, bWithBackGraphic) MainDialog.GetControl("lbTemplate").SetFocus() DialogModel.cbGoOn.DefaultButton = True End Sub