TAction shortcuts have to be set manually for the current session.

This commit is contained in:
Ansgar Becker
2009-09-21 23:23:12 +00:00
parent 556db8ce3f
commit ddbb3a8880

View File

@ -257,6 +257,8 @@ begin
end else begin end else begin
if Data.Shortcut1 <> Data.Action.ShortCut then if Data.Shortcut1 <> Data.Action.ShortCut then
MainReg.WriteInteger(REGPREFIX_SHORTCUT1+Data.Action.Name, Data.Shortcut1); MainReg.WriteInteger(REGPREFIX_SHORTCUT1+Data.Action.Name, Data.Shortcut1);
// Apply shortcut for this session
Data.Action.ShortCut := Data.Shortcut1;
end; end;
ItemNode := TreeShortcutItems.GetNextSibling(ItemNode); ItemNode := TreeShortcutItems.GetNextSibling(ItemNode);
end; end;