diff --git a/designer/utslcodeeditor.tsf b/designer/utslcodeeditor.tsf
index f869753..8df3585 100644
--- a/designer/utslcodeeditor.tsf
+++ b/designer/utslcodeeditor.tsf
@@ -258,7 +258,12 @@ type TPage=class(TCustomControl) //
                 begin
                     CallSelChanged();
                 end
-            end
+            end else 
+            if idx<FItemIndex then 
+            begin
+                FItemIndex := FItemIndex-1;
+                FCurrentItem := FPageItems[FItemIndex];
+            end 
             InValidateRect(nil,false);
         end
     end
@@ -1773,7 +1778,7 @@ type TEditer=class(TCustomcontrol) //
         FListPages.Visible := false;
         ////////////////////////////
         FPageMenu := new TPopUpMenu(self);
-        for i,v in array("关闭","关闭其他标签","复制文件名","复制文件全名","重新加载","打开目录","另存为") do
+        for i,v in array("关闭","关闭其他标签","关闭左侧所有","关闭右侧所有","复制文件名","复制文件全名","重新加载","打开目录","另存为") do
         begin
             mi := new TMenu(self);
             mi.Caption := v;
@@ -1956,6 +1961,7 @@ type TEditer=class(TCustomcontrol) //
     begin
         return FPageEditer.pageitemcount;
     end 
+
     function CloseAllPageItems(it);
     begin
         its := FPageEditer.PageItems;
@@ -2311,6 +2317,34 @@ type TEditer=class(TCustomcontrol) //
         end
         EditerCaretChanged(it.FEditer,nil);
     end
+    function docloseapageitem(it);
+    begin
+        if it.fisnewfile then  //单独处理新建关闭
+        begin 
+            f := it.OrigScriptPath;
+            DeletePageItem(it);
+            if fileexists("",f) then filedelete("",f);                    
+            return ;
+        end 
+        if JudgeItemState(it)then return;
+        if it.FEditer.ChangedFlag then
+        begin
+            mr := MessageboxA(format("是否保存:%s",it.OrigScriptPath),"提示",3,self);
+            if mr=IDYES then
+            begin
+                if SavePageItem(it)=0 then
+                begin
+                    it.FEditer.ChangedFlag := true;
+                    return 0;
+                end
+            end else
+            if mr=IDCANCEL then
+            begin
+                return;
+            end
+        end
+        DeletePageItem(it);
+    end 
     function PageMenuClick(o,e);
     begin
         it := GetCurrentItem();
@@ -2318,33 +2352,42 @@ type TEditer=class(TCustomcontrol) //
         case o.Caption of
             "关闭":
             begin
-                if it.fisnewfile then  //单独处理新建关闭
-                begin 
-                    f := it.OrigScriptPath;
-                    DeletePageItem(it);
-                    if fileexists("",f) then filedelete("",f);
-                    
-                    return ;
-                end 
-                if JudgeItemState(it)then return;
-                if it.FEditer.ChangedFlag then
-                begin
-                    mr := MessageboxA(format("是否保存:%s",it.OrigScriptPath),"提示",3,self);
-                    if mr=IDYES then
-                    begin
-                        if SavePageItem(it)=0 then
-                        begin
-                            it.FEditer.ChangedFlag := true;
-                            return 0;
-                        end
-                    end else
-                    if mr=IDCANCEL then
-                    begin
-                        return;
-                    end
-                end
-                DeletePageItem(it);
+                docloseapageitem(it);    
             end
+            "关闭左侧所有":
+            begin
+                its := GetAllPageItems();
+                itss := array();
+                for i := 0 to its.Length()-1 do   
+                begin
+                    iti := its[i];
+                    if iti=it then break ;
+                    itss[i] := iti;
+                end  
+                for i,iti in itss  do 
+                begin
+                    docloseapageitem(iti);  
+                end 
+            end 
+            "关闭右侧所有":
+            begin
+                dodel := 0;
+                its := GetAllPageItems();
+                itss := array();
+                for i := 0 to its.Length()-1 do   
+                begin
+                    itss[i] := its[i];
+                end  
+                for i,iti in itss do 
+                begin                    
+                    if dodel then docloseapageitem(iti);  
+                    if iti=it then 
+                    begin
+                        dodel := 1;
+                    end ;
+                      
+                end  
+            end 
             "关闭其他标签":
             begin
                 Cit := it;