parent
c313f5df82
commit
7ba6a5b974
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Reference in New Issue