From f0b97fa0cd4b5a2a9112000e56339bfe1327518e Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Sun, 2 Aug 2009 23:32:08 +0200 Subject: Fix Ctrl+RightArrow skipping a line When you Ctrl+RightArrow to jump words, when it reached the end of a line, it skipped a line and actually jumped two lines down. Also when the caret landed in the new line it was at position 1 of the line and not at the true beginning of the line position 0. Signed-off-by: Graeme Geldenhuys --- prototypes/textedit/fpg_textedit.pas | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'prototypes') diff --git a/prototypes/textedit/fpg_textedit.pas b/prototypes/textedit/fpg_textedit.pas index 9fe33bcb..fcc14626 100644 --- a/prototypes/textedit/fpg_textedit.pas +++ b/prototypes/textedit/fpg_textedit.pas @@ -636,7 +636,8 @@ procedure TfpgBaseTextEdit.KeyboardCaretNav(const ShiftState: TShiftState; const else begin CaretPos.Y := CaretPos.Y + 1; - CaretPos.X := 1; + CaretPos.X := 0; + NotFindIt := False; end; if CaretPos.Y > pred(FLines.Count) then begin -- cgit v1.2.3-54-g00ecf