paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 18:08:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

fix repeatingly setting pageindex 0,1,0,1,.. when removing more pages ... note: needs implementation of visible list

Browse Source 
git-svn-id: trunk@6464 -
This commit is contained in:
micha 2005-01-03 11:13:41 +00:00
parent f1a8fc0a88
commit 4c626cc4b5
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/include/customnotebook.inc
View File

@ -516,17 +516,13 @@ begin
PageIndex:=NewPageIndex;
end;
end;
if (HandleAllocated) and (APage.HandleAllocated) then begin
if HandleAllocated and APage.HandleAllocated then begin
TWSCustomNotebookClass(WidgetSetClass).RemovePage(Self, Index);
end;
FPageList.Delete(Index);
APage.Parent:=nil;
if not (csLoading in ComponentState) then begin
if NewPageIndex>=Index then
dec(NewPageIndex);
if (NewPageIndex>=0) and (FPageList.Count>0) then
PageIndex:=NewPageIndex;
end;
if fPageIndex >= Index then
Dec(fPageIndex);
end;
{$IFDEF NOTEBOOK_DEBUG}
DebugLn('TCustomNotebook.RemovePage END ',fNoteBook.Name,' Index=',Index,' fPageList.Count=',fPageList.Count,' fNoteBook.PageIndex=',fNoteBook.PageIndex);
@ -778,6 +774,9 @@ end;
{ =============================================================================
$Log$
Revision 1.68 2005/01/03 11:13:41 micha
fix repeatingly setting pageindex 0,1,0,1,.. when removing more pages ... note: needs implementation of visible list
Revision 1.67 2005/01/01 11:59:58 mattias
fixed collecting values