OpenOffice.org BASIC Guide - OpenOffice.org wiki

The Structure of Drawings
The following example creates and inserts a rectangle in a drawing document:
Dim Doc As Object
Dim Page As Object
Dim RectangleShape As Object
Dim Point As New com.sun.star.awt.Point
Dim Size As New com.sun.star.awt.Size
Doc = ThisComponent
Page = Doc.DrawPages(0)
Point.x = 1000
Point.y = 1000
Size.Width = 10000
Size.Height = 10000
RectangleShape = Doc.createInstance("com.sun.star.drawing.RectangleShape")
RectangleShape.Size = Size
RectangleShape.Position = Point
Page.add(RectangleShape)
The Point and Size structures with the point of origin (left hand corner) and the size of the drawing object are
then initialized. The lengths are specified in hundredths of a millimeter.
The program code then uses the Doc.createInstance call to create the rectangle drawing object as specified by
the com.sun.star.drawing.RectangleShape service. At the end, the drawing object is assigned to a page using a
Page.add call.
Fill Properties
This section describes four services and in each instance the sample program code uses a rectangle shape element
that combines several types of formatting. Fill properties are combined in the com.sun.star.drawing.FillProperties
service.
OpenOffice.org recognizes four main types of formatting for a fill area. The simplest variant is a single-color fill.
The options for defining color gradients and hatches let you create other colors into play. The fourth variant is the
option of projecting existing graphics into the fill area.
The fill mode of a drawing object is defined using the FillStyle property. The permissible values are defined in
com.sun.star.drawing.FillStyle.
Single Color Fills
The main property for single-color fills is:
FillColor (Long)
fill color of area
To use the fill mode, you must the FillStyle property to the SOLID fill mode.
The following example creates a rectangle shape and fills it with red (RGB value 255, 0, 0):
Dim Doc As Object
Dim Page As Object
Dim RectangleShape As Object
Dim Point As New com.sun.star.awt.Point
Dim Size As New com.sun.star.awt.Size
Point.x = 1000
Point.y = 1000
Size.Width = 10000
Size.Height = 10000
Doc = ThisComponent
Page = Doc.DrawPages(0)
RectangleShape = Doc.createInstance("com.sun.star.drawing.RectangleShape")
RectangleShape.Size = Size
114 OpenOffice.org 3.2 BASIC Guide · March 2010