forked from amazingfate/loongoffice
63c508e3e8
118568: switch to using ucpp
Patch contributed by Juergen Schmidt
http://svn.apache.org/viewvc?view=revision&revision=1209396
101 lines
3.7 KiB
XML
101 lines
3.7 KiB
XML
<?xml version="1.0" encoding="UTF-8"?>
|
|
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
|
|
<!--
|
|
* This file is part of the LibreOffice project.
|
|
*
|
|
* This Source Code Form is subject to the terms of the Mozilla Public
|
|
* License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
* file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
*
|
|
* This file incorporates work covered by the following license notice:
|
|
*
|
|
* Licensed to the Apache Software Foundation (ASF) under one or more
|
|
* contributor license agreements. See the NOTICE file distributed
|
|
* with this work for additional information regarding copyright
|
|
* ownership. The ASF licenses this file to you under the Apache
|
|
* License, Version 2.0 (the "License"); you may not use this file
|
|
* except in compliance with the License. You may obtain a copy of
|
|
* the License at http://www.apache.org/licenses/LICENSE-2.0 .
|
|
-->
|
|
<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> |