A program létrehoz egy egyszerű vonalkázási struktúrát (HatchStyle = SINGLE), amelynek vonalai 45 fokos szögben állnak (Angle). A vonalak sötétszürkék (Color), és egymástól 0,2 milliméterre vannak (Distance).

Bitképek

Ha kitöltésként egy bitképet akarunk használni, állítsuk a FillStyle tulajdonságot a BITMAP értékre. Ha a bitkép már szerepel a StarOffice programban, akkor csak meg kell adnia a nevét a FillBitMapName tulajdonságban, és a megjelenítési típusát (egyszerű, mozaik vagy nyújtott) a FillBitmapMode tulajdonságban (alapértelmezett értékek a com.sun.star.drawing.BitmapMode tulajdonság szerint).

Ha külső bitképfájlt akarunk használni, adjuk meg az URL-jét a FillBitmapURL tulajdonságban.

A következő példa létrehoz egy négyszöget, és kitölti a StarOffice programban megtalálható a Sky bitképpel mozaikkitöltés használatával:

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 = StarDesktop.CurrentComponent

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)

Átlátszóság

Minden kitöltés átlátszóságát beállíthatjuk. A legegyszerűbb módja egy rajzelem átlátszósága beállításának a FillTransparence tulajdonság használata.

A következő példa létrehoz egy piros négyszöget 50 százalékos átlátszósággal.

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 = StarDesktop.CurrentComponent

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)

Ha a kitöltést teljesen átlátszóvá akarjuk tenni, állítsuk a FillTransparence tulajdonságot 100 értékre.

A FillTransparence tulajdonságon felül a com.sun.star.drawing.FillProperties szolgáltatás a FillTransparenceGradient tulajdonságot is biztosítja. Ezzel a tulajdonsággal lehet megadni a kitöltési terület átlátszóságát szabályozó színátmenetet.