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

Fix unwanted disabling of TMenuItem.Action in the designer. Issue #41109.

Browse Source
This commit is contained in:
Bart 2024-09-03 23:23:08 +02:00
parent 35c1846863
commit 93af67085a
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/menuitem.inc
View File

@ -433,7 +433,8 @@ var
begin
if FItems = nil then
Exit;
if not (csDesigning in ComponentState) then // issue #41109
begin
InitiateActions; // actions may update items visibility
if InternalRethinkLines(False) then
begin
@ -441,6 +442,7 @@ begin
for i := 0 to Count - 1 do
Items[I].DestroyHandle;
end;
end;
AMenu := GetMenu(Self);
AMergedItems := MergedItems;