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

fix compilation

Browse Source 
git-svn-id: trunk@6055 -
This commit is contained in:
vincents 2004-09-23 16:37:13 +00:00
parent 25e3c74c55
commit 4c7a8a5a19
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/customnotebook.inc
View File

@ -451,7 +451,7 @@ begin
else else
NewZPosition:=-1; NewZPosition:=-1;
FPageList.Insert(Index,APage); FPageList.Insert(Index,APage);
APage.Parent := fNotebook; APage.Parent := Self;
if NewZPosition>=0 then if NewZPosition>=0 then
SetControlIndex(APage,NewZPosition); SetControlIndex(APage,NewZPosition);
APage.Visible:=true; APage.Visible:=true;
@ -788,6 +788,9 @@ end;}
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.61 2004/09/23 16:37:13 vincents
fix compilation
Revision 1.60 2004/09/23 14:54:55 vincents Revision 1.60 2004/09/23 14:54:55 vincents
moved widgetset related code from TNBPages to TCustomNotebook moved widgetset related code from TNBPages to TCustomNotebook