diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2013-03-15 14:51:22 +0000 |
|---|---|---|
| committer | David Laurence Emerson <dle3ab@angelbase.com> | 2013-05-28 00:42:47 -0700 |
| commit | 76cbf5f55904d32cf4efc01c035e1db05c9fb7ad (patch) | |
| tree | ed54126e0c42da3cc5df563110bd2e5db2899fb4 /examples | |
| parent | 44fa9d656d93a4afc44d9fdd60e24699ac2aacb6 (diff) | |
| download | fpGUI-76cbf5f55904d32cf4efc01c035e1db05c9fb7ad.tar.xz | |
textedit: correctly set caret x position using UTF-8 Length() method
Diffstat (limited to 'examples')
| -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 c6236cfc..7c8ef151 100644 --- a/examples/apps/ide/src/fpg_textedit.pas +++ b/examples/apps/ide/src/fpg_textedit.pas @@ -1074,7 +1074,7 @@ begin if VPos > (FLines.Count - FVisLines) then begin CaretPos.Y := FLines.Count-1; - CaretPos.X := Length(FLines[CaretPos.Y]); + CaretPos.X := UTF8Length(FLines[CaretPos.Y]); end else begin |