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

MG: fixed TnoteBook AddPage and double creation of MeinMenu

Browse Source 
git-svn-id: trunk@3547 -
This commit is contained in:
lazarus 2002-10-24 08:56:30 +00:00
parent 94a97d9102
commit 54dc2291c2
1 changed files with 21 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lcl/include/customnotebook.inc
View File

@ -224,6 +224,7 @@ begin
Msg.Page := Index;
CNSendMessage(LM_ADDPAGE, fNotebook, @Msg);
Include(APage.FFlags,pfAdded);
if fNoteBook.PageIndex = Index then
fNoteBook.DoSendPageIndex
else
@ -317,6 +318,9 @@ end;
------------------------------------------------------------------------------}
procedure TCustomNotebook.CreateWnd;
begin
{$IFDEF NOTEBOOK_DEBUG}
writeln('TCustomNotebook.CreateWnd ',Name,':',ClassName,' HandleAllocated=',HandleAllocated);
{$ENDIF}
inherited CreateWnd;
DoCreateWnd;
end;
@ -331,13 +335,22 @@ var
i: Integer;
Msg: TLMNotebookEvent;
begin
{$IFDEF NOTEBOOK_DEBUG}
writeln('TCustomNotebook.DoCreateWnd ',Name,':',ClassName,' HandleAllocated=',HandleAllocated);
{$ENDIF}
fAddingPages:=true;
for i := 0 to FPageList.Count -1 do begin
Msg.Parent := Self;
Msg.Child := TControl(FPageList[i]);
Msg.fCompStyle := FCompStyle;
Msg.Page := i;
CNSendMessage(LM_ADDPAGE, Self, @Msg);
{$IFDEF NOTEBOOK_DEBUG}
writeln('TCustomNotebook.DoCreateWnd ',Name,':',ClassName,' ',Page[i].Caption,' ',not (pfAdded in Page[i].Flags));
{$ENDIF}
if not (pfAdded in Page[i].Flags) then begin
Msg.Parent := Self;
Msg.Child := TControl(FPageList[i]);
Msg.fCompStyle := FCompStyle;
Msg.Page := i;
CNSendMessage(LM_ADDPAGE, Self, @Msg);
Include(Page[i].FFlags,pfAdded);
end;
end;
fAddingPages:=false;
@ -666,6 +679,9 @@ end;}
{ =============================================================================
$Log$
Revision 1.23 2002/10/24 08:56:30 lazarus
MG: fixed TnoteBook AddPage and double creation of MeinMenu
Revision 1.22 2002/09/05 13:21:12 lazarus
MG: fixed removing notebook