paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-13 05:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: menu designer: make "delete menu with subitems" dialog simpler

Browse Source 
git-svn-id: trunk@51305 -
This commit is contained in:
ondrej 2016-01-16 20:53:54 +00:00
parent 30a53a3bb8
commit e6fe690982
2 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
designer/menushadows.pp
View File

@ -4389,10 +4389,9 @@ var
begin
if IDEQuestionDialogAb(
lisMenuEditorDeletingItemWithASubmenu,
Format('%s%s%s', [lisMenuEditorDeletingThisItemWillDeleteAllSubitemsToo,
LineEnding, lisMenuEditorDeleteThisItemAndItsSubitems]),
mtWarning, [mrYes, mrNo], False) = mrYes then
lisDelete,
lisMenuEditorDeleteThisItemAndItsSubitems,
mtWarning, [mrYes, mrNo], False) = mrYes then
begin
firstBoxToDelete:=GetBoxWithParentItem(anExistingSI.RealItem);
Assert(firstBoxToDelete<>nil,'TShadowMenu.DeleteShadowAndItemAndChildren: no children');

5
ide/lazarusidestrconsts.pas
View File

@ -4717,10 +4717,7 @@ resourcestring
lisMenuEditorDeleteMenuTemplate = '&Delete menu template ...';
lisMenuEditorDeleteSavedMenuTemplate = 'Delete saved menu template';
lisMenuEditorDeleteSelectedMenuTemplate = 'Delete selected menu template';
lisMenuEditorDeleteThisItemAndItsSubitems = 'Delete this item and its subitems?';
lisMenuEditorDeletingItemWithASubmenu = 'Deleting item with a submenu';
lisMenuEditorDeletingThisItemWillDeleteAllSubitemsToo = 'Deleting this item '
+'will delete all subitems too.';
lisMenuEditorDeleteThisItemAndItsSubitems = 'Do you want to delete this item and its subitems?';
lisMenuEditorDisplayPreviewAsPopupMenu = 'Display preview as &Popup menu';
lisMenuEditorEditCaption = 'Edit &Caption';
lisMenuEditorEditingCaptionOfS = 'Editing Caption of %s';