编辑器

恢复ctl+tab

designer/utslcodeeditor.tsf

@@ -4265,8 +4265,7 @@ type TEditer=class(TCustomcontrol) //
             FListPages.IncIndex((f>0)?1:(-1));
         end else
         begin //初始化
-            bit := GetCurrentItem();
-            {
+            //bit := GetCurrentItem();
             for i := 0 to its.Length()-1 do
             begin
                 it := its[i];
@@ -4292,23 +4291,10 @@ type TEditer=class(TCustomcontrol) //
                     it.FPageOrderId := idx++;
                 end
             end
-            
-            
             sit := sselect[0]from sr order by[1]asc end;
-            FCurrentItemCode := sselect[2]from sr order by[1] desc end;
-            }
-            sr := array();
-            cidx := 0;
-            for i := 0 to its.Length()-1 do 
-            begin
-                it := its[i];
-                if it=bit then cidx := i;
-                sv := it.OrigScriptPath;
-                if it.FEditer.ChangedFlag then sv := "*"+sv;
-                sr[i]:= sv;
-            end 
-            FListPages.SetData(sr);
-            FListPages.ItemIndex := cidx;
+            FCurrentItemCode := sselect[2]from sr order by[1]desc end;
+            FListPages.SetData(sit);
+            FListPages.IncIndex(-1);
             xy := ClientToScreen(100,100);
             FListPages.Top := xy[1];
             FListPages.Left := xy[0];
@@ -5703,11 +5689,11 @@ type TListPages=class(TListBox)
         ct := ItemCount;
         nidx := idx-f;
         if nidx>=ct or nidx<0 then return ;
-        {
+        
         if idx=ct-1 then nidx := 0;
-        else if idx=-1 then nidx := 1;}
+        else if idx=-1 then nidx := 1;
         SetCurrentSelection(nidx);
-        InsureItemVisible(nidx);
+        //InsureItemVisible(nidx);
     end
 end
 type TFindListWnd=class(TListBox) //查找的地方