OpenOffice.org BASIC Guide - OpenOffice.org wiki

Page.add(LineShape)
Polypolygon Shapes
The Structure of Drawings
OpenOffice.org also supports complex polygonal shapes through the com.sun.star.drawing.PolyPolygonShape
service. Strictly speaking, a PolyPolygon is not a simple polygon but a multiple polygon. Several independent lists
containing corner points can therefore be specified and combined to form a complete object.
As with rectangle shapes, all the formatting properties of drawing objects are also provided for polypolygons:
Fill properties
com.sun.star.drawing.FillProperties
Line properties
com.sun.star.drawing.LineProperties
Text properties
com.sun.star.drawing.Text (with com.sun.star.style.CharacterProperties and
com.sun.star.style.ParagraphProperties)
Shadow properties
com.sun.star.drawing.ShadowProperties
The PolyPolygonShape service also has a property that lets you define the coordinates of a polygon:
PolyPolygon (Array) – field containing the coordinates of the polygon (double array with points of the
com.sun.star.awt.Point type)
The following example shows how you can define a triangle with the PolyPolygonShape service.
Dim Doc As Object
Dim Page As Object
Dim PolyPolygonShape As Object
Dim PolyPolygon As Variant
Dim Coordinates(2) As New com.sun.star.awt.Point
Doc = ThisComponent
Page = Doc.DrawPages(0)
PolyPolygonShape = Doc.createInstance("com.sun.star.drawing.PolyPolygonShape")
Page.add(PolyPolygonShape) ' Page.add must take place before the coordinates are set
Coordinates(0).x = 1000
Coordinates(1).x = 7500
Coordinates(2).x = 10000
Coordinates(0).y = 1000
Coordinates(1).y = 7500
Coordinates(2).y = 5000
PolyPolygonShape.PolyPolygon = Array(Coordinates())
Since the points of a polygon are defined as absolute values, you do not need to specify the size or the start
position of a polygon. Instead, you need to create an array of the points, package this array in a second array
(using the Array(Coordinates()) call), and then assign this array to the polygon. Before the corresponding call
can be made, the polygon must be inserted into the document.
The double array in the definition allows you to create complex shapes by merging several polygons. For example,
you can create a rectangle and then insert another rectangle inside it to create a hole in the original rectangle:
Dim Doc As Object
Dim Page As Object
Dim PolyPolygonShape As Object
Dim PolyPolygon As Variant
Dim Square1(3) As New com.sun.star.awt.Point
Dim Square2(3) As New com.sun.star.awt.Point
Dim Square3(3) As New com.sun.star.awt.Point
Doc = ThisComponent
Page = Doc.DrawPages(0)
PolyPolygonShape = Doc.createInstance("com.sun.star.drawing.PolyPolygonShape")
Chapter 8 · Drawings and Presentations 123