[de-users] LO Makro Draw Problem GluePoint definieren

Mir gelingt es nicht, in LO Draw (5.3 - 5.4, openSUSE, Windows 10) einen 
nutzerdefinierten GluePoint für Verbinder korrekt zu setzen. Ich bitte 
darum, das zu testen. Vielleicht ist es ein Problem vor der Tastatur 
oder bei LO.

Der folgende Code funktioniert in AOO (3.. bis 4.1.4).

Das Makro erzeugt ein neues Draw-Dokument und versucht, StartGluePoints 
mittig in Rechtecke zu setzen. Stattdessen starten die Verbinder jeweils 
an der rechten unteren Ecke. Bei AOO starten sie brav in der Mitte.

Sub DrawConnector()
  Dim oDoc, oPage, oRect(2), oConn, oGlue
  Dim oSize As New com.sun.star.awt.Size
  Dim oPos As New com.sun.star.awt.Point
  Dim i%

  oDoc = StarDesktop.loadComponentFromUrl("private:factory/sdraw", 
"_blank", 0, Array())

  oPage = oDoc.DrawPages.getByIndex(0)
  oSize.Width = 1500
  oSize.Height = 1000
  For i = 0 To 2
    oRect(i) = oDoc.createInstance("com.sun.star.drawing.RectangleShape")
    oPage.add(oRect(i))
    oRect(i).Size = oSize
  Next
  For i = 0 To 2
    oPos.X = (i + 1) * 4000
    oPos.Y = 2000 + ((i + 1) Mod 3) * 2000
    oRect(i).Position = oPos
    oConn = oDoc.createInstance("com.sun.star.drawing.ConnectorShape")
    oPage.add(oConn)
    oConn.StartShape = oRect(i)
    oConn.EndShape = oRect((i + 1) Mod 3)
    oConn.EdgeKind = com.sun.star.drawing.ConnectorType.STANDARD

    oGlue = CreateUnoStruct("com.sun.star.drawing.GluePoint2")
    oGlue.IsRelative = False
    oGlue.Escape = com.sun.star.drawing.EscapeDirection.SMART
    oGlue.PositionAlignment = com.sun.star.drawing.Alignment.CENTER
    oGlue.IsUserDefined = True
    oGlue.Position.X = oRect(i).Position.X + 750
    oGlue.Position.Y = oRect(i).Position.Y + 500
    oConn.StartGluePointIndex = oRect(i).GluePoints.insert(oGlue)
  Next
End Sub

Schöne Grüße
Volker

--
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert