OpenOffice.org BASIC Guide - OpenOffice.org wiki

The lines are dark gray (Color) and are spaced is 0.2 millimeters (Distance) apart.
Bitmaps
The Structure of Drawings
To use bitmap projection as a fill, you must set the FillStyle property to BITMAP. If the bitmap is already
available in OpenOffice.org, you just need to specify its name in the FillBitMapName property and its display
style (simple, tiled, or elongated) in the FillBitmapMode property (default values in accordance with
com.sun.star.drawing.BitmapMode).
If you want to use an external bitmap file, you can specify its URL in the FillBitmapURL property.
The following example creates a rectangle and tiles the Sky bitmap that is available in OpenOffice.org to fill the
area of the rectangle:
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
RectangleShape.Position = Point
RectangleShape.FillStyle = com.sun.star.drawing.FillStyle.BITMAP
RectangleShape.FillBitmapName = "Sky"
RectangleShape.FillBitmapMode = com.sun.star.drawing.BitmapMode.REPEAT
Page.add(RectangleShape)
Transparency
You can adjust the transparency of any fill that you apply. The simplest way to change the transparency of a
drawing element is to use the FillTransparence property.
The following example creates a red rectangle with a transparency of 50 percent.
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
RectangleShape.Position = Point
RectangleShape.FillStyle = com.sun.star.drawing.FillStyle.SOLID
RectangleShape.FillTransparence = 50
RectangleShape.FillColor = RGB(255,0,0)
Page.add(RectangleShape)
To make the fill transparent, set the FillTransparence property to 100.
Chapter 8 · Drawings and Presentations 117