编辑器

批量关闭标签问题
This commit is contained in:
JianjunLiu 2023-03-22 18:00:03 +08:00
parent c313f5df82
commit 7ba6a5b974
1 changed files with 5 additions and 4 deletions

View File

@ -261,9 +261,9 @@ type TPage=class(TCustomControl) //
end else
if idx<FItemIndex then
begin
FItemIndex := FItemIndex-1;
FItemIndex := FItemIndex-1;
FCurrentItem := FPageItems[FItemIndex];
end
end
InValidateRect(nil,false);
end
end
@ -2370,6 +2370,7 @@ type TEditer=class(TCustomcontrol) //
begin
docloseapageitem(iti);
end
if itss then FPageEditer.CallSelChanged();
end
"关闭右侧所有":
begin
@ -2386,9 +2387,9 @@ type TEditer=class(TCustomcontrol) //
if iti=it then
begin
dodel := 1;
end ;
end ;
end
if dodel then FPageEditer.CallSelChanged();
end
"关闭其他标签":
begin