1<?xml version="1.0" encoding="UTF-8"?>
2<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
3<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sd_SdXShape" script:language="StarBasic">
4
5
6'*************************************************************************
7'
8' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
9'
10' Copyright 2000, 2010 Oracle and/or its affiliates.
11'
12' OpenOffice.org - a multi-platform office productivity suite
13'
14' This file is part of OpenOffice.org.
15'
16' OpenOffice.org is free software: you can redistribute it and/or modify
17' it under the terms of the GNU Lesser General Public License version 3
18' only, as published by the Free Software Foundation.
19'
20' OpenOffice.org is distributed in the hope that it will be useful,
21' but WITHOUT ANY WARRANTY; without even the implied warranty of
22' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
23' GNU Lesser General Public License version 3 for more details
24' (a copy is included in the LICENSE file that accompanied this code).
25'
26' You should have received a copy of the GNU Lesser General Public License
27' version 3 along with OpenOffice.org.  If not, see
28' <http://www.openoffice.org/license.html>
29' for a copy of the LGPLv3 License.
30'
31'*************************************************************************
32'*************************************************************************
33
34
35
36' Be sure that all variables are dimensioned:
37option explicit
38
39
40' REQUIRED VARIABLES for interface/service tests:
41
42'Required for com.sun.star.lang.XComponent
43Global oComponentInstance as Object
44
45
46Sub CreateObj()
47
48'*************************************************************************
49' COMPONENT:
50' sd.SdXShape
51'*************************************************************************
52On Error Goto ErrHndl
53    Dim oDrawPage As Object
54    Dim oDrawPages As Object
55    Dim oCollection As Object
56
57    oDoc = utils.createDocument("sdraw", cObjectName)
58
59    oDrawPages = oDoc.DrawPages
60    oDrawPage = oDrawPages.getByIndex(0)
61    addShape(oDrawPage, 1000, 1000)
62    addShape(oDrawPage, 5000, 5000)
63    oCollection = oDrawPage
64    oObj = oDrawPage.getByIndex(0)
65    oComponentInstance = oDrawPage.getByIndex(1)
66
67
68    Dim oLayerManager As Object
69    Dim nLayer As Integer
70    Dim oLayer As Object
71
72    oLayerManager = oDoc.LayerManager
73    nLayer = oLayerManager.Count
74    oLayer = oLayerManager.insertNewByIndex(nLayer)
75    oLayer.Name = "Test"
76    oLayerManager.attachShapeToLayer(oObj, oLayer)
77
78Exit Sub
79ErrHndl:
80    Test.Exception()
81End Sub
82
83Sub AddShape(oPage as Object, nPosX as Integer, nPosY as Integer)
84    Dim aPoint As New com.sun.star.awt.Point
85    Dim aSize As New com.sun.star.awt.Size
86    Dim oRectangleShape As Object
87
88    aPoint.x = nPosX
89    aPoint.y = nPosY
90    aSize.Width = 10000
91    aSize.Height = 10000
92    oRectangleShape = oDoc.createInstance("com.sun.star.drawing.RectangleShape")
93    oRectangleShape.Size = aSize
94    oRectangleShape.Position = aPoint
95    oRectangleShape.FillColor = RGB(255, 0, 0)
96    oPage.add(oRectangleShape)
97End Sub
98</script:module>
99