diff options
| -rw-r--r-- | examples/apps/ide/src/frm_main.pas | 30 |
1 files changed, 16 insertions, 14 deletions
diff --git a/examples/apps/ide/src/frm_main.pas b/examples/apps/ide/src/frm_main.pas index 8bab2913..f95a6686 100644 --- a/examples/apps/ide/src/frm_main.pas +++ b/examples/apps/ide/src/frm_main.pas @@ -1177,13 +1177,15 @@ begin begin Name := 'mnuFile'; SetPosition(476, 61, 172, 20); - AddMenuItem('New...', '', nil).Enabled := False; - AddMenuItem('Open...', '', nil).Enabled := False; + AddMenuItem('New...', 'Ctrl+N', nil).Enabled := False; + AddMenuItem('-', '', nil); + AddMenuItem('Open...', 'Ctrl+O', @btnOpenFileClicked); AddMenuItem('Open Recent', '', nil).Enabled := False; - AddMenuItem('Save', '', @miFileSave); + AddMenuItem('Save', 'Ctrl+S', @miFileSave); AddMenuItem('Save As...', '', @miFileSaveAs); + AddMenuItem('Save All', 'Ctrl+Shift+S', nil).Enabled := False; AddMenuItem('-', '', nil); - AddMenuItem('Quit', '', @btnQuitClicked); + AddMenuItem('Quit', 'Ctrl+Q', @btnQuitClicked); end; mnuEdit := TfpgPopupMenu.Create(self); @@ -1201,9 +1203,9 @@ begin begin Name := 'mnuSearch'; SetPosition(476, 98, 172, 20); - AddMenuItem('Find...', '', nil).Enabled := False; - AddMenuItem('Find in Files...', '', nil).Enabled := False; - AddMenuItem('Procedure List...', '', @miSearchProcedureList); + AddMenuItem('Find...', 'Ctrl+F', nil).Enabled := False; + AddMenuItem('Find in Files...', 'Ctrl+Shift+F', nil).Enabled := False; + AddMenuItem('Procedure List...', 'Ctrl+G', @miSearchProcedureList); end; mnuView := TfpgPopupMenu.Create(self); @@ -1211,7 +1213,7 @@ begin begin Name := 'mnuView'; SetPosition(476, 119, 172, 20); - AddMenuItem('Todo List...', '', nil).Enabled := False; + AddMenuItem('Todo List...', 'Ctrl+F2', nil).Enabled := False; AddMenuItem('Debug Windows', '', @miViewDebug); end; @@ -1220,17 +1222,17 @@ begin begin Name := 'mnuProject'; SetPosition(476, 140, 172, 20); - AddMenuItem('Options...', '', @miProjectOptions); + AddMenuItem('Options...', 'Ctrl+Shift+O', @miProjectOptions); AddMenuItem('-', '', nil); AddMenuItem('New (empty)...', '', @miProjectNew); AddMenuItem('New from Template...', '', @miProjectNewFromTemplate); AddMenuItem('Open...', '', @miProjectOpen); miRecentProjects := AddMenuItem('Open Recent', '', nil); - AddMenuItem('Save', '', @miProjectSave); + AddMenuItem('Save', 'Ctrl+Alt+S', @miProjectSave); AddMenuItem('Save As...', '', @miProjectSaveAs); AddMenuItem('-', '', nil); AddMenuItem('View Source', '', nil); - AddMenuItem('Add editor file to Project', '', @miProjectAddUnitToProject); + AddMenuItem('Add editor file to Project', 'Ctrl+Shift+A', @miProjectAddUnitToProject); end; mnuRun := TfpgPopupMenu.Create(self); @@ -1246,7 +1248,7 @@ begin AddMenuItem('Make 4', 'Ctrl+Alt+4', @miRunMake4); AddMenuItem('-', '', nil); AddMenuItem('Run', 'F9', nil); - AddMenuItem('Run Parameters...', '', nil); + AddMenuItem('Run Parameters...', 'Shift+F9', nil); end; mnuTools := TfpgPopupMenu.Create(self); @@ -1254,8 +1256,8 @@ begin begin Name := 'mnuTools'; SetPosition(476, 182, 172, 20); - AddMenuItem('fpGUI UI Designer...', '', nil); - AddMenuItem('fpGUI DocView...', '', nil); + AddMenuItem('fpGUI UI Designer...', 'F12', nil); + AddMenuItem('fpGUI DocView...', 'Ctrl+F1', nil); end; mnuSettings := TfpgPopupMenu.Create(self); |