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="svx_SvxShapeGroup" script:language="StarBasic"> 4 5 6 '************************************************************************* 7 ' 8 ' Licensed to the Apache Software Foundation (ASF) under one 9 ' or more contributor license agreements. See the NOTICE file 10 ' distributed with this work for additional information 11 ' regarding copyright ownership. The ASF licenses this file 12 ' to you under the Apache License, Version 2.0 (the 13 ' "License"); you may not use this file except in compliance 14 ' with the License. You may obtain a copy of the License at 15 ' 16 ' http://www.apache.org/licenses/LICENSE-2.0 17 ' 18 ' Unless required by applicable law or agreed to in writing, 19 ' software distributed under the License is distributed on an 20 ' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 21 ' KIND, either express or implied. See the License for the 22 ' specific language governing permissions and limitations 23 ' under the License. 24 ' 25 '************************************************************************* 26 27 28 29 30 31 ' Be sure that all variables are dimensioned: 32 option explicit 33 34 35 ' REQUIRED VARIABLES for interface/service tests: 36 37 ' Requiered for com.sun.star.drawing.XShapes 38 Global oXShapeInstance As Object 'to add/remove 39 40 ' Requiered for com.sun.star.lang.XComponent 41 Global oComponentInstance As Object ' it will be disposed 42 43 ' Requiered for com.sun.star.drawing.XShapeDescriptor 44 Global cShapeType As String 45 46 47 Sub CreateObj() 48 49 '************************************************************************* 50 ' COMPONENT: 51 ' svx.SvxShapeGroup 52 '************************************************************************* 53 On Error Goto ErrHndl 54 Dim bOK As Boolean 55 Dim oInstance As Object, oDP As Object 56 57 bOK = true 58 59 oDoc = utils.createDocument("sdraw", cObjectName) 60 61 oDP = oDoc.DrawPages(0) 62 oInstance = CreateShape(1000, 2000, 4000, 3000, "LineShape") 63 oDP.add(oInstance) 64 65 oInstance = CreateShape(1000, 2000, 3000, 4000, "LineShape") 66 oDP.add(oInstance) 67 68 oObj = oDP.group(oDP) 69 70 oXShapeInstance = CreateShape(1000, 6000, 4000, 3000, "EllipseShape") 71 oDP.add(oXShapeInstance) 72 73 oComponentInstance = CreateShape(10000, 5000, 6000, 4000, "RectangleShape") 74 oDP.add(oComponentInstance) 75 76 cShapeType = "com.sun.star.drawing.GroupShape" 77 Exit Sub 78 ErrHndl: 79 Test.Exception() 80 End Sub 81 82 Function CreateShape(x As Integer, y As Integer, width As Integer, height As Integer, kind As String) 83 Dim oShape As Object 84 Dim pos As new com.sun.star.awt.Point 85 Dim size As new com.sun.star.awt.Size 86 87 oShape = oDoc.createInstance("com.sun.star.drawing." + kind) 88 pos.X = x 89 pos.Y = y 90 oShape.setPosition(pos) 91 size.Width = width 92 size.Height = height 93 oShape.setSize(size) 94 95 CreateShape = oShape 96 End Function 97 </script:module> 98