编辑器

优化标签关闭

designer/utslcodeeditor.tsf

@@ -258,6 +258,11 @@ type TPage=class(TCustomControl) //
                 begin
                     CallSelChanged();
                 end
+            end else 
+            if idx<FItemIndex then 
+            begin
+                FItemIndex := FItemIndex-1;
+                FCurrentItem := FPageItems[FItemIndex];
             end 
             InValidateRect(nil,false);
         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,32 +2352,41 @@ type TEditer=class(TCustomcontrol) //
         case o.Caption of
             "¹Ø±Õ":
             begin
-                if it.fisnewfile then  //单独处理新建关闭
+                docloseapageitem(it);    
+            end
+            "关闭左侧所有":
+            begin
+                its := GetAllPageItems();
+                itss := array();
+                for i := 0 to its.Length()-1 do   
                 begin
-                    f := it.OrigScriptPath;
+                    iti := its[i];
-                    DeletePageItem(it);
+                    if iti=it then break ;
-                    if fileexists("",f) then filedelete("",f);
+                    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 ;
                       
-                    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 
             "¹Ø±ÕÆäËû±êÇ©":
             begin