elmau
/
vibreoffice
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add bad hack to retain cursor position when moving lines

This commit is contained in:
Sean Yeh 2015-08-07 10:57:37 -05:00
parent 7cf5945900
commit c73ebf6e50
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/vibreoffice.vbs
View File

@ -977,6 +977,20 @@ Function ProcessMovementKey(keyChar, Optional bExpand, Optional keyModifiers)
' If oTextCursor was moved, set global cursor to its position
If bSetCursor Then
getCursor().gotoRange(oTextCursor.getStart(), False)
' ---- REALLY BAD HACK
' I can't seem to get the View Cursor (getCursor()) to update its
' position without calling its own movement functions.
' Theoretically, the above call to gotoRange should work, but I don't
' know why it doesn't. Visually it works, but its X position is reset
' when you move lines. Bug??
dim oTempPos
oTempPos = getCursor().getPosition()
' Move left 1 and then right 1 to stay in same position
getCursor().goLeft(1, False)
If Not samePos(oTempPos, getCursor().getPosition()) Then
getCursor().goRight(1, False)
End If
End If
' If oTextCursor was moved and is in VISUAL mode, update selection