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

when setting tabvisible to false of showing page, switch to another page

Browse Source 
git-svn-id: trunk@7032 -
This commit is contained in:
micha 2005-03-26 15:13:55 +00:00
parent 2a8cf12022
commit ee3c00fb35
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/customnotebook.inc
View File

@ -499,6 +499,12 @@ begin
else
TWSCustomNotebookClass(WidgetSetClass).RemovePage(Self, RealIndex);
APage.FTabVisible := AValue;
if not AValue and (AIndex = PageIndex) then
if RealIndex > 0 then
PageIndex := AIndex-1
else
if AIndex < (PageCount-1) then
PageIndex := AIndex+1;
end;
procedure TCustomNotebook.RemovePage(Index: Integer);
@ -792,6 +798,9 @@ end;
{ =============================================================================
$Log$
Revision 1.70 2005/03/26 15:13:55 micha
when setting tabvisible to false of showing page, switch to another page
Revision 1.69 2005/01/09 23:28:18 mattias
fixed loading no unit at start