界面库

优化高亮代码

designer/utslsynmemo.tsf

@@ -1251,7 +1251,7 @@ type ttfmhighlighter = class(tcustomsynhighlighter)
         ExecuteCommand("string",array(('"',"\\")));
         ExecuteCommand("keywords",array("object","end","inherited"));
         ExecuteCommand("rowannotes",array());
-        ExecuteCommand("blockannotes",array());
+        ExecuteCommand("blockannotes",array(("{","}")));
         ExecuteCommand("syms",array("{","}","[","]","<",">",":",",","="));
         ExecuteCommand("pairs",array(("{","}"),("[","]"),("<",">"),("object","end"),("inherited","end")));
     end 

funcext/tvclib/utslmemo.tsf

@@ -3305,7 +3305,7 @@ type tcustomsynhighlighter = class(TSynHighLighter)
                 begin
                     SetTToken(tokens,ttk,idx-1);
                     bostr := ostr;
-                    ncost := array("str",bostr,fstrstires[bostr],fstrstires_zy[cst]);
+                    ncost := array("str",bostr,fstrstires[bostr],fstrstires_zy[bostr]);
                     SetTToken(tokens,ostr,oidx-1,ncost);
                     idx := oidx-1;  
                     return ParserTokenLines(s,idx+1,e,ncost,tokens);