summaryrefslogtreecommitdiff
path: root/examples/apps
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graemeg@gmail.com>2013-03-15 14:51:22 +0000
committerGraeme Geldenhuys <graemeg@gmail.com>2013-03-15 15:08:38 +0000
commit0ab06d1208c264023e2aebb37ba83b761219ff87 (patch)
tree727e2ceded38a470cc0046709d9b6587e41b6c28 /examples/apps
parentc5241ae83570635083d4157b474d2f0b6ff7bd57 (diff)
downloadfpGUI-0ab06d1208c264023e2aebb37ba83b761219ff87.tar.xz
textedit: correctly set caret x position using UTF-8 Length() method
Diffstat (limited to 'examples/apps')
-rw-r--r--examples/apps/ide/src/fpg_textedit.pas2
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