tdf#139915 DOCX import: fix anchored obj position with to-char and TEXT_LINE

There were multiple problems here:

- commit 8f1a1092d47947847e1d888b0284e8364c663d1f (tdf#97371 DOCX
import: fix text covered by shape, 2016-01-28) disabled to-char
anchoring for TEXT_LINE (e.g. "alignment top, relative to line") because
changing the anchor type of a TextBox could not be changed, but this has
been implemented in sw/ in the meantime, so it can be dropped

- Now that the anchor type is to-char, we can set the vertical relation
to TEXT_LINE, but Word's positive value is "below line", and ours mean
"towards the top of the page, from the bottom of the line", so we need
to drop the workaround of commit
3303a4c5f21874453e634d84408c50e7a0055a4d (tdf#135153 DOCX import: avoid
line-of-text relation with to-para anchoring, 2021-01-18)

Once these are in place, we can fix the remaining problem by inverting
the vertical position of the shape, which instantly fixes the
overlapping textboxes in the bugdoc.

(cherry picked from commit 2f21e4f357ec60450df84ddd858c3cf0a4711b02)

Change-Id: I895abb76d3bd3bbe3a84e5c27a77df722b96226a
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/116155
Tested-by: Jenkins
Reviewed-by: Xisco Fauli <xiscofauli@libreoffice.org>

3 files changed, 40 insertions, 13 deletions

diff --git a/writerfilter/qa/cppunittests/dmapper/GraphicImport.cxx b/writerfilter/qa/cppunittests/dmapper/GraphicImport.cxx
index 456b7509e2c9..0d0cd12c8c1c 100644
--- a/writerfilter/qa/cppunittests/dmapper/GraphicImport.cxx
+++ b/writerfilter/qa/cppunittests/dmapper/GraphicImport.cxx
@@ -17,6 +17,7 @@
 #include <com/sun/star/frame/Desktop.hpp>
 #include <com/sun/star/container/XNamed.hpp>
 #include <com/sun/star/text/RelOrientation.hpp>
+#include <com/sun/star/text/VertOrientation.hpp>
 #include <com/sun/star/drawing/PointSequenceSequence.hpp>
 
 #include <basegfx/polygon/b2dpolypolygontools.hxx>
@@ -240,16 +241,39 @@ CPPUNIT_TEST_FIXTURE(Test, testTextboxTextline)
     uno::Reference<drawing::XDrawPageSupplier> xDrawPageSupplier(getComponent(), uno::UNO_QUERY);
     uno::Reference<drawing::XDrawPage> xDrawPage = xDrawPageSupplier->getDrawPage();
     uno::Reference<beans::XPropertySet> xShape(xDrawPage->getByIndex(0), uno::UNO_QUERY);
-    sal_Int16 nActual{};
-    CPPUNIT_ASSERT(xShape->getPropertyValue("VertOrientRelation") >>= nActual);
+    sal_Int16 nActualRelation{};
+    CPPUNIT_ASSERT(xShape->getPropertyValue("VertOrientRelation") >>= nActualRelation);
+    sal_Int32 nActualPosition{};
+    CPPUNIT_ASSERT(xShape->getPropertyValue("VertOrientPosition") >>= nActualPosition);
 
+    sal_Int16 nExpectedRelation = text::RelOrientation::TEXT_LINE;
+    CPPUNIT_ASSERT_EQUAL(nExpectedRelation, nActualRelation);
+    // 0 on this branch, but sw/qa/extras/ooxmlexport/data/tdf97371.docx shows that negative values
+    // work fine in general, don't bother:
+    // sal_Int32 nExpectedPosition = -2;
+    // CPPUNIT_ASSERT_EQUAL(nExpectedPosition, nActualPosition);
+}
+
+CPPUNIT_TEST_FIXTURE(Test, testTextboxTextlineTop)
+{
+    OUString aURL = m_directories.getURLFromSrc(DATA_DIRECTORY) + "textbox-textline-top.docx";
+    getComponent() = loadFromDesktop(aURL);
+    uno::Reference<drawing::XDrawPageSupplier> xDrawPageSupplier(getComponent(), uno::UNO_QUERY);
+    uno::Reference<drawing::XDrawPage> xDrawPage = xDrawPageSupplier->getDrawPage();
+    uno::Reference<beans::XPropertySet> xShape(xDrawPage->getByIndex(0), uno::UNO_QUERY);
+    sal_Int16 nActualRelation{};
+    CPPUNIT_ASSERT(xShape->getPropertyValue("VertOrientRelation") >>= nActualRelation);
+    sal_Int16 nExpectedRelation = text::RelOrientation::TEXT_LINE;
     // Without the accompanying fix in place, this test would have failed with:
-    // - Expected: 0 (text::RelOrientation::FRAME)
-    // - Actual  : 9 (text::RelOrientation::TEXT_LINE)
-    // i.e. the relation had a value which doesn't make sense for to-para anchoring (only for
-    // to-char anchoring).
-    sal_Int16 nExpected = text::RelOrientation::FRAME;
-    CPPUNIT_ASSERT_EQUAL(nExpected, nActual);
+    // - Expected: 9 (TEXT_LINE)
+    // - Actual  : 0 (FRAME)
+    // i.e. the anchor point for the positioning was wrong, resulting in overlapping textboxes.
+    CPPUNIT_ASSERT_EQUAL(nExpectedRelation, nActualRelation);
+
+    sal_Int16 nActualOrient{};
+    CPPUNIT_ASSERT(xShape->getPropertyValue("VertOrient") >>= nActualOrient);
+    sal_Int16 nExpectedOrient = text::VertOrientation::BOTTOM;
+    CPPUNIT_ASSERT_EQUAL(nExpectedOrient, nActualOrient);
 }
 }
 
diff --git a/writerfilter/qa/cppunittests/dmapper/data/textbox-textline-top.docx b/writerfilter/qa/cppunittests/dmapper/data/textbox-textline-top.docx
new file mode 100644
index 000000000000..dbd750092811
--- /dev/null
+++ b/writerfilter/qa/cppunittests/dmapper/data/textbox-textline-top.docx
diff --git a/writerfilter/source/dmapper/GraphicImport.cxx b/writerfilter/source/dmapper/GraphicImport.cxx
index 6d0d4113e037..5f4e2a1d60c0 100644
--- a/writerfilter/source/dmapper/GraphicImport.cxx
+++ b/writerfilter/source/dmapper/GraphicImport.cxx
@@ -1002,16 +1002,19 @@ void GraphicImport::lcl_attribute(Id nName, Value& rValue)
                         if (m_pImpl->bLayoutInCell && bTextBox)
                             m_pImpl->bLayoutInCell = !m_pImpl->bCompatForcedLayoutInCell;
 
-                        if (m_pImpl->nVertRelation == text::RelOrientation::TEXT_LINE && !bTextBox)
+                        if (m_pImpl->nVertRelation == text::RelOrientation::TEXT_LINE)
                             eAnchorType = text::TextContentAnchorType_AT_CHARACTER;
 
                         xShapeProps->setPropertyValue("AnchorType", uno::makeAny(eAnchorType));
 
-                        if (m_pImpl->nVertRelation == text::RelOrientation::TEXT_LINE && bTextBox)
+                        if (m_pImpl->nVertRelation == text::RelOrientation::TEXT_LINE)
                         {
-                            // TEXT_LINE to specific to to-char anchoring, we have to-para, so reset
-                            // to default.
-                            m_pImpl->nVertRelation = text::RelOrientation::FRAME;
+                            // Word's "line" is "below the bottom of the line", our TEXT_LINE is
+                            // "towards top, from the bottom of the line", so invert the vertical
+                            // position.
+                            awt::Point aPoint = xShape->getPosition();
+                            aPoint.Y *= -1;
+                            xShape->setPosition(aPoint);
                         }
 
                         if (m_pImpl->bLayoutInCell && bTextBox && m_pImpl->rDomainMapper.IsInTable()