xref: /trunk/main/wizards/source/webwizard/Common.xba (revision 66b843ff8f1eedd2e69941f1ea52fa080f01ec28)

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<!--***********************************************************
 *
 * 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
 *
 * Unless required by applicable law or agreed to in writing,
 * software distributed under the License is distributed on an
 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
 * KIND, either express or implied.  See the License for the
 * specific language governing permissions and limitations
 * under the License.
 *
 ***********************************************************-->
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Common" script:language="StarBasic">REM  *****  BASIC  *****
Option Explicit


Function LoadNewStyles(oDocument as Object, oDialogModel as Object, CurIndex as Integer, SourceFile as String, Styles() as String, TextureDir as String) as Boolean
Dim BackGroundURL as String
Dim oBackGraph as Object
Dim i, BackColor as Long
Dim bLocWithBackGraphic as Boolean
Dim oFamilies as Object, oFamily as Object&apos;, oStyle as Object
Dim StylesOptions(0) as New com.sun.star.beans.PropertyValue

    If SourceFile &lt;&gt; &quot;&quot; Then
        StylesOptions(0).Name = &quot;OverwriteStyles&quot;
        StylesOptions(0).Value = True
        oDocument.StyleFamilies.LoadStylesFromURL(SourceFile, StylesOptions())
    End If

    &apos; Read array fields for background, bullet &amp; graphics
    BackgroundURL = Styles(CurIndex, 7)
    If Left(BackgroundURL, 1) &lt;&gt; &quot;#&quot; Then
        BackgroundURL = TextureDir + BackgroundURL
        bLocWithBackGraphic = True
    Else
        BackColor = clng(&quot;&amp;H&quot; &amp; Right(BackgroundURL, Len(BackgroundURL)-1))
        bLocWithBackGraphic = False
    End If
    oFamilies = oDocument.StyleFamilies
    oFamily = oFamilies.GetbyName(&quot;PageStyles&quot;)
    For i = 0 To oFamily.Count - 1
        If oFamily.GetByIndex(i).IsInUse Then
            oStyle = oFamily.GetbyIndex(i)
            If oStyle.PropertySetInfo.HasPropertybyName(&quot;BackGraphicURL&quot;) Then
                If Left(BackgroundURL, 1) = &quot;#&quot; Then
                    oStyle.BackGraphicURL = &quot;&quot;
                    oStyle.BackColor = BackColor
                    oStyle.BackTransparent = False
                Else
                    oStyle.BackGraphicUrl = BackGroundURL
                    SetTileBackgroundorNot(oDialogModel, oStyle)
                End If
                Exit For
            End If
        End If
    Next i
    LoadNewStyles() = bLocWithBackGraphic
ErrorOcurred:
    If Err &lt;&gt; 0 Then
        MsgBox (WebWiz_gErrWhileLoadStyles$, 16, WebWiz_gWizardName$)
        RESUME EXITSUB
EXITSUB:
    End If
End Function



Sub ChangeBackGraphicUrl(SavePath as String)
Dim oPageFamily as Object
Dim i as Integer
    oPageFamily = oBaseDocument.StyleFamilies.GetbyName(&quot;PageStyles&quot;)
    For i = 0 To oPageFamily.Count - 1
        If oPageFamily.GetByIndex(i).IsInUse Then
            oStyle = oPageFamily.GetbyIndex(i)
            If oStyle.PropertySetInfo.HasPropertybyName(&quot;BackGraphicURL&quot;) Then
                If oStyle.BackGraphicUrl &lt;&gt; &quot;&quot; Then
                    oStyle.BackGraphicUrl = CopyFile(oStyle.BackGraphicUrl, SavePath)
                    Exit Sub
                End If
            End If
        End If
    Next i
End Sub


Sub SetBackGraphicStyle(oEvent as Object)
Dim oFamilies as Object
Dim oFamily as Object
Dim i as Integer
Dim oOptModel as Object
Dim iBackgroundValue as Integer
Dim oLocDocument as Object
    ooptModel = oEvent.Source.Model
    iBackgroundValue = Val(ooptModel.Tag)
    oLocDocument = StarDesktop.ActiveFrame.Controller.Model
    oLocDocument.LockControllers
    oFamilies = oLocDocument.StyleFamilies
    oFamily = oFamilies.GetbyName(&quot;PageStyles&quot;)
    For i = 0 To oFamily.Count - 1
        If oFamily.GetByIndex(i).IsInUse Then
            oStyle = oFamily.GetbyIndex(i)
            If oStyle.PropertySetInfo.HasPropertybyName(&quot;BackGraphicURL&quot;) Then
                oStyle.BackGraphicLocation = iBackgroundValue
            End If
        End If
    Next i
    oLocDocument.UnlockControllers
End Sub


Sub SetTileBackgroundorNot(DialogModel as Object, oStyle as Object)
    If Not IsNull(DialogModel) Then
        If DialogModel.optTiled.State = 1 Then
            oStyle.BackGraphicLocation = com.sun.star.style.GraphicLocation.TILED
        Else
            oStyle.BackGraphicLocation = com.sun.star.style.GraphicLocation.AREA
        End If
    End If
End Sub


Sub ToggleOptionButtons(DialogModel as Object, bDoEnable as Integer)
    If Not IsNull(DialogModel) Then
        DialogModel.optTiled.Enabled = bDoEnable
        DialogModel.optArea.Enabled = bDoEnable
        DialogModel.hlnBackground.Enabled = bDoEnable
    End If
End Sub


Function GetCurIndex(oListbox as Object, sList() as String, FileIndex as Integer)
Dim i as Integer
Dim n as Integer
Dim SelValue as String
Dim MaxIndex as Integer
    If IsNull(oListBox) Then
        &apos; Startup for WebWizard
        SelValue = sList(0,1)
    Else
        n = oListbox.SelectedItems(0)
        SelValue = oListbox.StringItemList(n)
    End If
    &apos; Find field index for chosen list entry
    MaxIndex = Ubound(sList)
    For i = 0 To MaxIndex
        If sList(i,1) = SelValue Then
            FileStr = sList(i, FileIndex)
            Exit For
        End If
    Next
    GetCurIndex = i
End Function

</script:module>