diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-09-19 19:48:56 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-09-19 19:48:56 +0200 |
| commit | 3d711ad83a69b23a27fc51fda608e2591618f0e2 (patch) | |
| tree | fa4b718b5fa9be7e83d26a67d724cac7db2a4458 /examples/apps | |
| parent | 0ad47998ed11614ac4fb95f2f612ecb796c5904d (diff) | |
| download | fpGUI-3d711ad83a69b23a27fc51fda608e2591618f0e2.tar.xz | |
textedit: bug fix with the caretpos variable. X / Y typo.
Diffstat (limited to 'examples/apps')
| -rw-r--r-- | examples/apps/ide/src/fpg_textedit.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/apps/ide/src/fpg_textedit.pas b/examples/apps/ide/src/fpg_textedit.pas index 38a86a23..c99297cb 100644 --- a/examples/apps/ide/src/fpg_textedit.pas +++ b/examples/apps/ide/src/fpg_textedit.pas @@ -754,7 +754,7 @@ begin begin if CaretPos.Y <= (FLines.Count-1) then if CaretPos.X > UTF8Length(FLines[CaretPos.Y]) then - CaretPos.Y := UTF8Length(FLines[CaretPos.Y]) - 1; + CaretPos.X := UTF8Length(FLines[CaretPos.Y]) - 1; FSelected := True; FSelStartNo := CaretPos.Y; FSelStartOffs := CaretPos.X + 1; |