paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 11:38:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

MenuEditor: Formatting.

Browse Source 
git-svn-id: trunk@52258 -
This commit is contained in:
juha 2016-04-29 12:42:41 +00:00
parent 148d4cf069
commit ad4ce23e31
2 changed files with 18 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
designer/menueditor.pp
View File

@ -1781,8 +1781,7 @@ begin
end
else begin
ac.Caption:=lisMenuEditorAddSubmenuRight;
ac.Hint:=
lisMenuEditorAddASubmenuAtTheRightOfSelectedItem;
ac.Hint:=lisMenuEditorAddASubmenuAtTheRightOfSelectedItem;
end;
end;
popItemDelete: ac.Enabled:=(FMenu.Items.Count > 0);

34
designer/menueditorform.pas
View File

@ -272,23 +272,23 @@ begin
persist:=GetSelectedMenuComponent(ASelection, isTMenu, isTMenuItem);
if (persist <> nil) then
begin
if isTMenu then
SetMenu(TMenu(persist), nil)
else if isTMenuItem then begin
mi:=TMenuItem(persist);
tmp:=mi;
while (tmp.Parent <> nil) do
tmp:=tmp.Parent;
mnu:=tmp.Menu;
if (mnu = nil) then
mnu:=mi.GetParentMenu;
if (mnu = FEditedMenu) and (FDesigner.ShadowMenu <> nil) then
FDesigner.ShadowMenu.SetSelectedMenuItem(mi, True, False)
else if (mnu <> nil) then
SetMenu(mnu, mi);
end;
end
begin
if isTMenu then
SetMenu(TMenu(persist), nil)
else if isTMenuItem then begin
mi:=TMenuItem(persist);
tmp:=mi;
while (tmp.Parent <> nil) do
tmp:=tmp.Parent;
mnu:=tmp.Menu;
if (mnu = nil) then
mnu:=mi.GetParentMenu;
if (mnu = FEditedMenu) and (FDesigner.ShadowMenu <> nil) then
FDesigner.ShadowMenu.SetSelectedMenuItem(mi, True, False)
else if (mnu <> nil) then
SetMenu(mnu, mi);
end;
end
else
SetMenu(nil, nil);
end;