tdf#166602 editeng: fix painting cursor in vertical text

The size is relative to the top right.

(regression from commit 34cf82953c)

Change-Id: Id0e63e40c580a4b700cc09b476bd8bc9f60aa368
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/186823
Reviewed-by: Michael Stahl <michael.stahl@allotropia.de>
Tested-by: Jenkins

editeng/source/editeng/impedit.cxx

@@ -1306,6 +1306,8 @@ ImpEditView::ImplGetCursorRectAndMaybeScroll(EditPaM const& rPos,
             Size aOldSz( aCursorSz );
             aCursorSz.setWidth( aOldSz.Height() );
             aCursorSz.setHeight( aOldSz.Width() );
+            // tdf#166602 the size is relative to the top right
+            aCursorRect.AdjustLeft(aCursorRect.GetWidth() - aCursorSz.Width());
         }
         aCursorRect.SetSize(aCursorSz);
         return {{aCursorRect, aEditCursor, aShowCursorFlags, nTextPortionStart}};