mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-19 18:40:17 +02:00
LCL: Free sub menuitem when it is deleted. Fix TMenuItem.Clear. Issue #36746.
git-svn-id: trunk@62704 -
This commit is contained in:
parent
6a5c733584
commit
6343248e4e
@ -172,6 +172,7 @@ begin
|
|||||||
FItems.Delete(Index);
|
FItems.Delete(Index);
|
||||||
Cur.FParent := nil;
|
Cur.FParent := nil;
|
||||||
Cur.FOnChange := nil;
|
Cur.FOnChange := nil;
|
||||||
|
Cur.Free;
|
||||||
InvalidateMergedItems;
|
InvalidateMergedItems;
|
||||||
MenuChanged(Count = 0);
|
MenuChanged(Count = 0);
|
||||||
end;
|
end;
|
||||||
@ -1016,7 +1017,7 @@ var
|
|||||||
I: Integer;
|
I: Integer;
|
||||||
begin
|
begin
|
||||||
for I := Count - 1 downto 0 do
|
for I := Count - 1 downto 0 do
|
||||||
Items[I].Free;
|
Delete(I);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TMenuItem.HasBitmap: boolean;
|
function TMenuItem.HasBitmap: boolean;
|
||||||
|
Loading…
Reference in New Issue
Block a user