paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-04 18:30:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed removing notebook

Browse Source 
git-svn-id: trunk@3286 -
This commit is contained in:
lazarus 2002-09-05 13:21:12 +00:00
parent 10d8f037da
commit 98a15081f3
2 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/compreg.pp
View File

@ -1,4 +1,3 @@
unit CompReg;
{
***************************************************************************
* *
@ -29,7 +28,9 @@ unit CompReg;
ToDo:
see XXX
}
{$MODE OBJFPC}
unit CompReg;
{$MODE OBJFPC}{$H+}
interface
@ -120,10 +121,9 @@ begin
if Assigned(RegisterComponentsProc) then
RegisterComponentsProc(Page, UnitName, ComponentClasses)
else begin
// XXX ToDo:
{raise EComponentError.CreateRes(@SRegisterError);}
writeln('[RegisterComponents] Error: RegisterComponentsProc not assigned.');
halt;
raise EComponentError.Create(
'[RegisterComponents] Error: RegisterComponentsProc not assigned.'
{SRegisterError});
end;
end;
@ -276,8 +276,5 @@ finalization
RegCompList.Destroy;
end.

4
lcl/include/customnotebook.inc
View File

@ -355,6 +355,7 @@ end;
------------------------------------------------------------------------------}
destructor TCustomNotebook.Destroy;
begin
Pages.Clear;
fAccess.Free;
fAccess:=nil;
fPageList.Free;
@ -665,6 +666,9 @@ end;}
{ =============================================================================
$Log$
Revision 1.22 2002/09/05 13:21:12 lazarus
MG: fixed removing notebook
Revision 1.21 2002/09/05 12:11:43 lazarus
MG: TNotebook is now streamable