From ddbb3a88802cdfa4d19541d17f9b19615501c30c Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Mon, 21 Sep 2009 23:23:12 +0000
Subject: [PATCH] TAction shortcuts have to be set manually for the current
 session.

---
 source/options.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/source/options.pas b/source/options.pas
index b2678d47..ce830f70 100644
--- a/source/options.pas
+++ b/source/options.pas
@@ -257,6 +257,8 @@ begin
       end else begin
         if Data.Shortcut1 <> Data.Action.ShortCut then
           MainReg.WriteInteger(REGPREFIX_SHORTCUT1+Data.Action.Name, Data.Shortcut1);
+        // Apply shortcut for this session
+        Data.Action.ShortCut := Data.Shortcut1;
       end;
       ItemNode := TreeShortcutItems.GetNextSibling(ItemNode);
     end;