界面库

语法高亮匹配问题修正
2022-10-17 14:05:20 +08:00
parent 50e0c4b2f5
commit 791217a4b1
4 changed files with 26 additions and 11 deletions
@@ -3224,12 +3224,13 @@ type tcustomsynhighlighter = class(TSynHighLighter)
        if n then 
        begin
            st := fcbgestate[n];
-            if fswordpairs[n][0]=bttk then 
+            if fswordpairs[n][1]=bttk then 
            begin
-                st.GetLeft();   
-            end else 
+                st.GetRight();       
+            end else
            begin
-                st.GetRight();
+                
+                st.GetLeft();
            end 
            d.FMATe := st.GetSate();
        end 
@@ -3405,10 +3406,10 @@ type tcustomsynhighlighter = class(TSynHighLighter)
            v1 := v[1];
            if ifstring(v0) and ifstring(v1) and v0 and v1 then 
            begin
-                fswordpairs[v0,0]:= v0;
-                fswordpairs[v0,1]:= v1;
-                fswordpairshash[v0]:=v0;
-                fswordpairshash[v1]:=v0;
+                fswordpairs[v1,0]:= v0;
+                fswordpairs[v1,1]:= v1;
+                fswordpairshash[v0]:=v1;
+                fswordpairshash[v1]:=v1;
            end 
        end