编辑器

批量关闭标签问题
2023-03-22 18:00:03 +08:00
parent c313f5df82
commit 7ba6a5b974
1 changed files with 5 additions and 4 deletions
@@ -261,9 +261,9 @@ type TPage=class(TCustomControl) //
            end else 
            if idx<FItemIndex then 
            begin
-                FItemIndex := FItemIndex-1;
+                FItemIndex := FItemIndex-1;                
                FCurrentItem := FPageItems[FItemIndex];
-            end 
+            end
            InValidateRect(nil,false);
        end
    end
@@ -2370,6 +2370,7 @@ type TEditer=class(TCustomcontrol) //
                begin
                    docloseapageitem(iti);  
                end 
+                if itss then FPageEditer.CallSelChanged();
            end 
            "关闭右侧所有":
            begin
@@ -2386,9 +2387,9 @@ type TEditer=class(TCustomcontrol) //
                    if iti=it then 
                    begin
                        dodel := 1;
-                    end ;
-                      
+                    end ;                      
                end  
+                if dodel then FPageEditer.CallSelChanged();
            end 
            "关闭其他标签":
            begin