diff --git a/src/ce_main.lfm b/src/ce_main.lfm
index a9952da4..43546a3b 100644
--- a/src/ce_main.lfm
+++ b/src/ce_main.lfm
@@ -2671,6 +2671,14 @@ object CEMainForm: TCEMainForm
           77FF73716FFF6D6B69FF696665FF63605FFF6461600064616000
         }
       end
+      object MenuItem76: TMenuItem
+        Caption = '-'
+      end
+      object MenuItem77: TMenuItem
+        Caption = 'Options...'
+        ImageIndex = 23
+        OnClick = MenuItem77Click
+      end
     end
     object MenuItem14: TMenuItem
       Caption = 'Project'
diff --git a/src/ce_main.pas b/src/ce_main.pas
index 7e7b87d9..080ea450 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -138,6 +138,8 @@ type
     MenuItem73: TMenuItem;
     MenuItem74: TMenuItem;
     MenuItem75: TMenuItem;
+    MenuItem76: TMenuItem;
+    MenuItem77: TMenuItem;
     mnuLayout: TMenuItem;
     mnuItemMruFile: TMenuItem;
     mnuItemMruProj: TMenuItem;
@@ -155,6 +157,7 @@ type
     procedure actProjNewNativeExecute(Sender: TObject);
     procedure actSetRunnableSwExecute(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure MenuItem77Click(Sender: TObject);
     procedure updateDocumentBasedAction(sender: TObject);
     procedure updateProjectBasedAction(sender: TObject);
     procedure updateDocEditBasedAction(sender: TObject);
@@ -941,6 +944,7 @@ begin
     itm.Action := act;
     itm.Tag := ptrInt(widg);
     mnuItemWin.Add(itm);
+    widg.Visible:=false;
   end;
 end;
 
@@ -1244,6 +1248,11 @@ begin
     SaveDocking;
 end;
 
+procedure TCEMainForm.MenuItem77Click(Sender: TObject);
+begin
+  fOptEdWidg.showWidget;
+end;
+
 destructor TCEMainForm.destroy;
 begin
   SaveSettings;