summaryrefslogtreecommitdiff
path: root/examples/apps/ide
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graeme@mastermaths.co.za>2011-08-24 12:14:41 +0200
committerGraeme Geldenhuys <graeme@mastermaths.co.za>2011-08-24 12:14:41 +0200
commit9ce471286efaa5da5ba5875c598f9ea4b29f9a7a (patch)
tree0a4dd3424229a6a2f89b110f23da689cac1cd9b7 /examples/apps/ide
parente0a11b3472580d321bfedfa420b2415133f1f500 (diff)
downloadfpGUI-9ce471286efaa5da5ba5875c598f9ea4b29f9a7a.tar.xz
ide: add new placeholder menu items in the main menu.
This will systematically be implemented.
Diffstat (limited to 'examples/apps/ide')
-rw-r--r--examples/apps/ide/src/frm_main.pas8
1 files changed, 8 insertions, 0 deletions
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;