paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 03:10:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: clean up

Browse Source 
git-svn-id: trunk@46301 -
This commit is contained in:
mattias 2014-09-23 14:55:29 +00:00
parent 0ed9a55069
commit d506aca142
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
designer/designermenu.pp
View File

@ -974,16 +974,16 @@ function TDesignerMainMenu.MoveToNewLocation(DMenuItem, DDestMenuItem: TDesigner
var
i : Integer;
TempMI: TDesignerMenuItem;
s: String;
//s: String;
begin
if not assigned(DSubMenuItem) then
exit;
TempMI := FindParentDesignerMenuItem(DSubMenuItem);
If assigned(TempMI) Then
{If assigned(TempMI) Then
s := TempMI.Caption
Else
s := 'Root';
s := 'Root';}
if assigned(TempMI) then
TempMI := TempMI.SubMenu