Bonjour à tous,
/Sub LigneBrisee()
Dim monDocument As Object, maPage As Object
Dim maForme As Object
Dim lesPoints(4) As New com.sun.star.awt.Point
monDocument = thisComponent
maPage = monDocument.DrawPage
maForme = monDocument.createInstance("com.sun.star.drawing.PolyLineShape")
maforme.AnchorType = com.sun.star.text.TextContentAnchorType.AT_PAGE
lesPoints(0).X = 4000 : lesPoints(0).Y = 2000
lesPoints(1).X = 4500 : lesPoints(1).Y = 4000
lesPoints(2).X = 2500 : lesPoints(2).Y = 3000
lesPoints(3).X = 2500 : lesPoints(3).Y = 4000
lesPoints(4).X = 4000 : lesPoints(4).Y = 4000
maPage.add(maForme)
maForme.LineWidth = 80
maForme.PolyPolygon = Array(lesPoints())
End Sub
/Le code ci-dessus crée dans un document writer une ligne brisée. /
/Print maForme.HoriOrientPosition donne un résultat surprenant.
Le dessin créé est "collé" à gauche de la page.
Tout se passe bien avec OOo2.2 sous win ou OOo2.1 sous linux.
Je suspecte donc un bug de OOo2.2 sous Linux.
Pouvez-vous confirmer.
Que dois-je faire si le bug est confirmé ?
--
Didier Dorange-Pattoret
Tel : 06.85.23.38.31
http://www.dmaths.org
http://sesamath.net
S'inscrire à la liste de diffusion de dmaths: [EMAIL PROTECTED]
Ses archives : http://listes.dmaths.org/wws/arc/users
Les Forums : http://www.dmaths.org/forum/
Mailing List in english :
http://www.dmaths.org/documentation/doku.php?id=presentation:listdif
Le livre de référence pour OpenOffice.org2 :
http://www.amazon.fr/exec/obidos/ASIN/2212116381/dmaths-21
Programmation OpenOffice.org2 :
http://www.amazon.fr/exec/obidos/ASIN/2212117639/dmaths-21
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
