Fix mouse position conversion in case of BottomToTop text

Change-Id: Ib058e44a1480013ce924585d8950534d0f3fc5a4
Reviewed-on: https://gerrit.libreoffice.org/36834
Tested-by: Jenkins <ci@libreoffice.org>
Reviewed-by: Tamás Zolnai <tamas.zolnai@collabora.com>

1 files changed, 10 insertions, 2 deletions

diff --git a/editeng/source/editeng/editeng.cxx b/editeng/source/editeng/editeng.cxx
index 33e04c4961c3..8dfa3a1220d9 100644
--- a/editeng/source/editeng/editeng.cxx
+++ b/editeng/source/editeng/editeng.cxx
@@ -1926,8 +1926,16 @@ Point EditEngine::GetDocPos( const Point& rPaperPos ) const
     Point aDocPos( rPaperPos );
     if ( IsVertical() )
     {
-        aDocPos.X() = rPaperPos.Y();
-        aDocPos.Y() = GetPaperSize().Width() - rPaperPos.X();
+        if ( IsTopToBottom() )
+        {
+            aDocPos.X() = rPaperPos.Y();
+            aDocPos.Y() = GetPaperSize().Width() - rPaperPos.X();
+        }
+        else
+        {
+            aDocPos.X() = rPaperPos.Y();
+            aDocPos.Y() = rPaperPos.X();
+        }
     }
     return aDocPos;
 }