paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 22:49:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: prevent removing neighbor Tab on changing TabVisible

Browse Source 
git-svn-id: trunk@12596 -
This commit is contained in:
paul 2007-10-26 09:21:07 +00:00
parent 8039ec242a
commit 5242f5d1c4
2 changed files with 8 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/customnotebook.inc
View File

@ -560,11 +560,13 @@ begin
{$IFDEF NOTEBOOK_DEBUG}
DebugLn(['TCustomNoteBook.AddRemovePageHandle REMOVE ',DbgSName(APage),' pfAdded=',pfAdded in APage.FFlags]);
{$ENDIF}
if not (pfAdded in APage.FFlags) then exit;
Exclude(APage.FFlags,pfAdded);
if not (pfAdded in APage.FFlags) or (pfRemoving in APage.FFlags) then
exit;
APage.FFlags := APage.FFlags - [pfAdded] + [pfRemoving];
TWSCustomNotebookClass(WidgetSetClass).RemovePage(Self, APage.VisibleIndex);
if APage.HandleAllocated then
APage.DestroyHandle;
Exclude(APage.FFlags, pfRemoving);
end;
end;

14
lcl/include/custompage.inc
View File

@ -106,16 +106,10 @@ begin
and (OldParent is TCustomNotebook)
and (not (pfRemoving in FFlags)) then begin
// remove from old pagelist
ParentNotebook:=TCustomNotebook(OldParent);
i:=PageIndex;
if i>=0 then begin
Include(FFlags,pfRemoving);
try
ParentNotebook.RemovePage(i);
finally
Exclude(FFlags,pfRemoving);
end;
end;
ParentNotebook := TCustomNotebook(OldParent);
i := PageIndex;
if i >= 0 then
ParentNotebook.RemovePage(i);
end;
inherited SetParent(AParent);