liujianjun
/
tslediter
3
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

编辑器 

恢复ctl+tab
This commit is contained in:
JianjunLiu 2023-05-06 16:57:43 +08:00
parent be462063d4
commit 1210422286
1 changed files with 7 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
designer/utslcodeeditor.tsf
View File

@ -4265,8 +4265,7 @@ type TEditer=class(TCustomcontrol) //
FListPages.IncIndex((f>0)?1:(-1)); FListPages.IncIndex((f>0)?1:(-1));
end else end else
begin //³õʼ»¯ begin //³õʼ»¯
bit := GetCurrentItem(); //bit := GetCurrentItem();
{
for i := 0 to its.Length()-1 do for i := 0 to its.Length()-1 do
begin begin
it := its[i]; it := its[i];
@ -4292,23 +4291,10 @@ type TEditer=class(TCustomcontrol) //
it.FPageOrderId := idx++; it.FPageOrderId := idx++;
end end
end end
sit := sselect[0]from sr order by[1]asc end; sit := sselect[0]from sr order by[1]asc end;
FCurrentItemCode := sselect[2]from sr order by[1] desc end; FCurrentItemCode := sselect[2]from sr order by[1]desc end;
} FListPages.SetData(sit);
sr := array(); FListPages.IncIndex(-1);
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;
xy := ClientToScreen(100,100); xy := ClientToScreen(100,100);
FListPages.Top := xy[1]; FListPages.Top := xy[1];
FListPages.Left := xy[0]; FListPages.Left := xy[0];
@ -5703,11 +5689,11 @@ type TListPages=class(TListBox)
ct := ItemCount; ct := ItemCount;
nidx := idx-f; nidx := idx-f;
if nidx>=ct or nidx<0 then return ; if nidx>=ct or nidx<0 then return ;
{
if idx=ct-1 then nidx := 0; if idx=ct-1 then nidx := 0;
else if idx=-1 then nidx := 1;} else if idx=-1 then nidx := 1;
SetCurrentSelection(nidx); SetCurrentSelection(nidx);
InsureItemVisible(nidx); //InsureItemVisible(nidx);
end end
end end
type TFindListWnd=class(TListBox) //²éÕҵĵط½ type TFindListWnd=class(TListBox) //²éÕҵĵط½