From e180f6ce6f1a1d2dd8c4b71846a74aa91e080985 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Tue, 22 Dec 2020 08:46:18 +0100
Subject: [PATCH] Issue #744: Suspend action list on mainform while preferences
 dialog is open, so changes on the Shortcuts tab do not trigger some action,
 probably even with a crash

---
 source/options.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/source/options.pas b/source/options.pas
index c205015a..f4058eb8 100644
--- a/source/options.pas
+++ b/source/options.pas
@@ -13,7 +13,7 @@ uses
   StdCtrls, ComCtrls, ExtCtrls, SynEditHighlighter, SynHighlighterSQL,
   SynEdit, SynMemo, VirtualTrees, SynEditKeyCmds, ActnList, StdActns, Menus,
   dbstructures, gnugettext, Vcl.Themes, Vcl.Styles, SynRegExpr, Generics.Collections,
-  Vcl.ImageCollection, extra_controls, theme_preview, Vcl.Buttons;
+  Vcl.ImageCollection, extra_controls, theme_preview, Vcl.Buttons, System.Actions;
 
 type
   TShortcutItemData = record
@@ -465,6 +465,7 @@ begin
       mtInformation,
       [mbOk]);
   end;
+  MainForm.ActionList1.State := asNormal;
 end;
 
 
@@ -739,6 +740,9 @@ begin
   chkAskFileSave.Checked := AppSettings.ReadBool(asPromptSaveFileOnTabClose);
   chkRestoreTabs.Checked := AppSettings.ReadBool(asRestoreTabs);
 
+  // Disable global shortcuts
+  MainForm.ActionList1.State := asSuspended;
+
   FRestartOptionTouched := False;
   btnApply.Enabled := False;
   screen.Cursor := crdefault;