liujianjun
/
tslediter
3
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

Update utslmemo.tsf 

修正中文分隔符问题
This commit is contained in:
JianjunLiu 2023-09-05 10:07:58 +08:00
parent 28e5c5b476
commit a414c5e926
1 changed files with 3 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
funcext/tvclib/utslmemo.tsf
View File

@ -3051,16 +3051,7 @@ type TSynHighLighter = class(TComponent) //
ctk := s[idx:(idx+1)]; ctk := s[idx:(idx+1)];
idx++; idx++;
SetTToken(tks,ctk,idx); SetTToken(tks,ctk,idx);
end end else
{else
if idx<len and( ord(vi)=0xa3 or ord(vi)=0xa1) then
begin
SetTToken(tks,ctk,idx-1);
ctk := s[idx:(idx+1)];
idx++;
SetTToken(tks,ctk,idx);
end }
else
begin begin
ctk+=vi; ctk+=vi;
end end
@ -4315,14 +4306,14 @@ begin
begin begin
if not(idx<=len) then return 0; if not(idx<=len) then return 0;
if idx<2 then return 0; if idx<2 then return 0;
if ByteType(s,idx)<>2 then return 0;
c1 := getchar(s,idx-1); c1 := getchar(s,idx-1);
if not(c1 .& 0xa0) then return 0;
c2 := getchar(s,idx); c2 := getchar(s,idx);
end else //ÕýÐò end else //ÕýÐò
begin begin
if not(idx<len ) then return 0; if not(idx<len ) then return 0;
if ByteType(s,idx)<>1 then return 0;
c1 := getchar(s,idx); c1 := getchar(s,idx);
if not(c1 .& 0xa0) then return 0;
c2 := getchar(s,idx+1); c2 := getchar(s,idx+1);
end end
symv := static array(161,162,163,161,163,164,163,168,163,169,161,164,161,190,161,191,163,186,161,176,161,177,161,174,163,187,161,163,163,172); symv := static array(161,162,163,161,163,164,163,168,163,169,161,164,161,190,161,191,163,186,161,176,161,177,161,174,163,187,161,163,163,172);