Bonsoir,
Le 26/04/07, Didier Dorange-Pattoret <ddor...@dmaths.com> a écrit :
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.
Est -ce le comportement normal ça ou le comportement anormal ?
Personnellement sous OOo2.2fr et OOo2.3dev j'obtiens ce qui est joint.
Yves
Tout se passe bien avec OOo2.2 sous win ou OOo2.1 sous linux.
2 messages in org.openoffice.fr.progRe: [prog] Un bug dans OOo2.2 sous Li...
