diff options
Diffstat (limited to 'prototypes/textedit')
| -rw-r--r-- | prototypes/textedit/fpg_textedit.pas | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/prototypes/textedit/fpg_textedit.pas b/prototypes/textedit/fpg_textedit.pas index 825a682e..23a02c17 100644 --- a/prototypes/textedit/fpg_textedit.pas +++ b/prototypes/textedit/fpg_textedit.pas @@ -790,15 +790,16 @@ begin end; FSelStartNo := CaretPos.Y; Exit; - end; - if (ssCtrl in ShiftState) and not (ssShift in ShiftState) then + end + else if (ssCtrl in ShiftState) and not (ssShift in ShiftState) then begin CaretPos.Y := CaretPos.Y - 1; - UpdateScrollBars; + {$Note This does not work. The view must scroll and caret pos stay the same. } + VScrollBarMove(self, FVScrollBar.Position-1); FSelStartNo := CaretPos.Y; Exit; - end; - if not (ssCtrl in ShiftState) and (ssShift in ShiftState) then + end + else if not (ssCtrl in ShiftState) and (ssShift in ShiftState) then begin CaretPos.Y := CaretPos.Y - 1; if not FSelected then |