paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 11:18:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit/Cocoa: UTF8CodepointCount() used instead of UTF8Length()

Browse Source
This commit is contained in:
rich2014 2024-08-29 21:27:32 +08:00
parent c8a1f93a6e
commit 9297084337
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/lazsyncocoaimm.pas
View File

@ -189,7 +189,7 @@ begin
if (lineText.length>0) and (logicalPoint.x<=lineText.length+1) then begin
if logicalPoint.x > lineText.length then
logicalPoint.x:= lineText.length;
params.col:= UTF8Length( pchar(lineText), logicalPoint.x ) - 1;
params.col:= UTF8CodepointCount( pchar(lineText), logicalPoint.x ) - 1;
end else begin
params.col:= -1;
end;