编辑器

优化

designer/teditorform.tsf

@@ -553,6 +553,7 @@ type teditorform = class(TVCform) //
         caption := "-tsl±à¼­Æ÷";
         ModifyEnCodeMenu(it);
         ModifySynMenu(it);
+        save_opend_file_name();
     end 
     function PageEditerChanged(it,flg)
     begin
@@ -698,13 +699,19 @@ type teditorform = class(TVCform) //
         begin
             Exportfile(ftstream(),"",feditorglobalpath,array("font":g_editer_font_size));    
         end                
+        save_opend_file_name();
+        FEdter.CloseAllPageItems();
+    end
+    function save_opend_file_name();
+    begin
         global g_dotsavehistory;
         if g_dotsavehistory then return ;
         d := FEdter.GetAllPagesInfo();
         if not ifarray(d) then d := array();
+        if flastopend = d then return ;
         exportfile(ftstream(),"",FOpendpaths,d);
-        FEdter.CloseAllPageItems();
-    end
+        flastopend := d;
+    end 
     function clickRun(o,e);
     begin 
         case o.caption of 
@@ -1371,7 +1378,7 @@ type tsearchdir = class(TCustomControl)
         rc:=_wapi.GetScreenRect();
         l:=(rc[2]-rc[0])/2-400;
         t:=(rc[3]-rc[1])/2-300;
-        SetBoundsRect(array(l,t,545+l,310+t));
+        SetBoundsRect(array(l,t,545+l+5,310+t+15));
         FLists := array();
         FBtns := array();
         for i,v in array(array(2,28,120,230),array(148,2,500,230)) do 
@@ -1613,6 +1620,7 @@ end
     FSynMenus;
     FCPB;
     FMTabs;
+    flastopend;
     FOpendpaths;
     FTabWidthpath;
     FFileopen;

designer/utslcodeeditor.tsf

@@ -6272,7 +6272,7 @@ type TGoToLineWnd=class(TVCForm) //
         minmaxbox := false;
         WsDlgModalFrame := true;
         width := 300;
-        height := 80;
+        height := 110;
         caption := "תµ½..";
         FLabel := new TLabel(self);
         FLabel.SetBoundsRect(array(3,10,70,35));