1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
<?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>
|