diff --git a/designer/designer.pp b/designer/designer.pp
index e85000b90a..abf4d227db 100644
--- a/designer/designer.pp
+++ b/designer/designer.pp
@@ -449,7 +449,7 @@ begin
     DesignerMenuSnapToGuideLinesOption:=RegisterIDEMenuCommand(DesignerMenuSectionOptions,
                                'Snap to guide lines',fdmSnapToGuideLinesOption);
     DesignerMenuShowOptions:=RegisterIDEMenuCommand(DesignerMenuSectionOptions,
-                                                 'Show options',fdmShowOptions, nil, nil, nil, 'menu_environment_options');
+                                                 'Show options',dlgFROpts, nil, nil, nil, 'menu_environment_options');
 end;
 
 constructor TDesigner.Create(TheDesignerForm: TCustomForm;
diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas
index ab0a673517..6bf47ff1cd 100644
--- a/ide/lazarusidestrconsts.pas
+++ b/ide/lazarusidestrconsts.pas
@@ -1880,7 +1880,6 @@ resourcestring
   lisViewSourceLfm = 'View Source (.lfm)';
   fdmSaveFormAsXML = 'Save form as xml';
   fdmSnapToGuideLinesOption='Option: Snap to guide lines';
-  fdmShowOptions='Options';
 
   //-----------------------
   // keyMapping
diff --git a/ide/sourceeditor.pp b/ide/sourceeditor.pp
index 50f772e277..4a3a99f294 100644
--- a/ide/sourceeditor.pp
+++ b/ide/sourceeditor.pp
@@ -1051,7 +1051,7 @@ begin
                                                     uemEncoding);
 
   SrcEditMenuEditorProperties:=RegisterIDEMenuCommand(SourceEditorMenuRoot,
-           'EditorProperties',uemEditorProperties, nil, nil, nil, 'menu_editor_options');
+           'EditorProperties', dlgFROpts, nil, nil, nil, 'menu_environment_options');
   SrcEditMenuDocking:=RegisterIDEMenuCommand(SourceEditorMenuRoot, 'Docking',
            lisMVDocking);
   {$IFNDEF EnableIDEDocking}