* TfpgEdit cursor position performance patch from Vladimir.

1 files changed, 19 insertions, 0 deletions

diff --git a/src/corelib/gfx_utf8utils.pas b/src/corelib/gfx_utf8utils.pas
index 21b78297..5d1661e4 100644
--- a/src/corelib/gfx_utf8utils.pas
+++ b/src/corelib/gfx_utf8utils.pas
@@ -21,6 +21,8 @@ function  UTF8Length(p: PChar; ByteCount: integer): integer;
 function  UTF8Pos(const SearchForText, SearchInText: string): integer;
 procedure UTF8Delete(var S: string; Index, Size: integer);
 procedure UTF8Insert(const Source: string; var S: string; Index: integer);
+function  UTF8CharAtByte(const s: string; BytePos: integer; var aChar: string): integer;
+
 
 implementation
 
@@ -216,6 +218,23 @@ begin
   S := b + Source + e;
 end;
 
+function UTF8CharAtByte(const s: string; BytePos: integer;
+  var aChar: string): integer;
+var
+  CharLen: Integer;
+begin
+  if BytePos > 0 then
+  begin
+    CharLen := UTF8CharacterLength(@s[BytePos]);
+    aChar   := Copy(s, BytePos, CharLen);
+    Result  := BytePos + CharLen;
+  end else
+  begin
+    aChar   := '';
+    Result  := 1;
+  end;
+end;
+
 procedure UTF8Delete(var S: string; Index, Size: integer);
 var
   ls: integer;