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

Update utslsynmemo.tsf

Browse Source 
优化
This commit is contained in:
JianjunLiu
2022-11-21 17:49:22 +08:00
parent ed11a1ca8f
commit 505a537c09
1 changed files with 31 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files
designer/utslsynmemo.tsf
+13
View File
@@ -481,6 +481,7 @@ type TTslSynHighLighter = class(TSynHighLighter)
end
if pos(vi,jsfh) then
begin
if ttk then
SetJsToken(tokens,ttk,idx-1);
end
if vi="[" then
@@ -593,6 +594,7 @@ type TTslSynHighLighter = class(TSynHighLighter)
end
idx++;
end
if ttk then
SetJsToken(tokens,ttk,idx-1);
end else
if cst="'" or cst='"' then
@@ -668,6 +670,7 @@ type TTslSynHighLighter = class(TSynHighLighter)
end else
if FSynBranch="tsl" and vi="?" then
begin
if ttk then
SetTToken(tokens,ttk,idx-1);
if idx<e and s[idx+1]=">" then
begin
@@ -685,6 +688,7 @@ type TTslSynHighLighter = class(TSynHighLighter)
end else
if vi ="'" then
begin
if ttk then
SetTToken(tokens,ttk,idx-1);
SetTToken(tokens,"'",idx,"'");
if idx=e then return "'";
@@ -707,6 +711,7 @@ type TTslSynHighLighter = class(TSynHighLighter)
end else
if vi = '"' then
begin
if ttk then
SetTToken(tokens,ttk,idx-1);
SetTToken(tokens,'"',idx,'"');
if idx=e then return '"';
@@ -729,12 +734,14 @@ type TTslSynHighLighter = class(TSynHighLighter)
end else
if vi="{" then
begin
if ttk then
SetTToken(tokens,ttk,idx-1);
SetTToken(tokens,'{',idx,'{');
return ParserTokenLines(s,idx+1,e,'{',tokens);
end else
if vi="/" then
begin
if ttk then
SetTToken(tokens,ttk,idx-1);
if idx=e then
begin
@@ -753,6 +760,7 @@ type TTslSynHighLighter = class(TSynHighLighter)
end else
if vi="#" then
begin
if ttk then
SetTToken(tokens,ttk,idx-1);
if idx=e then
begin
@@ -771,6 +779,7 @@ type TTslSynHighLighter = class(TSynHighLighter)
end else
if vi="(" then
begin
if ttk then
SetTToken(tokens,ttk,idx-1);
if idx=e then
begin
@@ -792,6 +801,7 @@ type TTslSynHighLighter = class(TSynHighLighter)
end else
if vi="%" then
begin
if ttk then
SetTToken(tokens,ttk,idx-1);
idx++;
if idx<=e then
@@ -832,6 +842,7 @@ type TTslSynHighLighter = class(TSynHighLighter)
end else
if vi="<" then
begin
if ttk then
SetTToken(tokens,ttk,idx-1);
if (idx+6<=e) and s[idx+1]="?" and lowercase(s[idx+2:idx+6])="tslx>" then
begin
@@ -852,6 +863,7 @@ type TTslSynHighLighter = class(TSynHighLighter)
end else
if pos(vi,"`~@#$^&*)+-;,.?:[]|\\=><%/") then
begin
if ttk then
SetTToken(tokens,ttk,idx-1);
if vi=")" then
begin
@@ -878,6 +890,7 @@ type TTslSynHighLighter = class(TSynHighLighter)
end
idx++;
end
if ttk then
SetTToken(tokens,ttk,idx-1);
end else
if cst="'" or cst='"' then