Apache OpenOffice (AOO) Bugzilla – Issue 76752
Bug with polylineshape with OOo2.2 under linux
Last modified: 2017-05-20 11:28:10 UTC
Hello, I found a bug in OOo2.2 (under Linux only) <code> 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 </code> In a swriter document I get a stuck shape at the left border of the page. I can't change its position using the mouse. Print maForme.HoriOrientPosition gives a surprising result : -29822752 instead of 0 or 2000. I'm dmaths developper (www.dmaths.org) For me it's a big problem, because we can't plot curves under linux with OOo2.2. Thanks for your answer.
jsc -> os: after a short discussion with sj, we think it's more a writer issue. Can you check it or can you assign it to the appropriate developer
Hello everybody. Is that issue assigned to the right people ?
Target set to OOo 2.x To workaround the problem put the following lines at the end of your macro: maForme.VertOrientRelation = 7 'relative to page area maForme.HoriOrientRelation = 7 'relative to page area maForme.VertOrientPosition = 0 maForme.HoriOrientPosition = 0 BTW I'd also propose not to use page anchored objects para paragraph anchored objects.
Hello, I'm sorry but I can't put the shape at the right. For example I can't plot curves. Try this addon : http://ddorange.free.fr/DmathsAddon.oxt The plotting curves works perfectly with all OOo under windows and with OOo<=2.1 under Linux. Thanks for all.
Reassigned to od
Hello, what can I do now ? The following code works under windows and do'nt underlinux. It's now impossible to insert PolylineShape. We cannot plot curves with dmaths ... <code> 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 monTexte = monDocument.Text monCurseur = monTexte.createTextCursor maPage = monDocument.DrawPage maForme = monDocument.createInstance("com.sun.star.drawing.PolyLineShape") maForme.AnchorType = com.sun.star.text.TextContentAnchorType.AT_PAGE lesPoints(0).X = 2100 : lesPoints(0).Y = 2100 lesPoints(1).X = 4500 : lesPoints(1).Y = 4000 lesPoints(2).X = 2200 : lesPoints(2).Y = 3000 lesPoints(3).X = 2500 : lesPoints(3).Y = 4000 lesPoints(4).X = 4000 : lesPoints(4).Y = 4000 monTexte.insertTextContent(monCurseur, maForme, false) maForme.LineWidth = 80 maForme.PolyPolygon = Array(lesPoints()) Print maForme.VertOrientPosition maForme.VertOrientRelation = 0 'relative to page area maForme.HoriOrientRelation = 0 'relative to page area Print maForme.HoriOrientPosition maForme2 = monDocument.createInstance("com.sun.star.drawing.PolyLineShape") maForme2.AnchorType = com.sun.star.text.TextContentAnchorType.AT_PAGE lesPoints(0).X = 2000 : lesPoints(0).Y = 2000 lesPoints(1).X = 3000 : lesPoints(1).Y = 2500 lesPoints(2).X = 2500 : lesPoints(2).Y = 3000 lesPoints(3).X = 3000 : lesPoints(3).Y = 6000 lesPoints(4).X = 4000 : lesPoints(4).Y = 4000 monTexte.insertTextContent(monCurseur, maForme2, false) maForme2.LineWidth = 60 maForme2.PolyPolygon = Array(lesPoints()) Print maForme2.VertOrientPosition maForme2.VertOrientRelation = 0 'relative to page area maForme2.HoriOrientRelation = 0 'relative to page area Print maForme2.HoriOrientPosition End Sub </code>
I tested with Nov. 3rd ddorange's code and worked. Left anchored objects with polylines did appear, and were re-sizable. I am using OOo 2.3 in OpenSUSE 10.2. (sorry, but don't use OOo2.2 anymore)
First of all, you do not declare your variables. OK, it works fine, but it really bothers me... Does this version work for you? Sub LigneBrisee_new() Dim monDocument As Object, maPage As Object Dim maForme As Object Dim lesPoints(4) As New com.sun.star.awt.Point monDocument = thisComponent monTexte = monDocument.Text monCurseur = monTexte.createTextCursor maPage = monDocument.DrawPage maForme = monDocument.createInstance("com.sun.star.drawing.PolyLineShape") maForme.AnchorType = com.sun.star.text.TextContentAnchorType.AT_PAGE maForme.HoriOrientRelation = com.sun.star.text.RelOrientation.FRAME maForme.VertOrientRelation = com.sun.star.text.RelOrientation.FRAME lesPoints(0).X = 2100 : lesPoints(0).Y = 2100 lesPoints(1).X = 4500 : lesPoints(1).Y = 4000 lesPoints(2).X = 2200 : lesPoints(2).Y = 3000 lesPoints(3).X = 2500 : lesPoints(3).Y = 4000 lesPoints(4).X = 4000 : lesPoints(4).Y = 4000 monTexte.insertTextContent(monCurseur, maForme, false) maForme.LineWidth = 80 maForme.PolyPolygon = Array(lesPoints()) Print maForme.VertOrientPosition ' maForme.VertOrientRelation = 0 'relative to page area ' maForme.HoriOrientRelation = 0 'relative to page area Print maForme.HoriOrientPosition maForme2 = monDocument.createInstance("com.sun.star.drawing.PolyLineShape") maForme2.AnchorType = com.sun.star.text.TextContentAnchorType.AT_PAGE maForme2.HoriOrientRelation = com.sun.star.text.RelOrientation.FRAME maForme2.VertOrientRelation = com.sun.star.text.RelOrientation.FRAME lesPoints(0).X = 2000 : lesPoints(0).Y = 2000 lesPoints(1).X = 3000 : lesPoints(1).Y = 2500 lesPoints(2).X = 2500 : lesPoints(2).Y = 3000 lesPoints(3).X = 3000 : lesPoints(3).Y = 6000 lesPoints(4).X = 4000 : lesPoints(4).Y = 4000 monTexte.insertTextContent(monCurseur, maForme2, false) maForme2.LineWidth = 60 maForme2.PolyPolygon = Array(lesPoints()) Print maForme2.VertOrientPosition ' maForme2.VertOrientRelation = 0 'relative to page area ' maForme2.HoriOrientRelation = 0 'relative to page area Print maForme2.HoriOrientPosition End Sub
OD->ddorange: "Target milestone" = OOo 2.3 does not make sense, because OOo 2.3 is already released. Thus, this version of OOo can not be changed. I've reset "Target milestone" back to "OOo 2.x"
Due to lack of resources retarget to OOo 3.0
Due to limited resources re-target to OOo 3.x
Reset assigne to the default "issues@openoffice.apache.org".