From 7984792d4f6964900464ff2fadf4f7c7810e3fc6 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Fri, 26 Aug 2011 15:59:38 +0200 Subject: uidesigner: enabled keyboard shortcuts in main menu of main form. --- uidesigner/newformdesigner.pas | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'uidesigner') 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); -- cgit v1.2.3-70-g09d2