diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2009-08-04 20:53:34 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@gmail.com> | 2009-08-04 20:53:34 +0200 |
commit | 1dfb899821861c36e0c16938f8a15215e8491d19 (patch) | |
tree | 4c6a12715c5292087cc9deaacd1540752fe4f609 /prototypes/textedit | |
parent | af6c838b0e832ac07a778a19e05d16b13bf47dc6 (diff) | |
download | fpGUI-1dfb899821861c36e0c16938f8a15215e8491d19.tar.xz |
TextEdit: minor code formatting improvements
Signed-off-by: Graeme Geldenhuys <graemeg@gmail.com>
Diffstat (limited to 'prototypes/textedit')
-rw-r--r-- | prototypes/textedit/fpg_textedit.pas | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/prototypes/textedit/fpg_textedit.pas b/prototypes/textedit/fpg_textedit.pas index 23a02c17..21f4e5e9 100644 --- a/prototypes/textedit/fpg_textedit.pas +++ b/prototypes/textedit/fpg_textedit.pas @@ -736,7 +736,6 @@ begin keyRight: begin - writeln('DEBUG: TfpgBaseTextEdit.KeyboardCaretNav >>> keyRight'); CaretPos.X := CaretPos.X + 1; if CaretPos.X > FMaxScrollH then begin @@ -779,7 +778,8 @@ begin keyUp: begin - if CaretPos.x = 0 then Exit; + if CaretPos.Y = 0 then + Exit; if not (ssShift in ShiftState) and not (ssCtrl in ShiftState) then begin CaretPos.Y := CaretPos.Y - 1; @@ -809,7 +809,8 @@ begin FSelEndNo := CaretPos.X; FSelEndOffs := CaretPos.X; FSelected := True; - end else + end + else begin FSelEndNo := CaretPos.Y; FSelEndOffs := CaretPos.X; |