paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-27 23:29:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: menu designer: prevent crash when all menu items were deleted, bug #23870

Browse Source 
git-svn-id: trunk@40241 -
This commit is contained in:
mattias 2013-02-10 12:28:36 +00:00
parent 5ee38f3ce4
commit c026b52cc5
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
designer/designermenu.pp
View File

@ -960,9 +960,12 @@ begin
Item := FindDesignerMenuItem(MenuItem);
if Item <> nil then
begin
DeleteItem(Item);
SetCoordinates(POSITION_LEFT, POSITION_TOP, 0, Root);
RealignDesigner;
if DeleteItem(Item) = 2 then
(Owner as TForm).Close
else begin
SetCoordinates(POSITION_LEFT, POSITION_TOP, 0, Root);
RealignDesigner;
end;
end;
end;
inherited;