diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-08-26 15:59:38 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-08-26 15:59:38 +0200 |
commit | 7984792d4f6964900464ff2fadf4f7c7810e3fc6 (patch) | |
tree | bd978217652bf6ba55ca0d99605629401ca320e6 | |
parent | 9ec83d9cc14e961ab6187eb8d5c22e518e5d3ad2 (diff) | |
download | fpGUI-7984792d4f6964900464ff2fadf4f7c7810e3fc6.tar.xz |
uidesigner: enabled keyboard shortcuts in main menu of main form.
-rw-r--r-- | uidesigner/newformdesigner.pas | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/uidesigner/newformdesigner.pas b/uidesigner/newformdesigner.pas index cf6485df..eec39b12 100644 --- a/uidesigner/newformdesigner.pas +++ b/uidesigner/newformdesigner.pas @@ -389,17 +389,17 @@ begin begin Name := 'filemenu'; SetPosition(464, 64, 120, 20); - AddMenuItem('Create New File...', '', @(maindsgn.OnNewFile)); - AddMenuItem('Open...', '', @(maindsgn.OnLoadFile)); + AddMenuItem('Create New File...', 'Ctrl+N', @(maindsgn.OnNewFile)); + AddMenuItem('Open...', 'Ctrl+O', @(maindsgn.OnLoadFile)); FFileOpenRecent := AddMenuItem('Open Recent...', '', nil); AddMenuItem('-', '', nil); - mi := AddMenuItem('Save', '', @(maindsgn.OnSaveFile)); + mi := AddMenuItem('Save', 'Ctrl+S', @(maindsgn.OnSaveFile)); mi.Tag := 10; - AddMenuItem('Save As New Template Unit...', '', @(maindsgn.OnSaveFile)); + AddMenuItem('Save As New Template Unit...', 'Ctrl+Shift+S', @(maindsgn.OnSaveFile)); AddMenuItem('-', '', nil); AddMenuItem('Add New Form to Unit...', '', @(maindsgn.OnNewForm)); AddMenuItem('-', '', nil); - AddMenuItem('Exit', '', @(maindsgn.OnExit)); + AddMenuItem('Exit', 'Ctrl+Q', @(maindsgn.OnExit)); end; formmenu := TfpgPopupMenu.Create(self); |