diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2009-08-02 23:32:08 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2009-08-02 23:32:08 +0200 |
| commit | f0b97fa0cd4b5a2a9112000e56339bfe1327518e (patch) | |
| tree | 4055396c266e0e8fa8d645a834841faaa07e127a /prototypes | |
| parent | 5270e94548b95aab52f6d4d7466f83760706afb8 (diff) | |
| download | fpGUI-f0b97fa0cd4b5a2a9112000e56339bfe1327518e.tar.xz | |
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 <graemeg@gmail.com>
Diffstat (limited to 'prototypes')
| -rw-r--r-- | prototypes/textedit/fpg_textedit.pas | 3 |
1 files changed, 2 insertions, 1 deletions
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 |