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

custom controls now support child wincontrols

Browse Source 
git-svn-id: trunk@3217 -
This commit is contained in:
mattias 2002-08-19 15:15:20 +00:00
parent 7e59d4ab19
commit 16c012f163
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/include/page.inc
View File

@ -84,7 +84,7 @@ var Notebook: TNoteBook;
begin
if (Parent is TNoteBook) then begin
NoteBook:=TNoteBook(Parent);
if NoteBook.Page[NoteBook.PageIndex]=Self then
if (NoteBook.PageIndex>=0) and (NoteBook.Page[NoteBook.PageIndex]=Self) then
inherited WMPaint(Msg);
end else
inherited WMPaint(Msg);
@ -99,14 +99,16 @@ procedure TPage.SetParent(AParent: TWinControl);
var
OldParent: TWinControl;
ParentNotebook: TCustomNotebook;
i: integer;
begin
OldParent:=Parent;
if (OldParent<>AParent) and (OldParent<>nil)
and (OldParent is TCustomNotebook) then begin
// remove from old pagelist
ParentNotebook:=TCustomNotebook(OldParent);
if ParentNotebook.PageList.IndexOf(Self)>=0 then
TNBPages(ParentNotebook.fAccess).RemovePage(PageIndex);
i:=PageIndex;
if i>=0 then
TNBPages(ParentNotebook.fAccess).RemovePage(i);
end;
inherited SetParent(AParent);
@ -151,6 +153,9 @@ end;
// included by extctrls.pp
{
$Log$
Revision 1.12 2002/12/22 22:42:55 mattias
custom controls now support child wincontrols
Revision 1.11 2002/09/05 12:11:43 lazarus
MG: TNotebook is now streamable