mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-08 09:36:42 +02:00
menus will be destroyed now, stoppok
git-svn-id: trunk@14 -
This commit is contained in:
parent
6630718ac0
commit
5aaf084e37
@ -66,6 +66,7 @@ end;
|
|||||||
destructor TCustomForm.Destroy;
|
destructor TCustomForm.Destroy;
|
||||||
begin
|
begin
|
||||||
Assert(False, Format('Trace: [TCustomForm.Destroy] %s', [ClassName]));
|
Assert(False, Format('Trace: [TCustomForm.Destroy] %s', [ClassName]));
|
||||||
|
FMenu.Free;
|
||||||
inherited Destroy;
|
inherited Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -492,6 +493,7 @@ begin
|
|||||||
fCompStyle:= csForm;
|
fCompStyle:= csForm;
|
||||||
|
|
||||||
FFormState := [];
|
FFormState := [];
|
||||||
|
FMenu := nil;
|
||||||
|
|
||||||
{apply a drawing surface}
|
{apply a drawing surface}
|
||||||
FCanvas := TControlCanvas.Create;
|
FCanvas := TControlCanvas.Create;
|
||||||
@ -728,6 +730,9 @@ end;
|
|||||||
{ =============================================================================
|
{ =============================================================================
|
||||||
|
|
||||||
$Log$
|
$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
|
Revision 1.1 2000/07/13 10:28:25 michael
|
||||||
+ Initial import
|
+ Initial import
|
||||||
|
|
||||||
|
@ -111,7 +111,16 @@ end;
|
|||||||
Destructor for the class.
|
Destructor for the class.
|
||||||
------------------------------------------------------------------------------}
|
------------------------------------------------------------------------------}
|
||||||
destructor TMenuItem.Destroy;
|
destructor TMenuItem.Destroy;
|
||||||
|
var
|
||||||
|
i : integer;
|
||||||
begin
|
begin
|
||||||
|
i := 0;
|
||||||
|
if assigned (FItems) then
|
||||||
|
while i < FItems.Count do
|
||||||
|
begin
|
||||||
|
TMenuItem(FItems [i]).Free;
|
||||||
|
inc (i);
|
||||||
|
end;
|
||||||
FItems.Free;
|
FItems.Free;
|
||||||
inherited Destroy;
|
inherited Destroy;
|
||||||
end;
|
end;
|
||||||
@ -394,6 +403,9 @@ end;
|
|||||||
{ =============================================================================
|
{ =============================================================================
|
||||||
|
|
||||||
$Log$
|
$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
|
Revision 1.1 2000/07/13 10:28:26 michael
|
||||||
+ Initial import
|
+ Initial import
|
||||||
|
|
||||||
@ -419,6 +431,9 @@ end;
|
|||||||
|
|
||||||
|
|
||||||
$Log$
|
$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
|
Revision 1.1 2000/07/13 10:28:26 michael
|
||||||
+ Initial import
|
+ Initial import
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user