paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-25 13:59:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL/TPageControl: FIX algorithm of clear tabs in TNBPages.Clear()

Browse Source
This commit is contained in:
rich2014 2022-11-26 19:23:15 +08:00
parent 3bdcb55eb2
commit b2611478d9
1 changed files with 8 additions and 2 deletions

10
lcl/include/customnotebook.inc
View File

@ -105,9 +105,15 @@ end;
TNBPages Clear
------------------------------------------------------------------------------}
procedure TNBPages.Clear;
var
i: Integer;
begin
while FPageList.Count>0 do
Delete(FPageList.Count-1);
// remove the pages in reverse order but skip the Active Page,
// and remove the Active Page at the end,
// to avoid activating other Pages.
for i:=FNoteBook.PageCount-1 downto 0 do
if i<>FNoteBook.PageIndex then Delete(i);
if FNoteBook.PageCount>0 then Delete(0);
end;
{------------------------------------------------------------------------------