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

menus will be destroyed now, stoppok

Browse Source 
git-svn-id: trunk@14 -
This commit is contained in:
lazarus 2000-07-23 19:01:33 +00:00
parent 6630718ac0
commit 5aaf084e37
2 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/customform.inc
View File

@ -66,6 +66,7 @@ end;
destructor TCustomForm.Destroy;
begin
Assert(False, Format('Trace: [TCustomForm.Destroy] %s', [ClassName]));
FMenu.Free;
inherited Destroy;
end;
@ -492,6 +493,7 @@ begin
fCompStyle:= csForm;
FFormState := [];
FMenu := nil;
{apply a drawing surface}
FCanvas := TControlCanvas.Create;
@ -728,6 +730,9 @@ end;
{ =============================================================================
$Log$
Revision 1.2 2000/07/23 19:01:33 lazarus
menus will be destroyed now, stoppok
Revision 1.1 2000/07/13 10:28:25 michael
+ Initial import

15
lcl/include/menuitem.inc
View File

@ -111,7 +111,16 @@ end;
Destructor for the class.
------------------------------------------------------------------------------}
destructor TMenuItem.Destroy;
var
i : integer;
begin
i := 0;
if assigned (FItems) then
while i < FItems.Count do
begin
TMenuItem(FItems [i]).Free;
inc (i);
end;
FItems.Free;
inherited Destroy;
end;
@ -394,6 +403,9 @@ end;
{ =============================================================================
$Log$
Revision 1.2 2000/07/23 19:01:33 lazarus
menus will be destroyed now, stoppok
Revision 1.1 2000/07/13 10:28:26 michael
+ Initial import
@ -419,6 +431,9 @@ end;
$Log$
Revision 1.2 2000/07/23 19:01:33 lazarus
menus will be destroyed now, stoppok
Revision 1.1 2000/07/13 10:28:26 michael
+ Initial import