diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2010-07-19 17:29:29 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2010-07-19 17:29:29 +0200 |
| commit | ef3a63d6d58709064b95c0432bd6dda8ed665977 (patch) | |
| tree | 43181b7e74d9e73e01a05fdcc82df077c8463684 /prototypes/textedit | |
| parent | bf656f13cb94c699c088a21d0a9c3b46646bfd02 (diff) | |
| download | fpGUI-ef3a63d6d58709064b95c0432bd6dda8ed665977.tar.xz | |
TextEdit: Minor bugfix. I got the X and Y mixed up. :-(
Diffstat (limited to 'prototypes/textedit')
| -rw-r--r-- | prototypes/textedit/fpg_textedit.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/prototypes/textedit/fpg_textedit.pas b/prototypes/textedit/fpg_textedit.pas index 1d1370a9..88cd9d17 100644 --- a/prototypes/textedit/fpg_textedit.pas +++ b/prototypes/textedit/fpg_textedit.pas @@ -1334,8 +1334,8 @@ begin SLine := FLines[CaretPos.Y]; { cursor was somewhere in whitespace, so we need to fill up the spaces } - if UTF8Length(SLine) < CaretPos.y + 1 then - for Fill := Length(SLine) to CaretPos.y + 1 do + if UTF8Length(SLine) < CaretPos.X + 1 then + for Fill := Length(SLine) to CaretPos.X + 1 do SLine := SLine + ' '; UTF8Insert(AText, SLine, CaretPos.X + 1); |