From 21d45c877fb41d1ef67147838cf8f48ad844e9f5 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Wed, 13 Apr 2016 09:37:51 +0200
Subject: [PATCH] fix #33, fix #34, option mnu item displayed in edit, hide
widget until docking
---
src/ce_main.lfm | 8 ++++++++
src/ce_main.pas | 9 +++++++++
2 files changed, 17 insertions(+)
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;