HoriOrientRelation

Author: KlausBlum

extension/OOoLilyPond/OOoLilyPond.xba

@@ -768,6 +768,12 @@ Sub InsertOOoLilyPondObjectViaClipboard (sIdentifier As String, sNumber As Strin
 		oGraphic.TopMargin = 0
 		oGraphic.BottomMargin = 0
 		oGraphic.VertOrient = 0
+		oGraphic.HoriOrient = com.sun.star.text.HoriOrientation.NONE
+		if iAnchor = com.sun.star.text.TextContentAnchorType.AT_CHARACTER Then
+			oGraphic.HoriOrientRelation = com.sun.star.text.RelOrientation.CHAR
+		Else
+			oGraphic.HoriOrientRelation = com.sun.star.text.RelOrientation.PRINT_AREA
+		End If
 
 		if bShapeIsSelected And (iAnchor = iOriginalAnchor) And Not IsNull (oShapePosition) Then oGraphic.position = oShapePosition
 
@@ -824,6 +830,7 @@ Sub InsertOOoLilyPondObject (sIdentifier As String, sNumber As String, sAddition
 			Else ' should never be the case
 				oGraphic = ImportBitmapIntoWriter (ConvertToURL (sTmpPath & constOLyFileName & sNumber & sAddition & "." & sExtension), oCurrentGraphicObject(0), true)
 			End If
+			oGraphic.VertOrient = 0
 			if bShapeIsSelected And (iAnchor = iOriginalAnchor) And Not IsNull (oShapePosition) Then
 				oGraphic.HoriOrientPosition = oShapePosition.X
 				oGraphic.VertOrientPosition = oShapePosition.Y
@@ -845,9 +852,11 @@ Sub InsertOOoLilyPondObject (sIdentifier As String, sNumber As String, sAddition
 					oGraphic = ImportBitmapIntoWriter (ConvertToURL (sTmpPath & constOLyFileName & sNumber & sAddition & "." & sExtension), oCurrentGraphicObject, true)
 				End If
 			End If
+			oGraphic.VertOrient = 0
 
 		Case "SwXTextRanges" ' Nothing or normal text selection in Writer
 			oGraphic = ImportBitmapIntoWriter (ConvertToURL (sTmpPath & constOLyFileName & sNumber & sAddition & "." & sExtension), oCurrentCursor, false)
+			oGraphic.VertOrient = 0
 
 		End Select
 
@@ -857,7 +866,12 @@ Sub InsertOOoLilyPondObject (sIdentifier As String, sNumber As String, sAddition
 
 		oGraphic.TopMargin = 0
 		oGraphic.BottomMargin = 0
-		oGraphic.VertOrient = 0
+		oGraphic.HoriOrient = com.sun.star.text.HoriOrientation.NONE
+		if iAnchor = com.sun.star.text.TextContentAnchorType.AT_CHARACTER Then
+			oGraphic.HoriOrientRelation = com.sun.star.text.RelOrientation.CHAR
+		Else
+			oGraphic.HoriOrientRelation = com.sun.star.text.RelOrientation.PRINT_AREA
+		End If
 
 	Else 'We are in Impress or Draw