diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-08-24 12:14:41 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-08-24 12:14:41 +0200 |
| commit | 9ce471286efaa5da5ba5875c598f9ea4b29f9a7a (patch) | |
| tree | 0a4dd3424229a6a2f89b110f23da689cac1cd9b7 | |
| parent | e0a11b3472580d321bfedfa420b2415133f1f500 (diff) | |
| download | fpGUI-9ce471286efaa5da5ba5875c598f9ea4b29f9a7a.tar.xz | |
ide: add new placeholder menu items in the main menu.
This will systematically be implemented.
| -rw-r--r-- | examples/apps/ide/src/frm_main.pas | 8 |
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; |