编辑器

批量关闭标签问题

designer/utslcodeeditor.tsf

@@ -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