Vonaltulajdonságok

Minden rajzobjektum, amelynek lehet kerete, támogatja a com.sun.star.drawing.LineStyle szolgáltatást. Néhány tulajdonság, amelyet a szolgáltatás biztosít:

• LineStyle (enumeráció) - vonal típusa (alapértelmezett értékek a com.sun.star.drawing.LineStyle tulajdonságnak megfelelően).

• LineColor (hosszú egész) - a vonal színe.

• LineTransparence (rövid egész) - a vonal átlátszósága.

• LineWidth (hosszú egész) a vonal vastagsága századmilliméterben.

• LineJoint (enumeráció) - az összekötési pontok átmenete (alapértelmezett értékek a com.sun.star.drawing.LineJoint tulajdonságnak megfelelően).

A következő példa létrehoz egy négyszöget sima kerettel (LineStyle = SOLID), amely 5 milliméter vastag (LineWidth), és 50 százalékban átlátszó. A keret vonalának bal és jobb széle túlnyúlik a metszéspontjukon (LineJoint = MITER), így egy derékszöget képeznek.

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.LineColor = RGB(128,128,128)

RectangleShape.LineTransparence = 50

RectangleShape.LineWidth = 500

RectangleShape.LineJoint = com.sun.star.drawing.LineJoint.MITER   



RectangleShape.LineStyle = com.sun.star.drawing.LineStyle.SOLID



Page.add(RectangleShape)

A felsorolt tulajdonságokon felül a com.sun.star.drawing.LineStyle szolgáltatás lehetővé teszi pontozott és szaggatott vonal létrehozását is. További információkért lásd: StarOffice API-referencia.

Szövegtulajdonságok (rajzobjektumok)

A com.sun.star.style.CharacterProperties és a com.sun.star.style.ParagraphProperties szolgáltatással formázható a szöveg a rajzobjektumokban. Ezek a szolgáltatások az egyes karakterekre és bekezdésekre vonatkoznak, és részletes információt a 6. fejezetben (Szöveges dokumentumok) találhatunk róluk.

A következő példa szöveget szúr be egy négyszögbe, és formázza a betűtípusát a com.sun.star.style.CharacterProperties szolgáltatással.

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



Page.add(RectangleShape)



RectangleShape.String = "Ez egy teszt."

RectangleShape.CharWeight = com.sun.star.awt.FontWeight.BOLD

RectangleShape.CharFontName = "Arial"

A program a négyszög String tulajdonságával szúrja be a szöveget, és a com.sun.star.style.CharacterProperties szolgáltatás CharWeight, illetve CharFontName tulajdonságával formázza a szöveg betűtípusát.