From 9ce471286efaa5da5ba5875c598f9ea4b29f9a7a Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Wed, 24 Aug 2011 12:14:41 +0200 Subject: ide: add new placeholder menu items in the main menu. This will systematically be implemented. --- examples/apps/ide/src/frm_main.pas | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'examples/apps/ide') diff --git a/examples/apps/ide/src/frm_main.pas b/examples/apps/ide/src/frm_main.pas index f95a6686..d8268e07 100644 --- a/examples/apps/ide/src/frm_main.pas +++ b/examples/apps/ide/src/frm_main.pas @@ -1196,6 +1196,10 @@ begin AddMenuItem('Cut', '', nil).Enabled := False; AddMenuItem('Copy', '', nil).Enabled := False; AddMenuItem('Paste', '', nil).Enabled := False; + AddMenuItem('-', '', nil); + AddMenuItem('Indent selection', 'Ctrl+I', nil).Enabled := False; + AddMenuItem('Unindent selection', 'Ctrl+U', nil).Enabled := False; + AddMenuItem('Insert $IFDEF...', 'Ctrl+Shift+D', nil).Enabled := False; end; mnuSearch := TfpgPopupMenu.Create(self); @@ -1204,7 +1208,11 @@ begin Name := 'mnuSearch'; SetPosition(476, 98, 172, 20); AddMenuItem('Find...', 'Ctrl+F', nil).Enabled := False; + AddMenuItem('Find Next', 'F3', nil).Enabled := False; + AddMenuItem('Find Previous', 'Shift+F3', nil).Enabled := False; AddMenuItem('Find in Files...', 'Ctrl+Shift+F', nil).Enabled := False; + AddMenuItem('Replace...', 'Ctrl+R', nil).Enabled := False; + AddMenuItem('-', '', nil); AddMenuItem('Procedure List...', 'Ctrl+G', @miSearchProcedureList); end; -- cgit v1.2.3-70-g09d2