Arra tekintettel, hogy melyik terület jelenti a kitöltött részt, és melyik terület a lyukat, a StarOffice egy egyszerű szabályt alkalmaz: a külső alakzat körvonala mindig a poligon külső kerete. A következő vonal befelé az alakzat belső kerete, és jelzi a lyuk kezdetét. Ha még egy vonal van befelé, akkor az ismét egy lyuk kezdete.

Képek

A legutoljára bemutatott rajzelemek a képobjektumok, amelyek a com.sun.star.drawing.GraphicObjectShape szolgáltatáson alapulnak. Ezek bármilyen képpel használhatók a StarOffice programban, amelyek megjelenése számos tulajdonsággal módosítható.

A képobjektumok az általános formázótulajdonságok közül kettőt támogatnak:

• Szövegtulajdonságok - com.sun.star.drawing.Text (a com.sun.star.style.CharacterProperties és a com.sun.star.style.ParagraphProperties szolgáltatással)

• Árnyéktulajdonságok - com.sun.star.drawing.ShadowProperties

A képobjektumok által támogatott egyéb tulajdonságok:

• GraphicURL (karakterlánc) - a kép URL-je.

• AdjustLuminance (rövid egész) - színek fényereje százalékban (negatív értékek is megadhatók).

• AdjustContrast (rövid egész) - színek kontrasztja százalékban (negatív értékek is megadhatók).

• AdjustRed (rövid egész) - piros szín százalékban (negatív értékek is megadhatók).

• AdjustGreen (rövid egész) - zöld szín százalékban (negatív értékek is megadhatók).

• AdjustBlue (rövid egész) - kék szín százalékban (negatív értékek is megadhatók).

• Gamma (rövid egész) - kép gammaértéke.

• Transparency (rövid egész) - kép átlátszósága százalékban.

• GraphicColorMode (enumeráció) - színmód, például normál, szürkeárnyalatok, fekete-fehér (alapértelmezett érték a com.sun.star.drawing.ColorMode tulajdonságnak megfelelően.)

A következő példa bemutatja, hogyan szúrható be egy oldal egy képobjektumba. Dim Doc As Object

Dim Page As Object

Dim GraphicObjectShape As Object

Dim Point As New com.sun.star.awt.Point

Dim Size As New com.sun.star.awt.Size



Point.x = 1000         ' specifikációk, nem számít a tartalmuk, mert

                       a koordináták később vannak összekapcsolva

Point.y = 1000

Size.Width = 10000

Size.Height = 10000



Doc = StarDesktop.CurrentComponent

Page = Doc.drawPages(0)



GraphicObjectShape = Doc.createInstance("com.sun.star.drawing.GraphicObjectShape")



GraphicObjectShape.Size = Size

GraphicObjectShape.Position = Point



GraphicObjectShape.GraphicURL = "file:///c:/test.jpg"

GraphicObjectShape.AdjustBlue = -50

GraphicObjectShape.AdjustGreen = 5

GraphicObjectShape.AdjustBlue = 10

GraphicObjectShape.AdjustContrast = 20

GraphicObjectShape.AdjustLuminance = 50

GraphicObjectShape.Transparency = 40

GraphicObjectShape.GraphicColorMode = com.sun.star.drawing.ColorMode.STANDARD



Page.add(GraphicObjectShape)

A kód beszúrja a test.jpg képet, és beállítja a megjelenését az Adjust tulajdonságokkal. Ebben a példában a kép 40 százalékos átlátszósággal jelenik meg, és nincs más színkonverzió (GraphicColorMode = STANDARD).