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

lcl: update page state when we change it (fixes bug #0013099)

Browse Source 
git-svn-id: trunk@18550 -
This commit is contained in:
paul 2009-02-04 04:00:55 +00:00
parent 81fe22f744
commit 8c80f94ec0
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/customnotebook.inc
View File

@ -206,10 +206,10 @@ begin
fCompStyle := csNoteBook;
fPageList := TListWithEvent.Create;
FPageList := TListWithEvent.Create;
fAccess := TNBPages.Create(TListWithEvent(fPageList), Self);
fPageIndex := -1;
FPageIndex := -1;
FLoadedPageIndex:=-1;
FPageIndexOnLastShow:=-1;
@ -846,6 +846,7 @@ begin
CurPage := Page[FPageIndex];
// first make the new page visible
//DebugLn(['TCustomNotebook.ShowCurrentPage ',DbgSName(CurPage),' CurPage.Visible=',CurPage.Visible]);
CurPage.UpdateControlState;
if CurPage.Visible then
begin
if FPageIndexOnLastShow <> FPageIndex then